[résolu] 1 dwg de X calques -> X nouveau dwg de 1 calque

[Kegaska]

Bonjour à tous,

 

Je cherche décomposer un dwg en X dwg, chacun correspondant à un calque (et l'ensemble des entités qui s'y trouvent) du dwg d'origine.

Soit 1 dwg de X calques -> X nouveaux dwg de 1 calque.

 

Suis-je contraint de copier chaque calque 1 à 1 ? Merci pour vos idées.

[philsogood]

hello

un lisp doit être r&alisable

je ne connais aps le nb de calques de ton fichier d'origine, ni le nombre de fichiers à traiter mais si tu n'as qu'un fichier qui n'a aps trop de calque je connais une technique bidouille

avec le lisp de (gile) SSL tu peux sélectionner toutes les entités qui sont sur un calque, il te suffit dès lors de faire un WBLOC... calque apr calque... c'est laborieux mais ça marche et tu n'as aucune erreur, assure toi au préalavble que tes blocs ne sont consitutés des d'entités sur le calque 0.

si t'as 400 calques et 153 ficheirs c'est aps pareil... après j'ai du mal à comprendre pourquoi tronçonner le ficheir de cette façon...

++

Phil

[bonuscad]

Bonjour à tous,

 

Je cherche décomposer un dwg en X dwg, chacun correspondant à un calque (et l'ensemble des entités qui s'y trouvent) du dwg d'origine.

Soit 1 dwg de X calques -> X nouveaux dwg de 1 calque.

 

Suis-je contraint de copier chaque calque 1 à 1 ? Merci pour vos idées.

 

Bonjour,

Tu peux essayer ceci, tu copie-colle ce qui suit directement en ligne de commande

((lambda ( / flag def_lay nam_lay js)
(setq flag T)
(while (setq def_lay (tblnext "LAYER" flag))
	(setq nam_lay (cdr (assoc 2 def_lay)) flag nil)
	(cond
		((setq js (ssget "_X" (list (cons 8 nam_lay))))
			(command "_.-wblock" (strcat (getvar "dwgname") "$" nam_lay) "" "*0.0,0.0,0.0" js "")
		)
	)
)
(prin1)
))

 

[Kegaska]

Bonjour,

Tu peux essayer ceci, tu copie-colle ce qui suit directement en ligne de commande

((lambda ( / flag def_lay nam_lay js)
(setq flag T)
(while (setq def_lay (tblnext "LAYER" flag))
	(setq nam_lay (cdr (assoc 2 def_lay)) flag nil)
	(cond
		((setq js (ssget "_X" (list (cons 8 nam_lay))))
			(command "_.-wblock" (strcat (getvar "dwgname") "$" nam_lay) "" "*0.0,0.0,0.0" js "")
		)
	)
)
(prin1)
))

 

Super, ça semble fonctionner parfaitement ! Merci beaucoup.

J'ai juste mis un peu de temps pour trouver le répertoire de création des nouveaux fichiers (Users/.../Document/)

 

+.K