各位大侠：有关在程序运行时打开CAD系统

Question

也可以用SHELLEXECUTE，但要在单元的USES中加入SHELLAPI。例如运行
ShellExecute(handle,'OPEN',XXX,'','',SW_SHOWNORMAL);
其中XXX为要执行的程序路径。

Answer 1

哦，是cad呀，这样用吧~~~~use comobj;var acad : OleVariant;acad := CreateOleObject('autocad.application');
//有时出现调用失败~~~~加上一句 sleep(1000);
acad.visible := true;判断是否已经有cad实例打开，可以用
try  
  acad := GetActiveOleObject('autocad.application')
except
  showmessage('没有，可以调用了');
end;

Answer 2

这是我的代码，好使的。
  Acad := CreateOleObject('AutoCAD.Application');
  sleep(1000);
  Acad.Visible := true;
  Bcad := Acad.ActiveDocument.Open('C:\yan.dwg');
但是CADR14 和 CAD2000 的打开方法是不同的，就是最后一句，我写的是R14的打开方法，至于2000~~~~~~忘了。