測量固有のルート オブジェクトを取得する

測量操作を実行するアプリケーションには、アプリケーションとドキュメントを表す基本オブジェクトの特別なバージョンが必要です。AeccSurveyApplication オブジェクトは継承元の AeccApplication と同じですが、その AeccSurveyApplication.ActiveDocument プロパティは AeccDocument の代わりに AeccSurveyDocument 型のオブジェクトを返します。AeccSurveyDocument オブジェクトには、プロジェクト、機器データベースなどの測量関連項目のコレクションに加え、AeccDocument のすべてのメソッドとプロパティが含まれています。

測量ルート オブジェクトを使用する場合、「Autodesk Civil Engineering Survey 6.0 Object Library」(AeccXSurvey.tlb)と「Autodesk Civil Engineering UI Survey 6.0 Object Library」(AeccXUISurvey.tlb)を参照してください。

次の例は、測量ルート オブジェクトを取得する方法を示しています。

Dim oApp As AcadApplication
Set oApp = ThisDrawing.Application
Dim sAppName As String
sAppName = "AeccXUiSurvey.AeccSurveyApplication"
Dim oSurveyApplication As AeccSurveyApplication
Set oSurveyApplication = oApp.GetInterfaceObject(sAppName)
 
' Get a reference to the currently active document.
Dim oSurveyDocument As AeccSurveyDocument
Set oSurveyDocument = oSurveyApplication.ActiveDocument