|
Тема |
Re: към tooth [re: gena] |
|
Автор | StSt (Нерегистриран) | |
Публикувано | 15.03.07 08:48 |
|
|
Добавих и промяна на цвета на ByLayer
;прехвърля всички елементи на всички блокове в слой "0"
(defun reblk0 (/ en eni)
(if (setq en (tblnext"block"T))
(progn
(WHILE en
(setq en(cdr(ASSOC -2 en)))
(while en
(setq eni(entget en)
eni (subst '(8 . "0")(ASSOC 8 eni)eni);сменя слой
eni (subst '(62 . 256)(ASSOC 62 eni)eni);сменя цвят
)
(entmod eni)
(setq en (entnext en))
);while elem en
(setq en (tblnext "block"))
);WHILE
(command "regen")
);progn
);if blocks
);reblk0
|
| |
|
|
|