Limpar Groups Vazios

Você usa o GROUP? se usa o Posicao (da manfra), com ceteza, mesmo que não saiba... bom acontece que ao apagar as entidades de um GROUP, este não é apagado, fica lá... se você usar o comando GROUP, verá que o GROUP continua lá, aé você pode "explodir" o group, pelo editor de groups do cad (que convenhamos, é muito tosco..), mas e se você tiver milhares deles? pior ainda, pois fica difícil achar um group qualquer... então fiz este programinha
mostra aí!!
;limpa grupos vazios
(defun c:limpagrupos(/ x n)
  (
tbn:error-init (list (list "cmdecho" 0) t))
  (
Setq n 0)
  (
vlax-for x (vla-get-Groups thisdrawing)
    (
if (= 0 (vla-get-count x)) (progn (setq n (1+ n)) (vla-delete x))))
  (
prompt (strcat "\n" (itoa n) " grupo(s) vazio(s) apagado(s)"))  
  (
tbn:error-restore))



Link(s) da(s) subrotina(s) usada(s):
tbn:error-init, thisdrawing, tbn:error-restore

Nenhum comentário:

Postar um comentário