关于打开、保存和关闭图形 （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