|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
27.05.2004, 09:29 | #1 | |
Маштабирование чертежа в одном направлении
Хабаровск
Регистрация: 26.05.2004
Сообщений: 3
|
||
Просмотров: 5966
|
|
||||
сисадмин Регистрация: 26.08.2003
Самара
Сообщений: 1,022
|
Цитата:
Не эксплодить может быть иногда и можно... только 3DSOLID'ы в блоках не видит команда SOLDRAW, например.... Да и как работать то с примитивом, когда он в блоке.... Трудновато, а иногда вобще невозможно |
|||
|
||||
Сообщений: n/a
|
Есть у меня такой лисп и даже мануал к нему:
7. Команда "rast" - отсутствующая (в явном виде) в Autocad команда пропорционально растягивает выбранные объекты. Сначала выбираются объекты. Далее указываются точки. Первая указываемая точка - базовая. Вторая задает базовое расстояние. Третья задает расстояние на которое будут растянуты выбранные объекты. Растяжение производится по оси Х, при необходимости другого направления необходимо изменить направление оси Х. !!!Если в наборе примитивов писутствуют полилини то они будут разбиты. Тоесть все как и предпологали со всем вытекающим. (DEFUN rast (/ fff t1 t2 t3 dl1 dl2 k-rast el olderror) (setq olderror *error*) (setvar "cmdecho" 0) (vl-cmdf "_.undo" "_begin") (defun *error* (msg) (vl-cmdf "_.undo" "_end") (princ msg) (princ "\nОшибка, команда прервана...") (terpri) (setq *error* olderror) ) (setq fff (ssget) t1 (getpoint "\nУажите первую базовую точку: ") t2 (getpoint t1 "\nУажите вторую базовую точку: ") t3 (getpoint t1 "\nУажите точку растяжения: ") dl1 (distance t1 t2) dl2 (distance t1 t3) k-rast (/ dl2 dl1) ) (command "_.-block" "ababababab" t1 fff "") (command "_.-insert" "ababababab" t1 k-rast 1 0) (setq el (entlast)) (command "_.EXPLODE" el) (command "_.PURGE" "_b" "ababababab" "_no") (vl-cmdf "_.undo" "_end") (setq *error* olderror) (princ) ) (DEFUN C:rast (/) (rast) ) |
|||
|
||||
Регистрация: 17.12.2003
Сообщений: 114
|
Цитата:
|
|||
|
||||
проектировщик Регистрация: 08.05.2004
Украина
Сообщений: 1,123
|
Rojik
Ух-ха-ха! Не торопись благодарить! Прочитай Лисп-текст: (command "_.-block" "ababababab" t1 fff "") Создаем блок (command "_.-insert" "ababababab" t1 k-rast 1 0) вставляем с масштабом (setq el (entlast)) (command "_.EXPLODE" el) взрываем (command "_.PURGE" "_b" "ababababab" "_no") удаляем блок Классная прога Но я ее руками делаю И никаких новых плюсов по отношению к указанному алгоритму не дает 2 всем критикам данного подхода: Мы вообще-то Акад юзаем для рабочки. Для всех операция и всех примитивов на рбочке данный подход катит. А объемные тела, регины и фэйсы- эт-то, конечно интересно.... Но мало встречается Поэтому я в практике не встречал блоки, к которым это не катит. |
|||