NewProjectBased Example

NewProjectBased Example

Sub Example_NewProjectBased()

    ' This example creates a new project-based drawing.

    Dim doc As AeccDocument

    Dim newDoc As AeccDocument

    Set doc = AeccApplication.ActiveDocument

    ' Specify the full path of the new drawing

    Dim strNewDwg As String

    strNewDwg = doc.Path + "\New Drawing"

    ' Specify the full path of the template

    Dim strTemplate As String

    strTemplate = AeccApplication.Application.Preferences.Files.TemplateDwgPath + "\acad.dwt"

    Set newDoc = doc.NewProjectBased(strTemplate, strNewDwg)

    MsgBox "The new drawing is named:" & newDoc.Name, vbInformation, "NewProjectBased Example"

End Sub