測量ネットワークの図面オブジェクトを取得する

AutoCAD Civil 3D ユーザ インタフェースでは、測量ネットワークを構成する AutoCAD 図面オブジェクトを取得および操作できます。図面オブジェクトは、AeccSurveyNetworkEntity オブジェクトで表されます。たとえば、次のコードは、測量ネットワークを選択するようユーザに要求し、それが測量ネットワーク オブジェクトかどうかをテストした後、そのオブジェクトに関する情報を出力します。

Dim objPart As AeccSurveyNetworkEntity
Dim objEnt As AcadObject
Dim objAcadEnt As AcadEntity
Dim varPick As Variant
ThisDrawing.Utility.GetEntity objEnt, varPick, "Select the Survey Network"
If TypeOf objEnt Is AeccSurveyNetworkEntity Then
   Set objPart = objEnt
   Debug.Print objPart.Name, TypeName(objPart)
ElseIf TypeOf objEnt Is AcadEntity Then
   Set objAcadEnt = objEnt
   Debug.Print objAcadEnt.Name, TypeName(objAcadEnt)
End If