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?
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
Yoan AUBRY
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
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
Yoan 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
Yoan 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
Yoan AUBRY
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.
Patrick Emin animateur de la communauté francophone
Vous avez trouvé un message utile? Alors donnez un "J'aime" à ce message!
Votre question a eu une réponse satisfaisante? Voulez vous avoir l'amabilité de cliquer sur le bouton APPROUVER LA SOLUTION en bas de la réponse qui apporte une solution?
Signez notre Livre d'Or
