[sazone]

мне требуется масштабирование объектов по осям х и y с разными коэффициентами
к примеру я хочу смаштабировать объект с коэффициентом по оси х=0,9
а по оси у оставить коэффициент 1
я так понимаю надо создавать программку в AutoLISP?
или есть стандартная функция в AutoCad'e?
помогите плиз, оч.надо

[Кулик Алексей aka kpblc]

В Download посмотри программу от Дениса Флюстикова (вроде была) - как раз насчет масштабирования по разным осям.

[zamtmn]

В toolpac`e для этого есть команда DSTP_OBJXYZSCL

[zenon]

Создать из объектов блок, задать масштаб по осям, взорвать.

[sazone]

согласен блоком можно
а если мне надо много масштабировать и всегда разный коэффициент?
обрисую подробнее ситуацию
у меня есть рисунок в dwg размером 800х2000 мм и надо постоянно менять размер (к примеру на 760х1960, или 760х2050)
постоянно пересчитывать коэф. нудно и если учесть что изображений больше 100
есть ли возможность задать конечный размер, а прога сама уже подберет коэффициент?

[Кулик Алексей aka kpblc]

Создавай рисунок размерами 1х1, вставляй как блок и масштабируй потом как вздумается.

[zenon]

думаю все можно загнать в макрос

[sazone]

Сообщение от zenon думаю все можно загнать в макрос

как?

[zenon]

sazone, http://dwg.ru/art/2

[nik_mb]

Сообщение от zenon думаю все можно загнать в макрос

Задача решается не очень просто, так как за раз надо:
1. Создать блок и его имя.
2. Определить размеры этого блока (не просто, если нет рамки вокруг него).
3. Определить, указанием, новые размеры.
4. Пересчитать коэфициенты.
5. Вставить блок с новыми коэф. и взорвать.

ЗЫ. лучше один раз увидеть задачу (или фрагмент), чем сто раз услышать.

[zenon]

nik_mb, больно замудренно
давай разберем
1. Выбрать объекты
2. Создать блок
3. Вставить блок с масштабными коэф.
4. Взорвать блок.
Все.

[nik_mb]

Сообщение от zenon nik_mb, больно замудренно давай разберем 1. Выбрать объекты 2. Создать блок 3. Вставить блок с масштабными коэф. 4. Взорвать блок. Все.

Но я понял задачу так - много разных фрагментов, которые нужно перемасштабировать по разному. Если коэфициенты масштаба постоянны, то это сильно упрощает задачу. Но тогда это можно сделать один раз для всех объектов в файле. А sazone указывает, что "изображений больше 100", неспроста.
Простейший код такой программы (если предварительно начертить рамки существующего и требуемого изображения)

Код:

[Выделить все]

 
(defun C:р_масш ()
(setq ugol1 (getpoint "Укажи первый угол изображения")) 
(setq ugol2 (getpoint "\nУкажи по диагонали второй угол сущ. изображения" ugol1)) 
(setq ugol3 (getpoint "\nУкажи по диагонали угол нужного размера изображения" ugol1))
(setq delta_x1 (abs (- (car ugol1)(car ugol2))))
(setq delta_y1 (abs (- (cadr ugol1)(cadr ugol2))))
(setq delta_x2 (abs (- (car ugol1)(car ugol3))))
(setq delta_y2 (abs (- (cadr ugol1)(cadr ugol3))))
(setq koef_x (/ delta_x2 delta_x1))
(setq koef_y (/ delta_y2 delta_y1))
(command "_block" "qwerty" ugol1 "_c" ugol1 ugol2 "")
(command "_insert" "qwerty" ugol1 "_x" koef_x koef_y 1 "")
(command "_explode" "_l" "")
(command "purge" "_b" "qwerty" "n")
  )

[sazone]

спасибо
попробуем