Habilidades de chamadas do AutoCAD

// usa comobj;

// para AutoCAD 2000

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

obj_acad: olevariant;

começar

tentar

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

exceto

obj_acad: = createoleObject ('' autocad.application.15 '');

fim;

obj_acad.visible: = true;

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

fim;

// para R14

procedimento TForm1.Button1Click (remetente: TOBJECT);

var

obj_acad: olevariant;

começar

tentar

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

exceto

obj_acad: = createoleObject ('' autocad.application.14 '');

fim;

obj_acad.visible: = true;

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

fim;