// utilise comobj;
// pour AutoCAD 2000
Procédure tform1.button1Click (expéditeur: tobject);
var
obj_acad: olevariant;
commencer
essayer
obj_acad: = getActiveoleObject ('' AutoCad.Application.15 '');
sauf
obj_acad: = CreateoMObject ('' autocad.application.15 '');
fin;
obj_acad.visible: = true;
obj_acad.documents.open ('' g: //autocad/data/dwg/4.dwg '');
fin;
// pour R14
Procédure tform1.button1Click (expéditeur: tobject);
var
obj_acad: olevariant;
commencer
essayer
obj_acad: = getActiveoleObject ('' AutoCad.Application.14 '');
sauf
obj_acad: = CreateoMObject ('' autocad.application.14 '');
fin;
obj_acad.visible: = true;
obj_acad.activeDocument.open ('' g: //autocad/data/dwg/4.dwg '');
fin;