-
Qui est en ligne 2 membres, 0 anonyme, 110 invités (Afficher la liste complète)
AutoCAD MEP
228 sujets dans ce forum
-
- 3 réponses
- 3,4 k vues
-
- 1 réponse
- 2,8 k vues
-
- 1 réponse
- 2,8 k vues
-
- 14 réponses
- 7,2 k vues
-
- 5 réponses
- 7,8 k vues
-
- 0 réponse
- 2,2 k vues
-
- 0 réponse
- 4,4 k vues
-
- 2 réponses
- 6,9 k vues
-
- 2 réponses
- 9,7 k vues
-
- 1 réponse
- 3,6 k vues
-
- 3 réponses
- 3,9 k vues
-
- 8 réponses
- 6,6 k vues
-
- 6 réponses
- 5,3 k vues
-
- 1 réponse
- 8,4 k vues
-
- 0 réponse
- 4,2 k vues
-
- 3 réponses
- 10,3 k vues
-
- 0 réponse
- 4,7 k vues
-
- 0 réponse
- 3,4 k vues
-
- 0 réponse
- 1,7 k vues
-
- 0 réponse
- 4,5 k vues
-
- 0 réponse
- 7,5 k vues
-
- 2 réponses
- 5,1 k vues
-
- 2 réponses
- 2,5 k vues
-
- 2 réponses
- 6,1 k vues
-
- 2 réponses
- 3,5 k vues
-
Statistiques des forums
-
Total des sujets49,3 k
-
Total des messages299,2 k
-
-
Sujets
-
-
Messages
-
Par William44850 · Posté(e)
@lecrabe, le LISP fonctionne parfaitement. Merci beaucoup. @Olivier Eckmann, je le saurais pour une prochaine fois...même si je ne la souhaite pas Merci à tous les 2. Bonne fin de journée. -
Par Olivier Eckmann · Posté(e)
Bonjour, Les groupes n'existent que dans le dessin courant. Copier/coller tous objets dans un dessin vierge supprime tous les groupes. Olivier -
Hello @William44850 SVP tu testes cette routine Lisp "DG" et tu nous dis ... Bye, lecrabe ;; ;; http://cadxp.com/index.php?/topic/35771-del-all-groups-ene-fonctionne-pas-avec-autocad-2013/page__pid__194692#entry194692 ;; ;; Routine pour remplacer Dell_All_Groups.lsp qui semble ne pas fonctionner avec AutoCAD 2013 ;; ;; Decompose les groupes auxquels appartiennent les objets selectionnes. ;; ;; Brice Studer, ocobre 2011 ;; (defun c:DG (/ *error* acdoc groups ss i gl) (vl-load-com) (setq acdoc (vla-get-activedocument (vlax-get-acad-object)) groups (vla-get-groups acdoc) ) (defun *error* (msg) (and msg (or (member (strcase msg) '("FUNCTION CANCELLED" "QUIT / EXIT ABORT" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON")) (princ (strcat "\nErreur : " msg)) ) ) (if ss (setq ss nil)) (vla-endundomark acdoc) (princ) ) (vla-startundomark acdoc) (princ "\nSelectionnez les groupes a decomposer <entree pour tous> : ") (if (setq ss (ssget)) (progn (setq i 0) (repeat (sslength ss) (mapcar '(lambda (x) (and (= 330 (car x)) (= (cdr (assoc 0 (entget (cdr x)))) "GROUP") (or (member (cdr x) gl) (setq gl (cons (cdr x) gl)) ) ) ) (entget (ssname ss i)) ) (setq i (1+ i)) ) (foreach g gl (entdel g) ) ) (vlax-for g groups (setq gl (cons g gl)) (vla-delete g) ) ) (princ (strcat "\n" (itoa (length gl)) " groupes decomposes !")) (*error* nil) (princ) ) (princ "\nCommande a utiliser : DG") (princ)
-
Par William44850 · Posté(e)
Ah bah non...ça ne marche pas. c'eût été trop simple. -
ne peux tu pas utiliser "décomposer" sur les groupes ?
-
-
Sujets
-
