-
ジオメトリの座標値を空間参照の精度に合わせる
[vb title="VBA"] 'ジオメトリ オブジェクトにはdouble型の座標値がそのまま入力できるがフィーチャにコミットすると空間参照の精度に丸められる 'IGeometry::SnapToSpatialReferenceメソッドを実行すると空間参照の精度に座標がシフトする Dim pPoint As IPoint Set pPoint = New Point 'Set pPoint.SpatialReference = pGeoDataset.Spati... -
座標系の精度・許容値
[vb title="VBA"] Dim pSpatialReferenceResolution As ISpatialReferenceResolution Dim pSpatialreferenceTolerance As ISpatialReferenceTolerance Dim pControlPrecision As IControlPrecision2 Set pSpatialReferenceResolution = pNodeLayer.FeatureClass.GetFeature(1).Shape.SplReference Set pSpatialreferenceTolerance = pSpatia... -
グラフィックからすべてのジオメトリを取得
[vb title="VBA"] Sub test() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pGraphicsContainer As IGraphicsContainer Set pGraphicsContainer = pMxDocument.FocusMap Dim pEnumGeometry as IEnumGeometry set pEnumGeometry = GetGraphicElements(pGraphicsContainer) End Sub 'グラフィックからすべ... -
空間参照パラメーターの変更
[csharp title="C#"] //SpatialReferenceFactory オブジェクト（シングルトン）の作成 System.Type t = System.Type.GetTypeFromProgID("esriGeometry.SpatialReferenceEnvironment"); ISpatialReferenceFactory srFacgtory = (ISpatialReferenceFactory)System.Activatornce(t); //パラメーターの作成 IParameter[] paramet... -
空間参照の定義（詳細）
[vb title="VBA"] '****************************************************************************** 定義 :fncCreateSpatialReference() As ISpatialReference ' 概要 :正距方位図法(AzimuthalEquidistant)（GCS_WGS84）の設定 ' 第1引数 :Double '10進緯度 ' 第2引数 :Double '10進経度 ' 戻り値 :ISpatialReference '*****************... -
空間参照の定義（簡易）
[vb title="VBA"] Function fncSpatialReference(valType As Long, blnGeographic As Boolean) As ISpatialReference 'DeveloperHelpから以下を参照 '地理座標系(pcsType) 'esriSRGeoCSType Contains 'https://desktop.arcgis.com/en/arcobjects/latest/net/webframe.htm#esriSRGeoCSType.htm 'esriSRGeoCS2Type Constants 'https://desktop.... -
空間参照の許容値・座標精度の取得
[vb title="VBA"] Dim pGeoDataset As IGeoDataset Set pGeoDataset = pFeatureLayer.FeatureClass '空間参照取得 Dim pSpatialReference As ISpatialReference Set pSpatialReference = pGeoDataset.SpatialReference Dim dblXmax As Double, dblYmax As Double, dblXmin As Double, dblYmin As Double pSpatialReference.GetDomain dblXm... -
空間参照のエクスポート
[vb title="VBA"] 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap '空間参照オブジェクトの取得 Dim pESRISpatialReference As IESRISpatialReference Set pESRISpatialReference = pMap.SpatialReference ... -
空間参照の XY 座標精度と XY 許容値を設定する方法
[vb title="VBA"] Public Sub CreateXYResolutionAndXYTolerance() Dim pSpatialReferenceFactory As ISpatialReferenceFactory2 Set pSpatialReferenceFactory = New SpatialReferenceEnvironment Dim pSpatialReference As ISpatialReference Set pSpatialReference = pSpatialReferenceFactory.CreateGeographicCoo... -
空間参照情報のテキスト出力
[vb title="VBA"] Public Sub subExportSpatialReference() 'ThisDocumentの取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'SpatalReferenceを取得 Dim pESRISpatialReference As ...
