variable version dwg

[pros2i]

Bonjour,

 

Je voudrai faire apparaitre la version 2000, 2003, 2007, 2010 dans laquelle était enregistrée le fichier Autocad ?

 

Merci

 

Pat[Edité le 31/3/2010 par pros2i]

 

[Edité le 31/3/2010 par pros2i]

[(gile)]

Salut,

 

La solution généralement adoptée est de lire l'en-tête du dwg.

 

La routine suivante retourne la version sous forme de chaîne ou nil si le dessin n'est pas enregistré.

 

(defun version (/ file line)
 (if (= 1 (getvar 'dwgtitled))
   (progn
     (setq file (open (strcat (getvar 'dwgprefix) (getvar 'dwgname)) "r")
    line (substr (read-line file) 1 6)
     )
     (close file)
     (cond
((= line "AC1024") "2010")
((= line "AC1021") "2007")
((= line "AC1018") "2004")
((= line "AC1015") "2000")
((= line "AC1014") "R14")
((= line "AC1012") "R13")
((= line "AC1009") "R11 ou R12")
((= line "AC1006") "R10")
((= line "AC1004") "R9")
((= line "AC1002") "R2.6")
((= line "AC1.50") "R2.05")
     )
   )
 )
)

[pros2i]

Merci Giles,

 

C'est ce que je voulais.

 

Pat