YouTube | Facebook | Twitter  Feed

真円を作成する方法

2016/9/1 (木)

//中心点座標
double X = ; //UTM座標系のX座標値
double Y = ; //UTM座標系のY座標値
double radius = 10500; //半径
 
//中心点 Point 作成
IPoint pPCenter = new PointClass();
pPCenter.PutCoors(X,Y);
 
//円周接点 Point 作成
IPoint pFromTo As IPoint = new PointClass();
pFromTo.PutCoords(X + radius, Y);
 
//円セグメントの作成
ICircularArc pCircularArc = new CircularArcClass();
pCircularArc.PutCoords(pPCenter, pPFromTo, pPFromTo, esriArcOrientation.esriArcClockwise);
 
//ポリゴンの作成
ISegmentCollection pSegmentCollection = new PolygonClass();
pSegmentCollection.AddSegment((ISegment)pCircularArc);
Sub subCreateCircle()
    '中心
    Dim pPCenter As IPoint
    Set pPCenter = New Point
    pPCenter.PutCoords 0, 0
     
    '円周接点
    Dim pPFromTo As IPoint
    Set pPFromTo = New Point
    pPFromTo.PutCoords 10, 10
     
    '円ジオメトリの作成
    Dim pCircularArc As ICircularArc
    Set pCircularArc = New CircularArc
    pCircularArc.PutCoords pPCenter, pPFromTo, pPFromTo, esriArcClockwise
 
End Sub

関連記事

  • この記事を書いた人

羽田 康祐

Esri認定インストラクター、GIS上級技術者、測量士補、潜水士。GISy / GISc とその関連分野である地理学・地図学について日々の出来事で学んだ記憶を記録するためにブログを書いています。行動原理は伊達と酔狂。好きな地形は圏谷。好きな地図投影法はパースクインカンシャル図法。呉市生まれ広島市出身。GIS を使った自己紹介はこちら

-プログラミング, ArcGIS
-, ,

© 2020 WINGFIELD since1981