本节主题
创建和打开图形
要创建新图形或打开现有图形,请使用 DocumentCollection 对象的方法。Add 方法用于根据一个图形 模板 创建新图形并将此图形添加到 DocumentCollection 中。Open 方法用于打开现有图形文件。
本例使用 Add 方法根据 acad. dwt 图形模板文件创建新图形。
Imports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.Runtime <CommandMethod("NewDrawing", CommandFlags.Session)> _Public Sub NewDrawing() '' 指定要使用的模板文件,如果模板不存在,就使用默认设置 Dim strTemplatePath As String = "acad.dwt" Dim acDocMgr As DocumentCollection = Application.DocumentManager Dim acDoc As Document = acDocMgr.Add(strTemplatePath) acDocMgr.MdiActiveDocument = acDocEnd Sub打开现有图形
本例使用 Open 方法打开现有图形。在打开图形前, 代码 将检查文件是否存在。
Imports System.IOImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.Runtime <CommandMethod("OpenDrawing", CommandFlags.Session)> _Public Sub OpenDrawing() Dim strFileName As String = "C:\campus.dwg" Dim acDocMgr As DocumentCollection = Application.DocumentManager If (File.Exists(strFileName)) Then acDocMgr.Open(strFileName, False) Else acDocMgr.MdiActiveDocument.Editor.WriteMessage("File " & strFileName & _ " does not exist.") End IfEnd Sub保存和关闭图形
使用 Database 对象的SaveAs 方法保存 Database 对象的内容。在使用 SaveAs 方法时,用户可以指定 Database 是否应该重命名,如果 bBakAndRename 参数指定为 True,在磁盘上的图形的备份将要重命名。通过检查 DWGTITLED 系统 变量的值,用户可以确定 Database 是否使用类似 Drawing1,Drawing2 之类的默认名字。如果 DWGTITLED 为0,图形将不用重命名。
有时候用户希望检查活动图形中是否存在未保存的更改。在退出 AutoCAD 任务或创建新图形之前,应当进行这样的检查。若要检查图形文件是否已经被修改,用户需要检查 DBMOD 系统变量的值。
免责声明:本文系网络转载或改编,未找到原创作者,版权归原作者所有。如涉及版权,请联系删