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