-
エンベロープから楕円を作成
[vb title="VBA"] Dim pPoint As IPoint Set pPoint = New Point Call pPoint.PutCoords(422480, 324767.31) '中心点 Dim pEnvelope As IEnvelope Set pEnvelope = pPoint.Envelope pEnvelope.XMin = pPoint.X - 5 '楕円の左端 pEnvelope.XMax = pPoint.X + 2 '楕円の右端 pEnvelope.YMin = pPoint.Y - 2 '楕円の上... -
円ジオメトリへアクセスして半径を変更
[csharp title="C#"] //エレメントの取得 IGraphicsContainerSelect pGCS = (IGraphicsContainerSelect)axMapControl1.Map; IElement pElement = pGCS.SelectedElement(0); //エレメントからジオメトリを取得 IGeometry pGeometry = pElement.Geometry; ISegmentCollection pSegmentCollection = (ISegmentCollection)pGeometry; ICircular... -
一次元低いジオメトリを取得する方法
[vb title="VBA"] '例：ポリゴンのアウトラインをポリラインで取得する 'ITopologicalOperator::Boundary [/vb] -
Polyline の M 値から Point を取得
[vb title="VBA"] Dim pPolyline As IPolyline Set pPolyline = pFeature.Shape Dim pPoint As IPoint Set pPoint = New Point pPolyline.QueryPoint esriNoExtension, 0.11, False, pPoint Debug.Print pPoint.X, pPoint.Y [/vb] -
NTv2 による TKY2JGD 変換
[vb title="VBA"] 'NTv2Transformationによる座標変換 Public Sub GetGeographicTransformations() Dim pMxDocument As IMxDocument Set pMxDocument = ThisDocument Dim pMap As IMap Set pMap = pMxDocument.FocusMap 'NTv2Transformationの作成 Dim pNewGeoTransformation As IGeoTransformation ... -
IProximityOperator::ReturnNearestPoint で最近接点を取得
[csharp title="C#"] private void proximity() { IFeatureLayer pFeatureLayer = (IFeatureLayer)axMapControl1.Map.get_Layer(0); //対象レイヤ IFeatureClass pFeatureClass = pFeatureLayer.FeatureClass; //検索元フィーチャの取得 IProximityOperator pProximityOperator = (IProximityOperator)pFeatureClass.Ge... -
IProximityOperator でポリゴンとポイントの近接点を取得
[vb title="VBA"] 'IProximityOperator でポリゴンとポイントの近接点の取得 Sub GetQueryNearestPoint() Dim pPoint(3) As IPoint Set pPoint(0) = New Point Set pPoint(1) = New Point Set pPoint(2) = New Point Set pPoint(3) = New Point Dim pInPoint As IPoint Set pInPoint = New Point ... -
IPolygon2::QueryExteriorRingsEx-QueryExteriorRings の回避方法
[vb title="Visual Basic"] 'http://resources.arcgis.com/en/help/arcobjects-java/concepts/engine/index.html#//00010000073v000000 '.NET では、ExteriorRingCount メソッドと QueryInteriorRingsEx メソッドは動作しない。 'IPolygon2.QueryInteriorRingsEx Method 'http://resources.arcgis.com/en/help/arcobjects-net/componenth... -
IGeometryProject メソッドの使用方法
[vb title="VBA"] Private Sub ProjectCoordinates() Dim pSpatialReferenceFactory As ISpatialReferenceFactory Set pSpatialReferenceFactory = New SpatialReferenceEnvironment '変換前の空間参照（地理座標系：WGS1984） Dim pGeographicCoordinateSystem As IGeographicCoordinateSystem Set pGeographicCoordi... -
GeocentricTranslation による地理座標系変換
[vb title="VBA"] 'GeocentricTranslationの作成 '3 パラメータ変換（地心変換） Public Function CreateGeoTransformationTKYJGD() As IGeoTransformation Dim pSpatialReferenceFactory As ISpatialReferenceFactory Set pSpatialReferenceFactory = New SpatialReferenceEnvironment '定数による作成 Dim pGeocentr...
