关于打开、保存和关闭图形 （VBA/ActiveX）
集合和文档对象提供对 AutoCAD 文件功能的访问。Documents 若要创建新图形或打开现有图形，请使用集合中的方法。该方法创建一个新图形，并将该图形添加到集合中。该方法将打开现有图形。集合中还有一种方法，用于关闭在 AutoCAD 任务中打开的所有图形。DocumentsAddDocumentsOpenCloseDocuments 使用 或 方法保存图形。有时，您需要检查活动图形是否有任何未保存的更改。在退出AutoCAD任务或开始新图形之前执行此操作是个好主意。使用该属性可确保当前图形不包含任何未保存的更改。SaveSaveAsSaved 要导入和导出图形，请在对象上使用“导入”和“方法。ExportDocument 打开现有图形本示例使用该方法打开现有图形。VBA 函数用于在尝试打开文件之前检查文件是否存在。应更改图形文件名或路径，以指定系统上的现有AutoCAD图形文件。OpenDir 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
创建新图形本示例使用该方法基于缺省模板创建新图形。Add 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 测试图形是否有未保存的更改本示例检查是否有未保存的更改，并与用户验证是否可以保存图形（如果不可以，请跳到末尾）。如果确定，请使用该方法保存当前图形，如下所示：Save 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
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-14 05:36
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.
