怎样能过vba来控制autocad?vba在delphi中调用有什么要注意的地方吗？(200分)

如题

乖乖！！怎么没人看一眼呢？

我来看，给分。

CAD 的二次开发，
我们的毕业设计呀！
有那位高手精通呀？
Uq一下

好的，我给你发邮件，看看这样子行不行？

多人接受答案了。

delphi如何用vba操作autocad?谢谢！
用Project/import type library菜单项实现引入类型库后，在AUTUCAD_TLB.PAS中有命令：
如：addcircle(plevariant;r:double);
可是我写了代码后总出现错误：参数错误？代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
cadapp:variant;
circleobj:variant;
plevariant;
r:double;
begin
cadapp:=CreateOleObject('AutoCAD.Application');
cadapp.visible:=true;
p:=VarArrayCreate([0,2],varVariant);
p[0]:=20;
p[1]:=30;
p[2]:=0;
r:=50;
circleobj:=cadapp.activedocument.modelspace.addcircle(p,r);
end;
why???
请大侠帮忙解答！谢谢！！！
最好给些调试通过后的代码！！！！！！
yjw1018@163.com