AutoCAD : fusionner des calques

[Kwami-Maouena.AZOUMAH]

BONJOUR JE VOUDRAIS UN CONSEIL POUR FUSION PLUS DE 1500 CALQUES DANS UN DESSIN.

---

Le titre du sujet a été modifié par un modérateur pour faciliter la recherche. Titre original:
https://forums.autodesk.com/t5/autocad-tous-produits-francais/ralentissement-ordinateur-impression-p...

[Kent1Cooper]

It's not quite clear to me what you are asking.  Are the 1500 Layers 1500 separate drawing files that you want to combine into one drawing?  Or are they already in one drawing, and you want to combine them into one Layer?

[Y.AUBRY]

Bonjour @Kwami-Maouena.AZOUMAH,

Comme l'as dit @Kent1Cooper :

Ce que vous demandez n'est pas très clair pour moi.
Les 1500 calques sont-ils 1500 fichiers de dessin distincts que vous souhaitez combiner en un seul
dessin ? Ou sont-ils déjà dans un dessin et souhaitez-vous les combiner en un seul calque ?

Si tous tes calques sont dans un seul fichier, regarde du coté de la commande FUSCALQUES.

Si tes calques sont présent dans des fichiers différents, je passerai par des requêtes avec modification de propriétés (si tu as une version AutoCAD Map par exemple)

Pourrais-tu nous en dire plus. D'autre part quelle version d'AutoCAD as-tu? une version full ou une version LT?

A+ Yoan

[Kwami-Maouena.AZOUMAH]

Bonjour les  1500 claques sont dans un dessins seul dessins .

parceque il ya eu durant plusieurs anées du copier coler dedans et aujourdhui on a plus de 1500calques.

hello the 1500 slaps are in a single drawing. because for several years there has been copying and pasting in it and today we have more than 1500 layers.

 i can send it to you if you wish

[Y.AUBRY · Accepted solution]

Bonjour,

Si tu veux fusionner tous les calques tu peux utiliser le lisp CLZ ci-joint.

; CLZ.LSP - Collapse all layers to layer 0, i.e., move all entities to layer 0
;           and optionally delete all empty layers.
(defun c:clz (/ en el uchk)
(setvar "CLAYER" "0")
; change layer of each entity to "0"
(setq en (entnext))
(while en
   (setq el (entget en))
   (setq el (subst (cons 8 "0") (assoc 8 el) el))
   (entmod el)
   (setq en (entnext en))
)
; delete all layers except "0" ?
(initget 1 "Yes No")
(setq uchk (getkword "\n Delete all empty layers? (Y)es or (N)o  "))
(if (= uchk "Yes")
 (progn
   (setvar "CMDECHO" 0)
   (command ".purge" "LA" "All")
   (setvar "CMDECHO" 1)
 )
)
(princ)
)

A+ Yoan

[Y.AUBRY]

Je viens de vérifier,

Le lisp était fait pour fonctionner avec un AutoCAD anglais

Ci-joint le lisp modifié pour la version française

; CLZ.LSP - Collapse all layers to layer 0, i.e., move all entities to layer 0
;           and optionally delete all empty layers.
(defun c:clz (/ en el uchk)
(setvar "CLAYER" "0")
; change layer of each entity to "0"
(setq en (entnext))
(while en
   (setq el (entget en))
   (setq el (subst (cons 8 "0") (assoc 8 el) el))
   (entmod el)
   (setq en (entnext en))
)
; delete all layers except "0" ?
(initget 1 "Yes No")
(setq uchk (getkword "\n Delete all empty layers? (Y)es or (N)o  "))
(if (= uchk "Yes")
 (progn
   (setvar "CMDECHO" 0)
   (command "-PURGER" "CA" "*")
   (setvar "CMDECHO" 1)
 )
)
(princ)
)

A+ Yoan

[Kwami-Maouena.AZOUMAH]

s'il te plais montrer moi comment executer

[Y.AUBRY]

Alors, pour utiliser un lisp :

Va dans le menu "Outils\Charger une application" puis choisi le lisp a charger

Ensuite une fois le lisp chargé, tape la commande "CLZ"

Pour compléter cette méthodologie, regarde cette vidéo:

https://www.youtube.com/watch?v=2ER2dWMY5lo

[patrick.emin]

Bonjour @Kwami-Maouena.AZOUMAH 

La communauté a essayé de répondre à votre question. Si vous pensez qu'une ou plusieurs de ces réponses vous aident, voulez vous avoir l'amabilité de cliquer sur le bouton  APPROUVER LA SOLUTION  en bas de la réponse qui apporte une solution?
Merci de ne pas accepter comme solution le message que vous êtes en train de lire.
Si nos équipes de support technique ont pu vous apporter une solution ou contribuer significativement à vous aider en dehors de ce forum, pouvez vous partager ici la solution trouvée et cliquer sur le bouton  APPROUVER LA SOLUTION  de façon qu'elle bénéficie à la communauté?
Merci.

[Kwami-Maouena.AZOUMAH]

Bonjour,

merci pour tout