VBA

フィールドにインクリメントした数字を挿入する方法

'－－－－－－ '演算式 ' Static recno As Long ' recno = recno + 1 ' 'フィールド名= ' recno '※フィールド演算の高度な設定で書いた変数はPublicなので残っている。 '－－－－－－ 'フィールド演算相当の機能 Sub test() Dim i1 As Integer Dim i2 As Integer Dim i3 As Long i1 = 0 '対象レイヤ i2 = 4 'フ ...

プログラミング ArcGIS

NetworkAnalystExtension オブジェクトの取得

Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pUID As New UID Set pUID.Value = "esriNetworkAnalystUI.NetworkAnalystExtension" Dim pNetworkAnalystExtension As INetworkAnalystExtension Set pNetworkAnalystExtension = Applica ...

プログラミング ArcGIS

フィーチャをラスターに変換

Attribute VB_Name = "Module_Feature2Raster" Option Explicit '********************************************************************* ' 定義 :fncCreateRaster(valIndex As Integer, valFieldName As String, ' valCellSize As Double, valRasterF ...

プログラミング ArcGIS

空間参照の許容値・座標精度の取得

Dim pGeoDataset As IGeoDataset Set pGeoDataset = pFeatureLayer.FeatureClass '空間参照取得 Dim pSpatialReference As ISpatialReference Set pSpatialReference = pGeoDataset.SpatialReference Dim dblXmax As Double, dblYmax As Double, dblXmin As Double, dblYmin As D ...

プログラミング ArcGIS

地球の裏の緯度経度を求める

Public Function GetBackLatLon(FromPoint As IPoint) As IPoint '入力座標が地理座標系でない場合、Nothingを返す If FromPoint.SpatialReference Is Nothing Then Set GetBackLatLon = Nothing Exit Function ElseIf Not TypeOf FromPoint.SpatialReference Is IG ...

プログラミング ArcGIS

ビューの設定ダイアログの設定

Public Sub SetProperties() Dim pSxDocument As ISxDocument Set pSxDocument = ThisDocument Dim pScene As IScene Set pScene = pSxDocument.Scene Dim pSceneGraph As ISceneGraph Set pSceneGraph = pScene.SceneGraph ...

プログラミング ArcGIS

XML の複製

'1. ArcCatalogの検索で指定のフォルダからメタデータを設定したい対象のフィーチャクラスを絞り込み検索 '2. 検索結果をカタログツリーで選択し、マクロを実行 Private Const XMLFile As String = "D:\metadata.xml" 'インポートするメタデータのフルパス Public Sub CopyMetadataFromXML() Dim pGxApp As IGxApplication Dim pGxSe ...

プログラミング ArcGIS

フィーチャテンプレートの操作

Public Sub AddFeatureTemplate() Dim pMxDocumenet As IMxDocument Set pMxDocumenet = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocumenet.SelectedLayer '選択レイヤの取得 Dim pDataset As IDataset Set p ...

プログラミング ArcGIS

IPolygonMovePointFeedback の利用

' ArcMapのVBAでUIToolControlを作成し、ポリゴンエレメントに対して操作 ' http://resources.esri.com/help/9.3/ArcGISEngine/arcobjects/esriDisplay/IPolygonMovePointFeedback_Example.htm Option Explicit Private m_pDoc As IMxDocument Private m_pAV As IActiveView Private m_pScrD A ...

プログラミング ArcGIS

DataStatistics の操作

Private Sub DataStatistics() Dim pMxDoc As IMxDocument, pFLayer As IFeatureLayer Dim pCursor As ICursor, pStatResults As IStatisticsResults Set pMxDoc = ThisDocument Set pFLayer = pMxDoc.FocusMap.Layer(0) Set pCursor = pFLayer.Search(Nothing, False) Dim p ...

1 2 3 … 29 Next »

日	月	火	水	木	金	土
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30