怎样使用Delphi对AutoCAD进行操作啊，我写的代码老报错，谁能帮帮忙啊

Question

var
AcadApp: OleVariant;
AcadDoc: OleVariant;
AcadMoSpace: OleVariant;
AcadObj: OleVariant;
i: integer;
begin
  try
   AcadApp:=GetActiveOleObject('AutoCAD.Application');
  except
  AcadApp:=CreateOleObject('AutoCad.Application');
  end ;
AcadDoc := AcadApp.ActiveDocument;
AcadMoSpace := AcadDoc.ModelSpace;
Acadobj:=AcadDoc.SelectionSets.Add('Color');
Acadobj.SelectOnScreen;
for i := 0 to Acadobj.Count-1 do
begin
Acadobj.Item(i).color:=random(255);
end;
end;
我想使我选择的图元的颜色发生变化，但老是报错‘操作无法使用‘，谁能帮我解决一下这个问题啊，谢谢了。

Answer 1

这个问题是没办法解决的 ～～必须了解AUTOCAD的SDK文档
操作无法使用说明。。

Answer 2

在Acad 帮助－＞开发人员指南　查看接口字
你用这个'AutoCAD.Application'应该不对
每个版本不同，
其余的你要去看其中的例子
Acad 中的VB例子写得很详细

Answer 3

建议用 MicroDraw CAD控件