各位大侠，怎样用程序操纵autocad？(100分)

怎样用程序操纵autocad使之进行对象选择，文件格式转换等操作？

用lisp程序控制,然后用sendmessage

能不能具体的也让俺们学学

我给你一些吧type
AcadPoint = record
X: double;
Y: double;
Z: double;
end;

function AcadLine(p1,p2: ACADPoint): OleVariant;
procedure InitAcad: boolean;

var
Acad, Doc, MSpace: OleVariant;

implementation

uses ActiveX,ComObj,AutoCad_Tlb;

procedure InitAcad;
begin
result:=true;
try
acad := GetActiveOleObject('AutoCAD.Application');//get acad instance
except
on EOleSysError do
acad := CreateOleObject('AutoCAD.Application'); //create a new instance
end;
Acad.visible:= True; //show acad
Doc := Acad.ActiveDocument; //current drawing document
Mspace := Doc.ModelSpace; //module space
end;

function AcadLine(p1,p2: ACADPoint): OleVariant;
var Ps, Pe: OleVariant; //Delphi version SafeArray
begin
ps[0]:=p1.X; ps[1]:=p1.Y; ps[2]:=p1.Z;
pe[0]:=p2.X; pe[1]:=p2.Y; ps[2]:=p2.Z;
Result := Mspace.AddLine(VarArrayRef(ps), VarArrayRef(pe)).Update;
end;
我以前做过一个用来控制AutoCad来绘图的东西
好像现在找不到了。
使用ActiveX Automation对象。AutoCad的帮助文档中有

我想在DELPHI中能打开CAD并且可以设置图层,移动,放大,打印等简单的编辑