Classement

Bonjour @Netparty Je te propose ce petit LSP, il est possible de l'améliorer en choisissant de déplacer les entités vers un autre calque éventuellement. (defun C:cal0 () (if (setq JEU (ssget "x" (list (cons 8 "0")))) (alert (strcat "Il y a : " (itoa (sslength JEU)) " objets présents sur le calque 0 " )) ) ) Amicalement

Bonjour, Sans lisp, on peut utiliser la commande PURGER.

Ou le mettre dans le if à condition de mettre un PROGN (if (setq JEU (ssget "x" (list (cons 8 "0")))) (progn (alert (strcat "Il y a : " (itoa (sslength JEU)) " objets présents sur le calque 0 " )) (sssetfirst nil jeu) ) )

@Netparty, Attention tout de même, car les entités présentent dans les définitions de bloc ne sont pas comptabilisées dans le LISP, mais le sont avec l'astuce d'Eric ! Donc après, tout dépend de ce que tu veux comme information et faire avec les entités sur le calque 0... Bisous, Luna

Bonjour @sofianerm Ça a au moins le mérite de la franchise. Ici, c'est un site d'apprentissage et d'échange de savoir, du moins c'était sa mission initiale. Les temps changent et on voit de plus en plus de gens qui viennent demander, non de l'aide pour le faire, mais carrément des programmes tout faits. Il y a des gens qui vivent de ça, ça s'appelle des développeurs, et certains ici (sur cadxp et ailleurs) en font métier et vivent de ce métier. Te donner une réponse et donc un programme (gratuitement) est une insulte directe à ces gens, aussi, tu peux comprendre qu'on est timorés à répondre. D'un côté, on aime aider, de l'autre, on ne veut pas nuire aux développeurs professionnels, que faire ? Contacte-moi en message privé et je te fournirai peut-être quelque chose suivant ta demande précise Amicalement

Salut, Essaye ça: (defun c:manu_CAD (/ blk ent elst) (while (setq blk (tblnext "block" (not blk))) (setq ent (cdr (assoc -2 blk))) (while ent (if (= (cdr (assoc 0 (setq elst (entget ent)))) "ATTDEF") (entmod (subst (cons 8 "ELEC") (assoc 8 elst) elst) ) ) (setq ent (entnext ent)) ) (command-s "_.attsync" "_name" (cdr (assoc 2 blk))) ) (princ) )

hello salvanorigatore regarde dans le lisp, ca regroupe pas mal de lisp de gile et autres, certains lisp modifies je n'ai peut etre pas mis toutes les boites de dialogues, la plupart sont sur cadxp. sinon demande je les mettrais ici. fonction "selection_speciale" pour la recherche des blocs SPECIAL SELECTIONS.lsp

Hello @salvanorigatore 1) OOPS SORRY tu as raison ... A priori le Lisp ne traite peut etre que le "debut" du nom des Blocs ! Mais moi je trouve qu il marche bien donc mystere ! 2) J ai retrouve dans un dessin tous les Blocs OD voulus avec le critere suivant : *OD* Et si je demande : *E* ... Je "ramasse" presque tous les Blocs ! ATTENTION: la routine est sensible a la casse !? 3) SVP qq un peut il l ameliorer ... @(gile) @bonuscad @VDH-Bruno @Luna etc Ou confirmer que SelBlocks est OK !? Belle annee 2023, Bon WE, La Sante, Bye, lecrabe