コリドー固有の基本オブジェクトにアクセスする

コリドーにアクセスするアプリケーションには、アプリケーションとドキュメントを表す基本オブジェクトの特別なバージョンが必要です。AeccRoadwayApplication オブジェクトは、継承元の AeccApplication と同じですが、その AeccRoadwayApplication.ActiveDocument プロパティは AeccDocument の代わりに AeccRoadwayDocument 型のオブジェクトを返します。AeccRoadwayDocument オブジェクトには、コリドー、サブアセンブリ、スタイル オブジェクトなどの道路関連の項目のコレクション、および AeccDocument のすべてのメソッドとプロパティが含まれています。

コリドー ルート オブジェクトを使用する場合、「Autodesk Civil Engineering Corridor 6.0 Object Library」(AeccXRoadway.tlb)と「Autodesk Civil Engineering UI Corridor 6.0 Object Library」(AeccXUIRoadway.tlb)を参照してください。

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

Dim oApp As AcadApplication
Set oApp = ThisDrawing.Application
Dim sAppName As String
sAppName = "AeccXUiRoadway.AeccRoadwayApplication"
Dim oRoadwayApplication As AeccRoadwayApplication
Set oRoadwayApplication = oApp.GetInterfaceObject(sAppName)
 
' Get a reference to the currently active document.
Dim oRoadwayDocument As AeccRoadwayDocument
Set oRoadwayDocument = oRoadwayApplication.ActiveDocument