OpenProjectBased Example
Sub Example_OpenProjectBased()
' This example opens the first existing project-based drawing
' in the collection.
Dim dwg As AeccDrawing
Dim doc As AeccDocument
Dim openDoc As AeccDocument
Set dwg = AeccApplication.ActiveProject.Drawings.Item(0)
Set doc = AeccApplication.ActiveDocument
' Specify the full path of the drawing
Dim strDwg As String
strDwg = dwg.FullName
Set openDoc = doc.OpenProjectBased(strDwg)
MsgBox "The name of the opened drawing is " & openDoc.Name, _
vbInformation, "OpenProjectBased Example"
End Sub