Conserver les proprietes des entites

[willfrca]

Bonjour ,

 

Je connais absolument pas le lisp mais j utilise un lisp qui me permet de transferer toutes les entites selectionnees vers le calque courant . J aimerais savoir si y aurais la possibilite d y ajouter un bout de code lui demander de conserver les proprietes des differentes entites (couleur , type de ligne ...)

 

Merci d avance

 

Willfrca

 

[Didier-AD]

Salut,

Je ne sais pas le nom de ta commande, je l'ai donc appelée Select->clayer

 

voici son code

(defun c:Select->CLayer (/ js rep n ent)
 (Prompt "\nSélectionner les entités à transférer")
 (setq js (ssget) n 0)
 (if js
   (progn
    (initget "Oui Non") 
    (setq rep (GetKword "\nGarder les entités dans le calque initial [Oui/Non] "))
    
    (repeat (sslength js)
 (setq ent (entget (ssname js n))
       ent (subst (cons 8 (getvar "clayer"))(assoc 8 ent) ent)
 )
        (if (or (not rep) (= rep "Oui"))
   (entmake ent)
   (entmod ent)
 )
        (setq n (1+ n))
    )
   ) 
 )
)

(alert "Commande Select->Clayer chargée")

bon courage