法面展開計画線にアクセスする

AeccSite:FeatureLines プロパティは、図面内のグレーディング計画線のコレクションです。このコレクションには、AutoCAD Civil 3D ユーザ インタフェースの[プロスペクター]タブで使用できるタイプの計画線のみが含まれ、法面展開計画線または投影計画線は含まれていません。ただし、プロンプトでユーザに図面内の計画線オブジェクトを選択させることにより、これらのタイプの計画線に関する情報をプログラムで取得できます。次のコードでは、プロンプトでユーザに計画線を選択させ、その計画線に含まれているポイント数を出力します。

Dim objPart As AeccLandFeatureLine
Dim objEnt As AcadObject
Dim objAcadEnt As AcadEntity
Dim varPick As Variant
ThisDrawing.Utility.GetEntity objEnt, varPick, "Select the polyline/feature line"
If TypeOf objEnt Is AeccLandFeatureLine Then
   Set objPart = objEnt
   Debug.Print TypeName(objPart)
   Dim varArray As Variant
   varArray = objPart.GetPoints()
   Debug.Print "Number of points = " & UBound(varArray)
ElseIf TypeOf objEnt Is AcadEntity Then
   Set objAcadEnt = objEnt
   Debug.Print TypeName(objAcadEnt)
   If (g_oAeccDoc.Sites.Count = 0) Then
      g_oAeccDoc.Sites.Add "TestSite"
   End If
   Set objPart = g_oAeccDoc.Sites(0).FeatureLines.AddFromPolyline(objAcadEnt.ObjectID, "Standard")
End If