|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
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-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Давненько я этим на пельзовался.
(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) ) |
||||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Для чего нужны фильтры слоев?Как ими пользоваться? | Aysulu | AutoCAD | 43 | 17.04.2019 10:59 |
ЮМОР 2006 =) | Perezz!! | Разное | 1122 | 04.01.2007 00:46 |