VBA– tag –
-
フィーチャクラスから個別値一覧を取得
[vb title="VBA"] Dim pMxDoc As IMxDocument, pFLayer As IFeatureLayer, pData As IDataStatistics Dim pCursor As ICursor, pStatResults As IStatisticsResults Set pMxDoc = ThisDocument Set pFLayer = pMxDoc.FocusMap.Layer(0) Set pCursor = pFLayer.Search(Nothing, False) Set pData = New DataStatistics pData.Field = "... -
ArcMap の TOC で複数の選択マップやレイヤーを取得する方法
[vb title="VBA"] Sub GetSelectedItems() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pContentsView As IContentsView Set pContentsView = pMxDocument.ContentsView(0) '最上位データフレーム Dim mySet As ISet Set mySet = New esriSystem.Set Dim pVariant As... -
アクティブ データ フレームの指定した名称のレイヤー表示を切り替え
[vb title="VBA"] Public Sub ChangeVisibleLayer(Optional LayerName As String = "") If LayerName = "" Then LayerName = InputBox("表示を切り替えるレイヤを入力してください。", "レイヤ表示切り替え") If LayerName = "" Then Exit Sub End If ... -
コンテンツ ウィンドウで凡例の展開・格納
[csharp title="C#"] ILegendInfo pLegendInfo = pFeatureLayer; for (long i = 0; i <= pLegendInfo.LegendGroupCount - 1; i++) { pLgendGroup = pLegendInfo.LegendGroup(i); pLgendGroup.Visible = false; } pMxDocument.UpdateContents(); [/csharp] [vb title="VBA"] Dim pLegendInfo As ILegendInfo Set pLegendInfo =... -
テーブル結合の解除
[vb title="VBA"] 'http://gis.stackexchange.com/questions/11088/how-do-i-remove-a-join-between-a-standalone-table-and-a-feature-layer-with-arc 'VBA ヘルプにサンプルが記載 'Samples > Tables > 'How to remove all joins from a layer or table in ArcMap Sub RemoveAllJoins() On Error GoTo EH Dim pMxDocument ... -
ラスター ファイルからレイヤーを追加
[vb title="VBA"] 'パス・ファイル設定 Dim strPath As String Dim strFile As String strPath = "D:\Workspace\_Hobby\GPS2\Photo" strFile = "P1200586.JPG" 'ラスタ ワークスペースへアクセス Dim pWorkspaceFactory As IWorkspaceFactory Set pWorkspaceFactory = New RasterWorkspaceFactory Dim pRasterWorksp... -
既存コマンドの実行
[vb title="VBA / VB6"] 'Developer Help > General reference > Names and IDs or Commands in ArcGIS Engine 'ArcGIS Desktop '****************************************************************************** 'ArcMapの「データの追加」コマンド Dim pUID As New UID 'pUID.Value = "{E1F29C6B-4E6B-11D2-AE2C-080009EC732A... -
レイアウト ビューでマップのエクスポート
[vb title="VBA"] Public Sub ExportJPEG() Dim pMxApplication As IMxApplication Dim pMxDocument As IMxDocument Dim pActiveView As IActiveView Dim pPageLayout As IPageLayout Dim pGraphicsContainerSelect As IGraphicsContainerSelect Dim pElement As IElement Dim pExport As IExport Dim pVisi... -
ASCII グリッドをラスターに変換して空間参照を定義
[vb title="VBA"] 'ラスタをASCIIグリッドに変換し、さらに投影法を定義して新しいRasterDatasetを作成するサンプル 'ラスタの設定を変更すると上書きできないので、ASCII変換用に一旦テンポラリのRasterDatasetを作成している Sub subConvertASCII2Raster() 'ASCIIファイルフルパス Dim srcFile As String srcFile = "F:\My Docume... -
空間参照のエクスポート
[vb title="VBA"] 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap '空間参照オブジェクトの取得 Dim pESRISpatialReference As IESRISpatialReference Set pESRISpatialReference = pMap.SpatialReference ...
