//使用comobj;
//对于AutoCAD 2000
过程tform1.button1Click（发件人：tobject）;
var
obj_acad：olevariant;
开始
尝试
obj_acad：= getActiveOleObject（''autocad.Application.15''）;
除了
OBJ_ACAD：= createOleObject（''autocad.application.15''）;
结尾;
obj_acad.visible：= true;
obj_acad.documents.open（''g：//autocad/data/dwg/4.dwg''）;
结尾;
//对于R14
过程tform1.button1Click（发件人：tobject）;
var
obj_acad：olevariant;
开始
尝试
obj_acad：= getActiveOleObject（''autocad.Application.14''）;
除了
obj_acad：= createOleObject（''autocad.application.14''）;
结尾;
obj_acad.visible：= true;
obj_acad.activedocument.open（''g：//autocad/data/dwg/4.dwg''）;
结尾;