-
プログレス ダイアログ（ProgressDialog）の作成
[csharp title="C#"] //呼び出し main m = new main(); m.ShowProgressDialog(ArcMap.Application, 0, 100, "テスト"); //定義 class main { public void ShowProgressDialog(ESRI.ArcGIS.Framework.IApplication application, System.Int32 int32_Minimum, System.Int32 int32_Maximum, System.String string_Message) ... -
ドッカブル ウィンドウのサイズ変更
[vb title="VBA"] Public Sub MoveTableDockWindow() Dim pDockableWindowManager As IDockableWindowManager = My.ArcMap.Application Dim pUID As IUID = New UIDClass() pUID.Value = "{2B740D8F-442C-4975-BCE7-59D9949DAD9E}" 'TableDockWindow Dim pDockableWindow As IDockableWindow= pDockableWindowMana... -
ドッカブル ウィンドウの表示
[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 ... -
ツールバーの表示制御
[vb title="VBA"] Public Sub ModifyToolbar() 'ThisDocumentの取得 Dim pDocument As IDocument Set pDocument = ThisDocument 'CommandBarsの取得 Dim pCommandBars As ICommandBars Set pCommandBars = pDocument.CommandBars 'CommandBarの取得 Dim pCommandBar As ICommandBar Set pCo... -
ツールバーの形状制御
[vb title="VBA"] Public Sub ShowTool() Dim pDocument As IDocument Set pDocument = ThisDocument Dim pCommandBars As ICommandBars Set pCommandBars = pDocument.CommandBars Dim pCommandBar As ICommandBar Set pCommandBar = pCommandBars.Find("Project.講習会ツール") 'カスタムツ... -
既存コマンドの CLSID を取得する方法
[vb title="VBA"] '■ThisDocument －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ Dim m_pCustomizationFilterr As ICustomizationFilter Private Function MxDocument_BeforeCloseDocument() As Boolean Application.UnlockCustomization "password" End Function Private Function MxDoc... -
起動している ArcGIS Desktop アプリケーションの取得
[vb title="VBA"] Public Sub GetRunningApplications() Dim pAppROT As IAppROT Set pAppROT = New AppROT Dim pApp As IApplication Set pApp = pAppROT.Item(1) Debug.Print pApp.hWnd End Sub [/vb] -
外部アプリケーションから ArcGIS を制御する方法
[vb title="VBA"] '外部アプリケーションから起動しているArcGISアプリケーションを制御するには、IAppROTを使用する。アプリケーション内のコマンドを実行するには、ツールバーに追加しておく必要がある。マクロを実行する際も同様。 '下のコード例は、Projectテンプレート内のThisDocumentモジュールに作成したMyMacroプロシージャを実行... -
アプリケーションのカレント ディレクトリーを取得する方法
[vb title="VBA"] FileSystem.CurDir Dim pDocument As IDocument Set pDocument = ThisDocument Dim pVBProject As VBProject Set pVBProject = pDocument.VBProject Replace pVBProject.FileName, ".mxd", "" Debug.Print pVBProject.FileName [/vb] -
VBA で現在のドキュメントファイルのフルパスを表示する方法
[vb title="VBA"] '現在のドキュメントファイルのフルパスを表示する方法 'ドキュメントを保存しなければエラーとなるので注意 Sub GetDocumentPath() Dim pDocument As IDocument Set pDocument = ThisDocument Dim pVBProject As VBProject Set pVBProject = pDocument.VBProject Debug.Print pVBProject....
