// comobjを使用します。
// AutoCAD 2000の場合
手順tform1.button1click（sender：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（sender：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 ''）;
終わり;