[求助]如何用DELPHI控制CAD启动且同时让其运行一个.SCR命令组文件

dangjin · 发表于 2005-8-3 08:30:00

那位高人懂得如何用DELPHI控制CAD启动且同时让其运行一个.SCR命令组文件；
急呀！急
亟待高人指点，不胜感激
若有代码请传：

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

dangjin · 发表于 2005-8-12 20:01:00

那位高手前来指教？

efan2000 · 发表于 2005-8-12 21:34:00

var
  AcadApp: OleVariant;
begin
  try
AcadApp:=GetActiveOleObject('AutoCAD.Application');
  except
AcadApp:=CreateOleObject('AutoCAD.Application');
  end;
  AcadApp.Visible:=True;
  AcadApp.Documents.Open('c:\test.dwg');
end;
没有安装Delphi，也没有办法调试。