// 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 '');
끝;