打开、保存和关闭图形

previous page next page

控制 AutoCAD 环境

设置 AutoCAD 系统配置

打开、保存和关闭图形

通过 Documents 集合和 Document 对象可以访问 AutoCAD^® 文件功能。

要创建新图形或打开现有图形，请使用 Documents 集合中的方法。Add 方法用于创建新图形并将此图形添加到 Documents 集合中。Open 方法用于打开现有图形。Documents 集合中的 Close 方法用于关闭 AutoCAD 任务中所有打开的图形。

Save 和 SaveAs 方法用于保存图形。有时候用户希望检查活动图形中是否存在未保存的更改。在退出 AutoCAD 任务或创建新图形之前，应当进行这样的检查。使用 Saved 特性可以确保当前图形中不包含任何未保存的更改。

要输入和输出图形，请使用 Document 对象的 Import 和 Export 方法。

打开现有图形

本例使用 Open 方法打开一个现有图形。并使用 VBA 中的 Dir 函数在打开文件之前检查该文件是否存在。用户应当更改图形文件的名称或路径，以指定用户的系统中的现有 AutoCAD 图形文件。

Sub Ch3_OpenDrawing()

    Dim dwgName As String

    dwgName = "c:\campus.dwg"

    If Dir(dwgName) <> "" Then

        ThisDrawing.Application.Documents.Open dwgName

    否则

        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()

    ' 用当前名称保存活动的图形

    ThisDrawing.Save

          ' 用新名称保存活动的图形
          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

previous page start next page