-
3D シーンを VRML 形式でエクスポート
[vb title="VBA"] Public Sub subExportVRML() Dim pSxDocument As ISxDocument Set pSxDocument = ThisDocument Dim pScene As IScene Set pScene = pSxDocument.Scene Dim pVRMLExporter As IVRMLExporter Set pVRMLExporter = New VRMLExporter Dim pSceneExporter3d As ISceneExporter3d... -
3D マーカー エレメントの作成と移動
[csharp title="C#"] /// <summary> /// 初期化 /// </summary> /// <param name="Scene">Scene</param> private void Initialize(IScene Scene) { //ポイントエレメントを描画するレイヤの作成とシーンへの追加 IGraphicsContainer3D pGraphicsContainer3D = new GraphicsLayer3DClass(); IL... -
レイヤーが参照するフィーチャクラスの座標系の距離単位を表示
[vb title="VBA"] Private Sub getLinearUnit() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pGeoFeatureLayer As IGeoFeatureLayer Set pGeoFeatureLayer = pMxDocument.FocusMap.Layer(0) Dim pGeoDataset As IGeoDataset Set pGeoDataset = pGeoFeatureLayer.FeatureC... -
マルチパート ポリゴンを取得する方法
[vb title="VBA"] Dim pGeometryCollection As IGeometryCollection Set pGeometryCollection = New Polygon 'Polygonオブジェクトがマルチパートで作成されていることを前提 Dim pPointCollection As IPointCollection Dim pPoint As IPoint Dim i As Long Dim j As Long '個々のパート（Ring）を取得 For i = 0 To pGeometryCollection... -
ポリゴンのバーテックスを取得
[vb title="VBA"] 'ポリゴンの座標値を表示する方法 Sub subGetVertex() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pFlayer As IFeatureLayer Set pFlayer = pMxDoc.FocusMap.Layer(0) Dim pFClass As IFeatureClass Set pFClass = pFlayer.FeatureClass Dim pFeature As IFeature Set pFeature = pFClass.GetFeatur... -
ドーナツ ポリゴンの判定
ドーナツ ポリゴンが含まれているか判定する方法 IRing:: IsExterior = False -
投影法の変更（座標換算）
[vb title="VBA"] Public Sub Conversion() '空間参照の作成 Dim pSpatialReferenceFactory As ISpatialReferenceFactory = New SpatialReferenceEnvironment Dim pGCS_JGD2000 As IGeographicCoordinateSystem = pSpatialReferenceFactory.CreateGeographicCoordinateSystem( _ CType(esriSRGeoCS3Type.esriSRGeoCS_Jap... -
データ フレームの地理座標系変換を取得
[vb title="VBA"] Public Sub GetGeoTransformationFromMap() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pMapGeographicTransformations As IMapGeographicTransformations Set pMapGeographicTransformations = pMxDocument.FocusMap Dim pGeoTransformationOperationSet As IGe... -
地理座標系変換による座標変換
[vb title="VBA"] '地理座標系変換 Public Sub Project() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pGCS_Tokyo As ISpatialReference Set pGCS_Tokyo = fncSpatialReference(esriSRGeoCSType.esriSRGeoCS_Tokyo, True) Dim pGCS_JGD_2000 As ISpatialReference Set pGCS_JGD_2000 = fncSpatialReference(esriSRGe... -
中心から指定した東西南北の地点を通る疑似楕円
[vb title="VBA"] Public Sub Test_New() '現在のドキュメントを取得 Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument 'アクティブなデータフレームの取得 Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'レイヤを取得 Dim pLayer As ILayer Set pLayer = pMap.Layer(...
