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

Deixe um comentário

Carrinho de compras
Rolar para cima