// verwendet Comobj;
// für AutoCAD 2000
procedure tform1.button1click (Absender: tobject);
var
OBJ_ACAD: olevariante;
beginnen
versuchen
OBJ_ACAD: = GetActiveObject ('' AutoCAD.Application.15 '');
außer
OBJ_ACAD: = CREATEOLOBJECT ('' AutoCAD.Application.15 '');
Ende;
obj_acad.vissible: = true;
obj_acad.documents.open ('' g: //autocad/data/dwg/4.dwg '');
Ende;
// für R14
procedure tform1.button1click (Absender: tobject);
var
OBJ_ACAD: olevariante;
beginnen
versuchen
OBJ_ACAD: = getActiveObject ('' AutoCAD.Application.14 '');
außer
OBJ_ACAD: = CREATEOLOBJECT ('' AutoCAD.Application.14 '');
Ende;
obj_acad.vissible: = true;
obj_acad.activedocument.open ('' g: //autocad/data/dwg/4.dwg '');
Ende;