 |
> нид прога на лиспе удал. все объекты фрозеных слоев | |
нид прога на лиспе удал. все объекты фрозеных слоев |
||
|
|
||
| | Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
|||||||
 |
| Поиск в этой теме |
03.10.2003, 11:22
|
#1 | |
|
нид прога на лиспе удал. все объекты фрозеных слоев
Сообщений: n/a
здравствуйте
 собственно сабж. Хочется полностью удалить из файла объекты замороженых слоев |
||
|
Просмотров: 3237
|
||
|
||||
|
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,833
|
Что лично я делал:
1. Размораживаю все эти слои. 2. Quick Select (Multi, by Layer). 3. [Delete] Работает безотказно! :!:
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
|
||||
|
AutoCad Development and Support Регистрация: 21.08.2003
Israel
Сообщений: 183
 |
Давненько я этим на пельзовался.
(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) ) |
|||
|
|
|
||||
|
Сообщений: n/a
|
спасибо
|
|||
|
|
| Опции темы | Поиск в этой теме |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Для чего нужны фильтры слоев?Как ими пользоваться? | Aysulu | AutoCAD | 43 | 17.04.2019 10:59 |
| ЮМОР 2006 =) | Perezz!! | Разное | 1122 | 04.01.2007 00:46 |
