// ใช้ comobj;
// สำหรับ AutoCAD 2000
ขั้นตอน tform1.button1click (ผู้ส่ง: tobject);
วาจา
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);
วาจา
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 '');
จบ;