-
属性テーブルのソート順でレコードを取得
[vb title="VBA"] '属性テーブルのソート順でレコードを取得 Sub GetSortedRows() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = pMxDocument.FocusMap.Layer(0) Dim pTableWindow As ITableWindow Set pTableWindow = New ... -
属性テーブル ウィンドウへのアクセス
[vb title="VBA"] Private Sub InitEvents() Dim pAppWindows As IApplicationWindows Dim pWindowSet As ISet Dim pTableWindow As ITableWindow Dim pTableControl As ITableControl Dim pSelSet As ISelectionSet Dim pTableWindow3 As ITableWindow3 Set pTableWindow3 = New TableWindow pTableW... -
属性テーブル ウィンドウの位置とサイズを変更
[vb title="VBA"] Public Sub MoveTableDockWindow() Dim pDockableWindowManager As IDockableWindowManager Set pDockableWindowManager = Application Dim pUID As IUID Set pUID = New UID pUID.Value = "{2B740D8F-442C-4975-BCE7-59D9949DAD9E}" 'TableDockWindow Dim pDockableWindow As IDockableWind... -
概観図の表示
[vb title="VBA"] '概観図の表示 Dim pDataWindowFactory As IDataWindowFactory Set pDataWindowFactory = New OverviewWindowFactory Dim pDataWindow As IDataWindow Set pDataWindow = pDataWindowFactory.Create(applicaiton) Dim pOverviewWindow As IOverviewWindow Set pOverviewWindow = pDataWindow Dim pOverview As IOverv... -
オペレーション スタックの取得
[vb title="VBA"] Sub GetOperationStacks() Dim i As Long Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pOperationStack As IOperationStack Set pOperationStack = pMxDocument.OperationStack Dim pOperation As IOperation For i = 0 To pOperationStack.C... -
TOC の選択アイテムへのアクセス
[vb title="VBA"] 'TOC（[コンテンツ] ウィンドウ）の選択アイテムへのアクセス Public Sub ContentsView() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pContentsView As IContentsView3 Set pContentsView = pMxDocument.CurrentContentsView If TypeOf pContentsView.SelectedIt... -
ArcMap のデータフレームのマップ単位が度分秒であるかの判断
[vb title="VBA"] 'マップ単位を「度 分 秒」に設定できない。またその設定の判別もできない。以下は回避策 'NIM031475 'CQ00151828 Sub SetDisplayUnitsDD() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pMap As IMap Set pMap = pMxDocument.FocusMap Dim pReportUnitFormat As I... -
ArcMap のダイアログ表示
IApplication::ShowDialog esriMxDlgIDs Constants -
デフォルト ジオデータベースのパス設定
IGxCatalogDefaultDatabase.DefaultDatabaseName IGxCatalogDefaultDatabase.DefaultDatabaseNameNoValidate -
レイヤからサーフェス（ISurface）の取得
[vb title="VBA"] 'レイヤからサーフェス（ISurface）の取得 Private Function GetSurfaceFromLayer(Optional sLayer, Optional OrActualLayer As ILayer) As ISurface Dim pLayer As ILayer Dim pTin As ITin Dim pRLayer As IRasterLayer Dim pTLayer As ITinLayer Dim pSurf As IRasterSurface Dim pBands As IRa...
