測量図形に線分を追加する

測量図形に追加される各線分は、最後の線分または円弧の終点から作成されます。新しい線分は、特定のポイント位置、絶対方位角に沿った距離、または最後の線分の方向を基準とする方位角に沿った距離を終点として作成できます。測量図形に線分と円弧が存在しない場合、最初に追加される線分は、次の線分または円弧の始点を設定するだけです。

AddLineByPoint

AddLineByPoint は、線分を測量図形の指定されたポイント位置まで追加します。オプションのパラメータで参照用の測量ポイントを指定すると、その測量ポイントの変更に応じて測量図形の頂点も変更されます。

' Draw a line to the location of survey point 3001.
Dim oPoint1 As AeccSurveyPoint
Set oPoint1 = oSurveyProject.GetPointByNumber(3001)
oFigure.AddLineByPoint oPoint1.Easting, oPoint1.Northing, 3001

AddLineByAzimuthDistance

AddLineByAzimuthDistance は、測量プロジェクトの主軸から指定の角度で指定の長さの線分を測量図形に追加します。

' Draw a line 30 meters long at 10 degrees from the major axis.
oFigure.AddLineByAzimuthDistance 0.17453, 30

AddLineByDeltaAzimuthDistance

AddLineByDeltaAzimuthDistance は、直前の線分の終点から指定の角度で指定の長さの線分を測量図形に追加します。

' Draw a line 20 meters long at 270 degrees from the
' previous line.
oFigure.AddLineByDeltaAzimuthDistance 4.7124, 20