IT– category –

[vb title="VBA"] Public Sub OpenMapDocument()     Dim pMapDocument As IMapDocument     Set pMapDocument = New MapDocument           pMapDocument.Open "D:\Workspace\MapDocument.mxd"           '任意のデータフレームを取得     Dim pActiveView As IMap     Set pActiveView = pMapDocument.Map(0)           pMapDocu...

[vb title="VBA"] Public Sub ScaleElement()     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pGraphicsContainerSelect As IGraphicsContainerSelect     Set pGraphicsContainerSelect = pMxDocument.PageLayout           Dim pElement As IElement     Set pElement = pGraphicsContainerSelect....

[vb title="VBA"] Sub setFullExtent()     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           Dim pMap As IMap     Set pMap = pMxDocument.FocusMap           Dim pActiveView As IActiveView     Set pActiveView = pMap           Dim pFeatureLayer As IFeatureLayer     Set pFeatureLayer = pMap.Layer...

[vb title="VBA"] Sub GetOriginalPath()     'ThisDocumentの取得     Dim pMxDocument As IMxDocument     Set pMxDocument = ThisDocument           'アクティブなデータフレームの取得     Dim pMap As IMap     Set pMap = pMxDocument.FocusMap           '最上位レイヤの取得     Dim pLayer As IDataLayer     Set pLayer = pMap.La...

[csharp title="C#"] IDataLayer2 pDataLayer = (IDataLayer2)pLayer; pDataLayer.Disconnect(); //データ ソースを切断（必須ではありませんが、明示的に古いデータ参照を切断します）   IRasterLayer pRasterLayer = (IRasterLayer )pLayer; pRasterLayer.CreateFromFilePath(@"D:\fgdb\fgdb_1.gdb\RasterLayer"); //パスはラス...

C ランタイムライブラリのロードでエラー R6034 が発生するのは、マニフェストがないために発生するエラーとなっています。マニフェストとともにアプリケーションがビルドされるようにするとエラーが回避できます。 C Run-Time Error R6034 以前にも状況は異なりますが、同様のエラーの発生に関して問い合わせがありその時に、回避方法として...

[javascript title="JavaScript"] var graphic = new Graphic(evt.geometry, symbol);    var extent = graphic.geometry.getExtent(); //グラフィックからジオメトリの Extent を取得 var center = extent.getCenter(); // Extent から中心（Point）を取得 window.alert("X:" + center.x + ", Y:" + center.y + " ...

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

[python title="Python"] import math radian = math.atan((Y2-Y1)/(X2-X1)) degrees = radian * 180 / math.pi [/python]

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