Sauvegarde Blocks en CAD2004

[pierrevigneux]

Besoin de sauvegarde blocks en AutoCAD 2004

pierre.vigneux@gmail.com

[lili2006]

Bonjour à toutes et tous,

 

 

?????????????!!!!!!!!!!!!!!!!!!!!!! :o

[pierrevigneux]

J'ai quelques dessins en différentes versions de 2007 à 2010, j'aimerais les avoir en version 2004.

Ce ne sont pas de gros fichiers, ce sont des Wblocks

 

Merci!

[lili2006]

Re,

 

Ok !

 

quand j'ai ce besoin, je met tous les blocs qui m'intéresse sur un seul fichier que j'enregistre dans la version désirée.Mais je vois que tu est dans le forum light, alors tu ne peux utiliser ce qui vient, mais la dernière solution (script) est envisageable.

 

Ensuite, j'utilise le très fameux lisp de bonuscad " blk2dwg " qui fait des wblocs de chaques blocs du dessin en cours (donc celui qui contient les blocs bibliothèques que tu souhaites refaire) =>

 

(defun record_dwg (name / nam_file)

(cond

	((not (wcmatch (cdr (assoc 2 name)) "`**"))

		(if (not prefix)

			(progn

				(setq nam_file (getfiled "Dessin bibliothèque" (cdr (assoc 2 name)) "dwg" 1))

				(setq prefix (substr nam_file 1 (- (strlen nam_file) (strlen (cdr (assoc 2 name))))))

			)

			(setq nam_file (strcat prefix (cdr (assoc 2 name))))

		)

		(command "_.-wblock" nam_file (cdr (assoc 2 name)))

	)

)

)

(defun c:blk2dwg ( / first_blk l_blk n_blk prefix)

(setq first_blk (tblnext "BLOCK" T))

(cond

	(first_blk

		(setq l_blk (list first_blk))

		(while (setq n_blk (tblnext "BLOCK"))

			(setq l_blk (cons n_blk l_blk))

		)

		(setvar "FILEDIA" 0)

		(foreach n l_blk (record_dwg n))

		(setvar "FILEDIA" 1)

	)

	(T

		(princ "\nPas de blocs définis!")

	)

)

(prin1)

)

 

Il y aurait également possibilité de le faire en script =>(Pas d'autres solutions à ma connaissance en Vlight,...)

 

_saveas version_dwg 

 

(Ou un truc du genre,... et utiliser SAS de Eric Quoiqu'il me semble que tu peux enregistrer directement dans la version voulue,..

 

Eric, si tu passes par là, ;)

[pierrevigneux]

Désolé,

Mais j'essayé et ça ne fonctionne pas.

 

 

[Edité le 24/2/2010 par pierrevigneux]

[CDL]

atester

:cool:

[(gile)]

Salut,

 

DWG TrueView permet de convertir un ou plusieurs fichier DWG.

[Eric]

Eric, si tu passes par là

 

Comme je passais par là :D

 

Perso j'aurais donné la même réponse que (Gile)

 

Mais merci quand même pour la pub pour SAS ;)

[Eric]

Maintenant comme c'est le forum LT 2008 on peut aussi le faire avec SAS.

 

Je pensais que pierrevigneux ne pouvais pas ouvrir des fichiers supérieurs au dwg 2004, mais là c'est possible.

 

Donc avec SAS un simple script du type

 

 _saveas 2004 

 

Et le tour est joué

 

En plus on peut rajouter d'autres trucs du type

 

- Faire un zoom étendu

- Purger

- Mettre le calque 0 en calque courant

etc

 

 

[pierrevigneux]

Je pensais que pierrevigneux ne pouvais pas ouvrir des fichiers supérieurs au dwg 2004, mais là c'est possible.

 

Donc avec SAS un simple script du type

Non Éric ton script fonctionne très bien, sauf que les dessins enregistrés sur une version supérieure à 2004 dans mon cas ne veulent pas ouvrir avec SAS ?

[pierrevigneux]

DWG TrueView permet de convertir un ou plusieurs fichier DWG.

Merci Gile tu me dépanne encore une fois.

J,ai téléchargé TrueView et miraclre ça fonctionne à merveille, je suis maintenant capable de convertir tous mes blocs.

 

Merci encore !

[Eric]

Non Éric ton script fonctionne très bien, sauf que les dessins enregistrés sur une version supérieure à 2004 dans mon cas ne veulent pas ouvrir avec SAS ?

 

Si tu n'arrives pas ouvrir les fichiers avec AutoCAD LT 2008 c'est que ces fichiers sont au format dwg 2010, et dans ce cas il n'y a que la solution de DWG TrueView

 

Au passage pour connaître le format des DWG il y a DWGVersion

 

http://cadxp.cadmag.info/sujetXForum-6930.htm

[pierrevigneux]

Si tu n'arrives pas ouvrir les fichiers avec AutoCAD LT 2008 c'est que ces fichiers sont au format dwg 2010, et dans ce cas il n'y a que la solution de DWG TrueView

 

En effet Éric, je n'arrivais pas à ouvrir les fichiers avec AutoCAD2004

 

Au passage pour connaître le format des DWG il y a DWGVersion

 

Merci pour ta nouvelle version 1.5 Dwg

 

@+