Open Example
Sub Example_Open()
' This example opens an existing project-based drawing.
Dim dwgs As AeccDrawings
Set dwgs = AeccApplication.ActiveProject.Drawings
' Specify the full path of the drawing
Dim strDwg As String
Set strDwg = AeccApplication.ActiveProject.Drawings.Item(0).FullName
' Specify the full path of the project
Dim strProject As String
Set strProject = AeccApplication.ActiveProject.FullName
dwgs.Open strDwg, strProject
End Sub