記事

[vb title="VBA"] 'GxDialogの使用 Publig Sub ShowGxDialogUsingJPGFilter()           Dim pGxDialog As IGxDialog     Set pGxDialog = New GxDialog           Dim pGxObjectFilterCollection  As IGxObjectFilterCollection     Set pGxObjectFilterCollection = pGxDialog           Dim pGxObjectFilter As IGxObjectFilter     Set p...

[vb title="VBA"] Public Sub ZoomIn()       Dim pGxApplication As IGxApplication     Set pGxApplication = Application           If Not TypeOf pGxApplication.View Is IGxPreview Then Exit Sub           Dim pPreview As IGxPreview     Set pPreview = pApp.View           If Not TypeOf pPreview.View Is IGxGeographicView The...

[vb title="VBA"] Sub SetHomeFolder()     Dim pGxCatalogWorkspace As IGxCatalogWorkspace     Set pGxCatalogWorkspace = Application           pGxCatalogWorkspace.UseWorkspaceFolder = True           pGxCatalogWorkspace.OpenWorkspaceFolder "D:\Workspace\Support\130417-000015"     'カタログ ウィンドウの再描画も...

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

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

[vb title="VBA"] Sub test()     Dim pWorkspaceFactory As IWorkspaceFactory     Set pWorkspaceFactory = New AccessWorkspaceFactory     'Set pWorkspaceFactory = New ShapefileWorkspaceFactory     'Set pWorkspaceFactory = New FileGDBWorkspaceFactory     'Set pWorkspaceFactory = New FileGDBScratchWorkspaceFactory     'Se...

[vb title="VBA"] 'ArcCatalogでフォルダ内のフィーチャクラスを再帰検索 Public Sub GetFeatureClasses()       Dim pGxApplication As IGxApplication     Dim pGxObject As IGxObject           Set pGxApplication = Application     Set pGxObject = pGxApplication.SelectedObject           If TypeOf pGxObject Is IGxFolder Then   ...

[vb title="VBA"] '個別属性ダイアログの表示 Dim pMxApplication As IMxApplication Set pMxApplication = Application   Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument   Dim pIdentifyDialog As IIdentifyDialog Set pIdentifyDialog = New IdentifyDialog Dim pIdentifyDialog2 As IIdentifyDialog2 Set pIdentifyDial...

[vb title="VBA"] Dim pMxApplication As IMxApplication2 Set pMxApplication = Application   pMxApplication.PauseDrawing = True '描画の一時停止 pMxApplication.PauseDrawing = False '描画の再開 [/vb]

[vb title="VBA"] 'テーブルをShowした後にShowSelectedを変更しないとうまく動作しない Private Sub UIButtonControl1_Click()     Dim pMxDoc As IMxDocument     Dim pUnknown As IUnknown     Dim pLayer As ILayer     Dim pStandaloneTable As IStandaloneTable     Dim pTableWindow2 As ITableWindow2     Dim pExistingTableWindow ...