プログラミング– 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...

[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]

[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" + ...

[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...

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...

[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 ...