Habilidades de llamadas de AutoCAD

// usa comobj;

// para AutoCAD 2000

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

obj_acad: olevariant;

comenzar

intentar

obj_acad: = getActiveOnObject ('' AutoCad.Application.15 '');

excepto

obj_acad: = createOleObject ('' AutoCad.Application.15 '');

fin;

obj_acad.visible: = true;

obj_acad.documents.open ('' g: //autocad/data/dwg/4.dwg '');

fin;

// para R14

procedimiento tForm1.Button1Click (remitente: tobject);

varilla

obj_acad: olevariant;

comenzar

intentar

obj_acad: = getActiveOnObject ('' AutoCad.Application.14 '');

excepto

obj_acad: = createOleObject ('' AutoCad.Application.14 '');

fin;

obj_acad.visible: = true;

obj_acad.activedOcument.open ('' g: //autocad/data/dwg/4.dwg '');

fin;