怎么使用ole动态的创建autocad的对象？

Question

『olecontainer1.CreateObject('word.document',true)，』可以动态的创建ole的word文档，要是动态的创建autocad怎么办？

Answer 1

CAD和WORD用OLE的話
是同等的

Answer 2

delphi打开autocad，是要分不同版本的：
acad14、acad－2000：
uses 
comobj,activex,olectrls;var
  p1,p2:olevariant;
acad,activedoc:olevarant:
//创建variant数组来保存窗口坐标
p1:=vararraycreate([0,2],vt_r8);
p2:=vararraycreate([0,2],vt_r8);
//设定数值
p1[0]:=14330.0;
p1[1]:=4000.0;
p1[2]:=0;
p2[0]:=26400.0;
p1[1]:=8500.0;
p1[2]:=0;
acad:=createoleobject('autocad.application');
如果是acad14的话
acad:=createoleobject('autocad.application.14');

Answer 3

接上面：
if no tvarisempty(acad) then
acad.visible:=visible;
//打开文件
activedoc:=acad.documents.open('e:\planview.dwg');
//放大
acad.zoomextents;
acad.zoomwindow(vararrayref(p1),vararrayref(p2));