有人做过用OLE链接AUTOCAD的项目吗？提供一点参考(100分)

我最近想做一个AUTOCAD文档管理软件，并能通过程序修改，请提供一点资料或参考

声明一个OLE对象，建立对象实体。
发送命令给AUTOCAD

有没有源码或CAD接口之类的文章

copy人家的，你看一下吧。
//for autocad 2000
procedure TForm1.Button1Click(Sender: TObject);
var
obj_Acad :OleVariant;
begin
try
obj_Acad:=GetActiveOleObject('AutoCAD.Application.15');
except
obj_Acad:=CreateOleObject('AutoCAD.Application.15');
end;
obj_Acad.Visible:=True;
obj_ACAD.Documents.Open('g://AutoCad/data/dwg/4.dwg');
end;

//for r14
procedure TForm1.Button1Click(Sender: TObject);
var
obj_Acad :OleVariant;
begin
try
obj_Acad:=GetActiveOleObject('AutoCAD.Application.14');
except
obj_Acad:=CreateOleObject('AutoCAD.Application.14');
end;
obj_Acad.Visible:=True;
obj_ACAD.ActiveDocument.Open('g://AutoCad/data/dwg/4.dwg');
end;

多人接受答案了。