delphi.net二次开发AutoCAD(二)打开现有CAD文档

2012年05月30日 程序设计 暂无评论

  本例使用 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.

给我留言

Copyright © 懒猫窝窝 保留所有权利.   主题设计 AB模板网

用户登录