ЛИСП делающий примитивы НЕвидимыми в видимом слое

Програмка хорошая , но есть одно пожелание:чтобы когда делаешь обьекты невидимыми,то гденибудь в углу появлялось какое-нибудь напоминание ( и в 2d и в 3d), а то часто забываю про них.

Можно сделать так что при закрытии и открытии файла, на экран выскакивало напоминание что в чертеже остались невидимые объекты. Но в этом случае либо вся програмка либо отдельная функция должна находиться в автозагружаемом файле ACAD.LSP. Напишите если такой вариант идет, то сделаем.

Пойдет.Жду обновления или если не трудно мне на мыло:
maxim.chervyak@bestway.lg.ua

Отослал вам "напоминалку", если не получили сообщите. В Download выложу позже.

И мне на мыло ПЛЗ: ОбновлениЕ с напоминалкой.
sdinfo@yandex.ru
Программа СУПЕР!!!

Интересное совпадение дат...:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=8121bI

Именно совпадение. Код этой программы похуже будет, можете убедится заблокировав один из слоев с невидимым объектом. Надо найти время и переписать в соответствиис предложенной ссылкой :)

а lisp работает быстрее, чем fas. странно.

Как вариант на тему:

(defun c:hideobj (/ ss i n)
(setq ss (ssget))
(if (not (null ss))
(progn
(setq i 0
n (sslength ss))
(while (< i n)
(redraw (ssname ss i) 2)
(setq i (1+ i)))))
(princ)
)

Отличие от выложенной проги:
1. После открытия файла со скрытыми таким способом примитивами они станут видны
2. Обычная регенирация возвращает все на свои места.