|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
05.05.2004, 11:27 | #1 | |
Как задать толщину?
Сообщений: n/a
|
||
Просмотров: 4462
|
|
||||
Регистрация: 19.03.2004
Калининград
Сообщений: 1,842
|
Свойства Thickness у эллипса и сплайна нет. Для полилинии, отрезка и окружности - в описании примитива это группа 39, ее и нужно менять на необходимое значение (39 . 3000.0).
(entget(car(entsel))) - можно вытащить описание выбираемого примитива. Затем в описании изменить значение группы 39. Изменить примитив. |
|||
|
||||
Регистрация: 19.03.2004
Калининград
Сообщений: 1,842
|
Вот на скорую руку без проверки типа объекта. Для полилиний действует всегда. Можно изменять thickness и у отрезков и окружностей, если исходное значение не 0. Команду NTHICK можно заменить на любую удобоваримую.
(defun C:NTHICK () (setq id_prim (car (entsel))) (setq new_thick (getreal "\nВведите новую толщину: ")) (while (/= id_prim nil) (setq list_prim (entget id_prim)) (setq list_prim (subst (cons 39 new_thick) (assoc 39 list_prim) list_prim)) (entmod list_prim) (setq id_prim (car (entsel))) ) ) Для отрезков и окружностей необходимо группу 39 добавлять, если исходное значение было 0. |
|||