[Startrek]

Знаю что тема уже тут прорабатывалась.
Просто набрел в одном из англоязычных форумов на очень простенькую програмку для взрывыния ГРУПП.
Код не мой - за что купил за то и ......

Код:

[Выделить все]

(defun C:GX () (GROUP_EX)) 


(defun get_group_name (ename / key dct rtn) 
  (setq 
    key (cons 340 ename) 
    dct (dictsearch (namedobjdict) "ACAD_GROUP") 
  ) 
  (while (setq dct (member (assoc 3 dct) dct)) 
    (if (member key (entget (cdadr dct))) 
      (setq rtn (cons (cdar dct) rtn)) 
    ) 
    (setq dct (cddr dct)) 
  ) 
  (reverse rtn) 
) 


(defun group_ex (/ cont grp gname) 
  (setq cont 1) 
  (while cont 
    (setq grp (car (entsel "\nSelect Group to Explode:"))) 
    (if (setq gname (nth 0 (get_group_name grp))) 
      (progn 
        (command "-group" "e" gname) 
        (setq cont nil) 
      ) 
      (alert "Entity Selected is not a Group! Try Again") 
    ) 
  ) 
  (princ) 
)

[Кочетков Андрей]

Да вещь полезная.
А еще в Тулпаке есть команда для мгновенного создания группы OGM и взрывания OGX.
Использую их постоянно.

[AY]

>Startrek
Да уж на англоязычных форумах не заботятся о подчеркиваниях когда используют (command ... ).
Отмечусь своим вариантом без командной строки:

Код:

[Выделить все]

(DEFUN c:ungroup2 (/ a)
    (if (setq a (entget (car (entsel "\nУкажите объект разбиваемой группы... "))))
            (if (setq a (cdr (assoc 330 a)))
                (if (eq (cdr (assoc 0 (entget a))) "GROUP")
                    (if (entdel a) (princ "\nГруппа разбита..."))
                    (princ "\nГруппа не обнаружжена...")
                )
                (princ "\nГруппа не обнаружжена...")
            )
    )
    (princ)
)

[Кулик Алексей aka kpblc]

> Startrek : А здесь: http://www.autocad.ru/cgi-bin/f1/board.cgi?t=22733Nt не смотрел?