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))
(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