[Résolu] Attribuer les propriétés d'un calque suivant les propriétés des objets qui sont dessus

[Steven]

Salut à tous,

 

J'ai un fichier dont tous les calques sont en Couleur Blanc, Type de ligne Continuous, Epaisseur de ligne 0,00 ou Par défaut.

 

Sur chacun de ces calques, il y a des objets en Couleur Forcée, Type de ligne Forcée, Epaisseur Forcées.

 

Serait-il possible d'attribuer aux calques sur lesquels sont les objets, les mêmes propriétés que les objets qui sont dessus de manière à mettre ensuite lesdits objets dans les propriétés Ducalque, Ducalque, Ducalque sans que les objets perdent leurs couleur, leur type de ligne et leur épaisseur d'origine? ?

 

Il me semble qu'il y avait un sujet, il y a longtemps avec une demande similaire mais je ne le retrouve pas.

[Olivier Eckmann]

Salut Steven,

 

Pour le sujet, tu as celui-ci qui ne fait pas exactement ce que tu veux, mais qui sépare bien tout selon les propriétés forcées.

 

Olivier

[Steven]

Salut Olivier,

 

C'était en effet ce sujet que je cherchais mais ça ne répond pas à ce que je souhaite

[Olivier Eckmann]

Salut Steven,

 

quelque chose comme cela

(defun c:ssxcle ( / ss clr lty epl oEntLst i lst def lay)
 (if (setq ss (ssget "X" (list (cons 410 (getvar "CTAB")))))
   (repeat (setq i (sslength ss))
     (if (not (member (setq lay (cdr (assoc 8 (setq oEntLst (entget (ssname ss (setq i (1- i)))))))) lst))
       (progn
         (setq lst (cons lay lst)
               def (entget (tblobjname "LAYER" lay)))
 	(if (setq clr (cdr (assoc 62 oEntLst)))
           (setq def (subst (cons 62 clr) (assoc 62 def) def))
 	)
 	(if (setq lty (cdr (assoc 6 oEntLst)))
           (setq def (subst (cons 6 lty) (assoc 6 def) def))
 	)
 	(if (setq epl (cdr (assoc 370 oEntLst)))
           (setq def (subst (cons 370 epl) (assoc 370 def) def))
 	)
 	(entmod def)
)
     )
   )
 )
 (princ)
)

 

 

Olivier

[Steven]

Salut Olivier,

 

C'est beau

 

Je n'ai plus qu'à faire, ensuite, DEFDUCALQUE en sélectionnant tout les objets et le tour est joué.

 

Merci et bon week-end