Cheche LISP pour gestion de accélerer la gestion de calques...

[zizou_elec]

Salut everybody...

 

je souhaiterais savoir s'il existe un LISP qui me permettrait de mettre directement le contenu d'un certain nombre de calques dans un seul calque à la couleur et au nom que je choisirais...

Exemple, je recois un plan d'un BET plomberie qui contient une multitude de calque (materiel, reseau, ecs, ...).je souhaiterais recuperer le contenu de tout ces calques et le mettre dans un seul que j'appellerais PB à la couleur cyan....

Est ce que je demande un miracle ou ça existe?? :o

 

merci d'avance.

[(gile)]

Salut,

 

Voici deux petits LISPs, ils datent de mes débuts mais fonctionnent.

 

;;; Calques.lsp 10/04/05

;;; c:Occ Transfère des objets sur le calque courant.

(defun c:Occ (/ objets)
 (if (not (setq objets (ssget "_i")))
   (progn
     (sssetfirst nil nil)
     (prompt "\nTransférer des objets sur le calque courant.")
     (setq objets (ssget))
   )
 )
 (command "chprop" objets "" "ca" (getvar "clayer") "")
 (princ)
)

;;; c:Ocs Transfère des objets sur le calque d'un objet sélectionné à l'écran.

(defun c:Ocs (/ objets cible)
 (if (not (setq objets (ssget "_i")))
   (progn
     (sssetfirst nil nil)
     (prompt "\nTransférer des objets sur le calque cible.")
     (setq objets (ssget))
   )
 )
 (setq cible (entsel "\nSélectionnez un objet sur le calque cible: "))
 (command "chprop" objets "" "ca" (cdr (assoc 8 (entget (car cible)))) "")
 (princ)
) 

 

[Edité le 30/3/2007 par (gile)]

[Squelet]

Je cherchais un truc comm ça aussi ...

Merci Gilou.

[(gile)]

Ces outils, parmi d'autres, existent dans les Express Tools (_laycur et _laymch).

J'avais fait ces LISP àl'époque où j'étais encore sur AutoCAD 2002 (donc sans Express tools).

 

[LUDWIG]

ou layfuz des express tools.

Outils de calques > fusion > (sélection des calques cibles et destination dans une liste dans 2007 (2006 ?)).

[laud69]

Et aussi :

Norme CAO / convertisseur de calques