プログラミング– category –
-
マップから選択フィーチャを取得
[csharp title="C#"] IEnumFeature pEnumFeature = (IEnumFeature)pMap.FeatureSelection; IEnumFeatureSetup pEnumFeatureSetup = (IEnumFeatureSetup)pEnumFeature; pEnumFeatureSetup.AllFields = true; //このプロパティを true に設定しないと OID が取得できない pEnumFeatureSetup.Recycling = false; [/csharp] -
レンダラーによるシンボルの回転
[vb title="VBA"] Public Sub RotationRenderer() '現在のドキュメントを取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'レイヤを取得 Dim pLayer As ILayer Set pLayer = pMa... -
DebugView を使用して値を外部に書き出す方法
[vb title="VBA / VB6"] Private Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) Sub test() Dim strDebug As String strDebug = "Message" OutputDebugString aa End Sub [/vb] http://debugview.en.softonic.com/ http://... -
コンソールをキー入力で一時停止
[csharp title="C#"] // キー入力を待つ(止める目的なら、どっちでも良い) Console.WriteLine("何かキーを押してください。"); //Console.ReadLine(); Console.ReadKey(); [/csharp] -
ExportWebMap
[js title="JSON"] { "operationalLayers": [ { "id": "layer1", "url": "http://<servername>:6080/arcgis/rest/services/Demo/Japan/MapServer", "opacity": 1, "visibility": true, ... -
データ ドリブン ページの連続出力
[python title="Python"] import arcpy mxd = arcpy.mapping.MapDocument("CURRENT") for pageNum in range(1, mxd.dataDrivenPages.pageCount + 1): mxd.dataDrivenPages.currentPageID = pageNum name = mxd.dataDrivenPages.pageRow.メッシュ番号txt arcpy.mapping.ExportToJPEG(mxd, r"C:\Temp\test" + ... -
64bit OS 環境の Visual Studio 2010 スタンドアロン アプリケーションに ArcGIS コントロールを使用する場合の設定方法
[xml title="XML"] <!-- 64bit OS環境のVisual Studio 2010でArcGISコントロールを使用したスタンドアロン アプリケーションを構築する場合の設定方法 プロジェクトのXML内に以下のXMLを埋め込む --> <!-- Workaround for VS2010 .NET 3.5 application referencing x86 assembly in resx file on 64-bit OS http://soci... -
GIS サーバのプロパティを取得・設定
ArcGIS Server 10 以前を対象 [vb title="VBA"] Public Sub GetGISServerConnection() Dim pGISServerConnection As IGISServerConnection Set pGISServerConnection = New GISServerConnection pGISServerConnection.Connect "zeke" Dim pServerObjectAdmin As IServerObjectAdmin Set pServerObjectAd... -
切断解析
[csharp title="C#"] //切断解析の例 //FindFlowUnreachedElements メソッド実行後にマウスクリックすると例外が発生し //処理が中断される。これを防ぐにはマウス操作を禁止するしかない //例として Win32API の EnableWindow を使用する using System.Runtime.InteropServices; public static void Search(IApplication pApp) { Ar... -
LAS から TIN を作成
[vb title="VBA"] Sub GetInterpolateShapeFromLAS() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pLasDatasetLayer As ILasDatasetLayer Set pLasDatasetLayer = pMxDocument.FocusMap.Layer(0) Dim pSurface As ISurface Set pSurface = pLasDatasetLayer.GetCurrentSurface ...
