VBA– tag –
-
Scene・Globe の再描画
[vb title="VBA"] pSceneGraph.RefreshViewers 'ビューの再描画 pSceneGraph.ActiveViewer.Redraw True pSceneGraph.Invalidate pFeatureLayer, True, True [/vb] -
ArcCatalog でフォルダー内のフィーチャクラスを再帰検索
[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"] '選択レイヤのワークスペースで編集開始 Private WithEvents EditEvents As Editor Private m_pEditor As IEditor Private Sub StartEditing() '------------- 選択レイヤのチェック ---------------------------------- Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument If pMxDoc.SelectedL... -
ドッカブル ウィンドウの表示
[vb title="VBA"] Public Sub ShowDockableWindow() Dim pDockableWindowManager As IDockableWindowManager Set pDockableWindowManager = Application Dim pUID As IUID Set pUID = New UID 'pUID.Value = "{EA61CE18-4B4F-4767-BA31-A11EC1C63DBB}" '[フィーチャ作成] ウィンドウ pUID.Value ... -
ArcMap の TOC で選択したレイヤーのフィールド数をカウント
[vb title="VBA"] Public Sub FieldCount() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocument.SelectedLayer Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFeatureLayer.FeatureClass MsgBox "選択レイヤのフィールド数 : " &... -
Oracle スタンドアロン テーブルを直接更新する方法
[vb title="VBA"] 'ArcSDEと同居しているOracleスタンドアロンテーブルに対して更新する方法 'IWorkspace::ExecuteSQL：SQLを発行できるが戻り値が取得できない 'ITransactions：編集セッション外でトランザクションを制御するのに使用 '使用ライセンスはEditor以上、Geodataabse Updateを使用すること 'ESRI Support #631518 'IWorkspace::E... -
リプレゼンテーションを適用してフィーチャ レイヤーをマップに追加
[vb title="VBA"] 'リプレゼンテーションを適用してフィーチャ レイヤをマップに追加 'Add a Feature Class with Representations Programmatically 'http://help.arcgis.com/en/sdk/10.0/vba_desktop/conceptualhelp/index.html#//00010000003q000000 Public Sub AddRepresentationClass() On Error GoTo errorhandler Dim pWorkspaceFactor... -
ドーナツ ポリゴンの判定
ドーナツ ポリゴンが含まれているか判定する方法 IRing:: IsExterior = False -
ArcGIS Engine によるマップドキュメントの保存方法
[vb title="VBA"] 'ArcGIS Engineによるドキュメントファイルの保存方法 'ArcGIS Engineで使用するMapControlには、IApplication::SaveDocumentのようなメソッドが存在しない。そのため、ドキュメントファイルを保存するには、新規MapDocumentクラスを作成して保存する。 '※SceneControlやGlobeControlではどのように保存するのだろうか?... -
TimeQueryFilter の使用方法
[vb title="VBA"] Public Sub TimeQuery() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument '[タイム スライダ] ウィンドウ Dim pMapTimeDisplay As IMapTimeDisplay Set pMapTimeDisplay = pMxDocument.FocusMap Dim pTimeReference As ITimeReference Set pTimeReference = pMapT...
