OpenProjectBased Example

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