// menggunakan comobj;
// untuk AutoCAD 2000
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
var
OBJ_ACAD: Olevariant;
mulai
mencoba
obj_acad: = getActiveoleObject ('' autoCad.application.15 '');
kecuali
obj_acad: = createoleObject ('' autoCad.application.15 '');
akhir;
obj_acad.visible: = true;
obj_acad.documents.open ('' g: //autocad/data/dwg/4.dwg '');
akhir;
// untuk R14
Prosedur TFORM1.BUTTON1CLICK (Pengirim: Tobject);
var
OBJ_ACAD: Olevariant;
mulai
mencoba
obj_acad: = getActiveoleObject ('' AutoCad.Application.14 '');
kecuali
OBJ_ACAD: = createoleObject ('' AutoCAD.Application.14 '');
akhir;
obj_acad.visible: = true;
obj_acad.activedocument.open ('' g: //autocad/data/dwg/4.dwg '');
akhir;