登录
记住用户名密码
本例使用 Open 方法打开现有图形。在打开图形前,代码将检查文件是否存在。
namespace ClassLibrary3; interface uses Autodesk.AutoCAD.Runtime, Autodesk.AutoCAD.ApplicationServices, Autodesk.AutoCAD.EditorInput, System.IO; type Class1 = public class private protected public [CommandMethod('OpenDrawing', CommandFlags.Session)] class method OpenDrawing; end; implementation class method Class1.OpenDrawing; var strFileName:String; acDocMgr:DocumentCollection; begin strFileName:='D:\离心泵CAD系统V1.2\DWG\模板.dwg'; acDocMgr:=Application.DocumentManager; If File.Exists(strFileName) Then acDocMgr.Open(strFileName, False) Else acDocMgr.MdiActiveDocument.Editor.WriteMessage('File' + strFileName + 'does not exist') End; end.
目前有 0 条留言 其中:访客:0 条, 博主:0 条