la version du fichier est ecrit dans le dwg dans la 1ere ligne moi jai ca avoir si ca te convient (defun DWGVER (/ dwgfile rfile dwgver acadv) (setq dwgfile (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq rfile (open dwgfile "r")) (setq dwgver (substr (read-line rfile) 1 6)) (close rfile) (cond ((= dwgver "AC1024") (setq acadv "AutoCAD 2010") ) ((= dwgver "AC1021") (setq acadv "AutoCAD 2007, 2008 ou 2009") ) ((= dwgver "AC1018") (setq acadv "AutoCAD 2004, 2005 ou 2006") ) ((= dwgver "AC1015") (setq acadv "AutoCAD 2000, 2000i ou 2002") ) ((= dwgver "AC1014") (setq acadv "AutoCAD R14") ) ((= dwgver "AC1012") (setq acadv "AutoCAD R13") ) ((= dwgver "AC1009") (setq acadv "AutoCAD R11 ou R12") ) ((= dwgver "AC1006") (setq acadv "AutoCAD R10") ) ((= dwgver "AC1004") (setq acadv "AutoCAD R9") ) ((= dwgver "AC1002") (setq acadv "AutoCAD R2.6") ) ((= dwgver "AC1.50") (setq acadv "AutoCAD R2.05") ) ) ;_ Fin de cond (write-line (strcat "Le dessin courant a été créé avec " acadv) P2) )