ArcGIS– category –
-
個別属性ダイアログの表示
[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... -
IEngineEditEvents を使用したカスタム イベント
[csharp title="C#"] //デリゲート変数宣言 private IEngineEditEvents_Event m_pEngineEditEvents; private void Initialize() { //イベントハンドラの追加 IEngineEditor pEngineEditor = new EngineEditorClass(); m_pEngineEditEvents = (IEngineEditEvents_Event)pEngineEditor; m_pEngineEditEvents.OnVertexMoved ... -
UtilityNetworkAnalysisExt オブジェクトの取得と解析結果オプションの変更
ユーティリティネットワーク解析 ツールバー → 解析 → オプションから設定する、解析オプション ダイアログの解析結果 タブは以下のようにアクセスして設定します。 IApplication::FindExtensionByCLSID を用いて、UtilityNetworkAnalysisExt オブジェクトを取得します。このオブジェクトにあるプロパティで、ダイアログ内の設定を変更できま... -
VBA で現在のドキュメントファイルのフルパスを表示する方法
[vb title="VBA"] '現在のドキュメントファイルのフルパスを表示する方法 'ドキュメントを保存しなければエラーとなるので注意 Sub GetDocumentPath() Dim pDocument As IDocument Set pDocument = ThisDocument Dim pVBProject As VBProject Set pVBProject = pDocument.VBProject Debug.Print pVBProject.... -
MovePointFeedback・MoveLineFeedback・MovePolygonFeedback の利用
[csharp title="C#"] //http://resources.esri.com/help/9.3/arcgisengine/arcobjects/esriDisplay/Moving_Feedback_Example.htm //アドイン例 using System; using System.Collections.Generic; using System.Text; using System.IO; using ESRI.ArcGIS.ArcMapUI; using ESRI.ArcGIS.Display; using ESRI.ArcGIS.Carto; using ESRI.ArcGIS... -
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 "選択レイヤのフィールド数 : " &... -
Open メソッドで AccessWorkspace を取得
[vb title="VBA"] Dim pPropertySet As IPropertySet Set pPropertySet = New PropertySet pPropertySet.SetProperty "DATABASE", "D:\Workspace\PGDB.mdb" 'ワークスペース名 Dim pWorkspaceFactory As IWorkspaceFactory Set pWorkspaceFactory = New AccessWorkspaceFactory Dim pWorkspace As IWorkspace Set pWorks... -
コード値ドメインの利用
[vb title="VBA"] Sub GetUniqueVal() Dim pMxdoc As IMxDocument Dim pMap As IMap Dim pFLayer As IFeatureLayer Dim pFClass As IFeatureClass Dim pFCursor As IFeatureCursor Set pMxdoc = ThisDocument Set pMap = pMxdoc.FocusMap Set pFLayer = pMap.Layer(0) Set pFClass = pFLayer.FeatureClass Dim pFields As IFields Dim i As L... -
属性検索時の Where 句シンタックスを調べる方法
[vb title="VBA"] Private Sub GetSpecialCharacter() 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap '最上位レイヤの取得 Dim pLayer As IFeatureLayer Set p... -
フィーチャクラスの作成に必要な Fields オブジェクトの取得
[vb title="VBA"] 'FeatureClassDescriptionオブジェクトの作成 Dim pObjectClassDescription As IObjectClassDescription Set pObjectClassDescription = New FeatureClassDescription 'Fieldsオブジェクトの取得 Dim pFields As IFields Set pFields = pObjectClassDescription.RequiredFields [/vb]
