Classement

Bonsoir Olivier, Est-ce que quelque chose de ce genre là, pourrait faire l'affaire? ;; VDH-Bruno le 16-10-2013 ;; Dissocier un groupe par pointage (defun c:grdissocier (/ e) (and (setq e (ssget "_+.:S")) (eq (vla-get-ObjectName (setq e (vlax-ename->vla-object (cdr (assoc 330 (entget (ssname e 0))))) ) ) "AcDbGroup" ) (vla-delete (vla-Item (vla-get-groups (vla-get-ActiveDocument (vlax-get-acad-object))) (vla-get-Name e) ) ) ) (princ) ) (Ps : Ctrl+H permet de faire la bascule rapidement pour PICKSTYLE 1 <-> 0 ) A+

Hello Ta variable PICKSTYLE = ??? Es tu avec un AutoCAD ou avec un AutoCAD LT ? Car avec un vrai AutoCAD le programme Lisp suivant va supprimer TOUS les groupes ! (defun c:del_all_groups () (vl-load-com) (setq grp (vla-get-groups (vla-get-activedocument(vlax-get-acad-object)))) (vlax-for gr grp (vla-delete gr) ) ) Bonne Soiree, lecrabe