Contrôle de la version Wbloc

[Tramber]

Bonjour tertous !

 

(vl-cmdf "-WBLOC" NOMfichier" "" pt1 ssetObj "")

 

Le "" est là car je sais que le fichier n'existe pas ou pour l'option mais passons.

 

Je cherche à savoir comment contrôler la version DWG. On peut le faire en temps normal, mais en programmation ?

 

Y-a-t-il un sujet ou une réponse en VLisp ou autre ?

 

Cimer

[capde06]

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)

)

[Tramber]

Merci beaucoup mais ca n'est pas tout ça.

 

Je veux contrôler le format d'export en WBLOC.

[bonuscad]

Salut Tramber

 

Je connais pas toutes les valeurs (chiffres sous forme de chaines et non en valeur numérique), mais avec les 2 instructions suivantes tu devrais les connaitre et pouvoir les appliquer.

 

(getenv "DefaultFormatForSave") -> "36" (version 2007)

 

(setenv "DefaultFormatForSave" "8") -> passe en version R14/LT97/LT98

[Tramber]

Ca marche !

 

O pôale