Drawings Example

Drawings Example

Sub Example_Drawings()

    ' This example returns the number of Drawings

    ' in the current project.

    Dim proj As AeccProject

    Set proj = AeccApplication.ActiveProject

    MsgBox "The number of Drawings in the current Project is: " & proj.Drawings.Count _

        , vbInformation, "Drawings Example"

End Sub