| AutoCAD调用技巧 |
| 责任编辑：ncic 更新日期：2007-4-3 |
//uses ComObj;
//for autocad 2000
procedure TForm1.Button1Click(Sender: TObject);
var
obj_Acad :OleVariant;
begin
try
obj_Acad:=GetActiveOleObject('AutoCAD.Application.15');
except
obj_Acad:=CreateOleObject('AutoCAD.Application.15');
end;
obj_Acad.Visible:=True;
obj_ACAD.Documents.Open('g:\AutoCaddatadwg4.dwg');
end;
//for r14
procedure TForm1.Button1Click(Sender: TObject);
var
obj_Acad :OleVariant;
begin
try
obj_Acad:=GetActiveOleObject('AutoCAD.Application.14');
except
obj_Acad:=CreateOleObject('AutoCAD.Application.14');
end;
obj_Acad.Visible:=True;
obj_ACAD.ActiveDocument.Open('g:\AutoCaddatadwg4.dwg');
end;
|
|
| 上一篇文章： 使代码简洁的五条忠告 |
| 下一篇文章： 《COM 原理与应用》学习笔记 - 第一部分 COM原理 |
|
|
|
|
