// использует comobj;
// для AutoCAD 2000
Процедура tform1.button1click (отправитель: tobject);
вар
OBJ_ACAD: Olevariant;
начинать
пытаться
obj_acad: = getactiveobject ('' 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: = GetActiveObject ('' AutoCAD.Application.14 '');
кроме
obj_acad: = createoleobject ('' autocad.application.14 '');
конец;
obj_acad.visible: = true;
obj_acad.activedocument.open ('' g: //autocad/data/dwg/4.dwg '');
конец;