Добавил:
Katynska
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лаба 3 / Laba 3
.txt(defun ch-color ( / C L)
(setq c (cons 62 (acad_colordlg 7))
l t
) ;_ setq
(while (and (setq l (cdr (assoc 2 (tblnext "layer" l))))
(setq l (tblobjname "layer" l))
) ;_ and
(entmod (subst c (assoc 62 (entget l)) (entget l)))
(entupd l)
(setq l nil)
) ;_ while
) ;_ defun
;Проверка:(ch-color)
Соседние файлы в папке Лаба 3