关于打开、保存和关闭图形 （VBA/ActiveX）

集合和文档对象提供对 AutoCAD 文件功能的访问。Documents

若要创建新图形或打开现有图形，请使用集合中的方法。该方法创建一个新图形，并将该图形添加到集合中。该方法将打开现有图形。集合中还有一种方法，用于关闭在 AutoCAD 任务中打开的所有图形。DocumentsAddDocumentsOpenCloseDocuments

使用 或 方法保存图形。有时，您需要检查活动图形是否有任何未保存的更改。在退出AutoCAD任务或开始新图形之前执行此操作是个好主意。使用该属性可确保当前图形不包含任何未保存的更改。SaveSaveAsSaved

要导入和导出图形，请在对象上使用“导入”和“方法。ExportDocument

Sub Ch3_OpenDrawing()
  Dim dwgName As String
  dwgName = "c:\campus.dwg"
  If Dir(dwgName) <> "" Then
    ThisDrawing.Application.Documents.Open dwgName
  Else
    MsgBox "File " & dwgName & " does not exist."
  End If
End Sub

Sub Ch3_NewDrawing()
  Dim docObj As AcadDocument
  Set docObj = ThisDrawing.Application.Documents.Add
End Sub

Sub Ch3_SaveActiveDrawing()
  ' Save the active drawing under the current name
  ThisDrawing.Save

  ' Save the active drawing under a new name
  ThisDrawing.SaveAs "MyDrawing.dwg"
End Sub

Sub Ch3_TestIfSaved()
  If Not (ThisDrawing.Saved) Then
    If MsgBox("Do you wish to save this drawing?", _
      vbYesNo) = vbYes Then
      ThisDrawing.Save
    End If
  End If
End Sub