Déterminer la version du dessin !

[Pako]

 
;*******************************************************************
;;;; La routine LISP suivante permet de retourner la version du dessin courant :
;*******************************************************************
;;;; Sauvez ce code  avec l'extension .lsp dans le Bloc-notes ou 
;;;; un rédacteur de texte d'ASCII.
;;;; Vous devez d'abord charger cette routine avant que vous ne puissiez l'utiliser.

;;;; Pour charger le fichier, choisissez la commande _APPLOAD
;;;; Ajoutez cette routine à la Suite de Démarrage.

;;;; Note :  Sauvegardez (Enregistrer Sous) votre dessin avant de lancer cette routine !
;*******************************************************************

(prompt "\nTapez DWGVER pour savoir la version du dessin : ")

(defun C: 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 "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")
    )
   )

 (alert (strcat "Le dessin courant a été créé avec " acadv))
 )

 

 

 

 

 

 

 

 

[Edité le 1/2/2005 par Pako]

[Bilbeau]

C'est vrai que c'est écrit en binaire au début.