//使用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''）;
結尾;