здравствуйте
собственно сабж. Хочется полностью удалить из файла объекты замороженых слоев

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

Что лично я делал:
1. Размораживаю все эти слои.
2. Quick Select (Multi, by Layer).
3. [Delete]

Работает безотказно! :!:

[Arkady]

Давненько я этим на пельзовался.

(defun c:delf()
(setq la (tblnext "LAYER" T))
(while la
(setq laname (cdr (assoc 2 la))
cod70 (cdr (assoc 70 la))
coddo (logand cod70 1)
)
(if (= coddo 1)(progn
(setq ssl (ssget "X" (list (cons 8 laname))))
(princ "\n Erase layer ")
(princ laname)
(setvar "CMDECHO" 0)
(command "ERASE" ssl "")
(setvar "CMDECHO" 1)
))
(setq la (tblnext "LAYER"))
)
(princ)
)

спасибо