[Rojik]

Нужен Лисп для изменения маштаба чертежа только в одном направлении - по оси Х или Y. Очень нужно при построении сечений, разрезов. Подскажите как это сделать? E-mail- [email protected]

Создай блок, затем при его вставке в диалоговом окне Insert измени в Specify on screen
X=1
Y=1
Z=1
масштаб по нужной тебе оси,например на
X=0.5
Y=1
Z=1
и готово... по оси X в 2раза меньше по Yи Z :wink:

[maestro]

А на фига Лисп? Создать блок--Изменить масштаб по оси Х(У)- взорвать блок.

[Baron]

Сообщение от maestro А на фига Лисп? Создать блок--Изменить масштаб по оси Х(У)- взорвать блок.

Ну не с каждым блоком, после изменения масштаба повзрываешь......

[maestro]

Baron.

Ну не с каждым блоком, после изменения масштаба повзрываешь......

Например? у меня пока со всеми.. Кроме того, можно и не эксплодить....

[vk]

Сообщение от maestro Baron. Ну не с каждым блоком, после изменения масштаба повзрываешь...... Например? у меня пока со всеми.. Кроме того, можно и не эксплодить....

А загоните ка в блок твердое тело, тоесть, 3DSOLID..... И попробуйте взорвать блок после разномастного масштабирования по осям :wink:
Не эксплодить может быть иногда и можно... только 3DSOLID'ы в блоках не видит команда SOLDRAW, например.... Да и как работать то с примитивом, когда он в блоке.... Трудновато, а иногда вобще невозможно

Есть у меня такой лисп и даже мануал к нему:

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)
)

[Baron]

Сообщение от vk Сообщение от maestro Baron. Ну не с каждым блоком, после изменения масштаба повзрываешь...... Например? у меня пока со всеми.. Кроме того, можно и не эксплодить.... А загоните ка в блок твердое тело, тоесть, 3DSOLID..... И попробуйте взорвать блок после разномастного масштабирования по осям :wink: :(

Как уже сказал VK и даже если в состав блока входит регион, например...

[Rojik]

AY, Джек Воробей и иже с ними - СЕНКС

[maestro]

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 всем критикам данного подхода: Мы вообще-то Акад юзаем для рабочки. Для всех операция и всех примитивов на рбочке данный подход катит. А объемные тела, регины и фэйсы- эт-то, конечно интересно.... Но мало встречается Поэтому я в практике не встречал блоки, к которым это не катит.

[Baron]

Каждому свое.....

[vk]

>Baron
Про регионы - это верно, позабыл о них...
А ведут они себя так же как 3д солиды по простой причине - у них одинаковое происхождение и способ кодирования DXF