[DaiverNet]

Уважаемые пользователи автокад! Напишите пожайлуста кто знает как масштабировать объекты (выделенный набор примитивов) конретно по осям х, у, z. Например нужно увеличить масштаб чертежа по осям х и у в 2 раза, и по оси z в 10 раз.Пробую увеличить масштаб командой "scale" получается что весь чертеж по всем трем осям меняет масштаб сразу. Как сделать чтобы изменить масштаб только по конкретной оси, не могу додумать.Помогите пожайлуста.

С уважением ко всем сетянам Алексей.

[Серёга - Bilder]

Элементарно Ватсон!
По шагам:
1. Выбираете всё что Вам необходимо промасштабировать.
2. Нажимаете "копировать" (предпочитаю с базовойй точкой)
3. Нажимаете "всавить как блок"
4. Указываете точку вставки
5. Выбираете получившийся блок
6. -> свойства
7. В свойствах находите три стройки "масштаб Х, масштаб Y, масштаб Z" - напротив них всех стоит 1.
8. Ставите вместо "1" в соответствующих строках нужные вам масштабы - получаете на своём лице

Дальше для работы можно расчленить блок - только аккуратно - чтоб штриховки не бахнкть :twisted:

[gest]

Серёга - Bilder
Метод конечно хорош, но круги превращаются в эллипсы, да еще много чего может вылезти, сам использую вот это,
к сожалению уже не помню чье творение, но она масштабирует корректно.

Код:

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

(defun C:NSCALE (/ KX KY NAB T0)
  (setvar "CMDECHO" 0)
  (setq NAB (ssget))
  (setq T0 (getpoint "Укажите базовую точку :"))
  (setq KX (getreal "Коэффициент масштаба по оси ОХ <1>: "))
  (if (not KX)
    (setq KX 1)
  )
  (setq KY (getreal "Коэффициент масштаба по оси ОY <1>: "))
  (if (not KY)
    (setq KY 1)
  )

  (command "_-BLOCK" "$$$TEMP$$$" T0 NAB "")
  (command "_-INSERT" "$$$TEMP$$$" T0 KX KY 0)
  (command "_EXPLODE" (entlast))
  (command "_-PURGE" "_B" "$$$TEMP$$$" "_N")
)

[Profan]

Для DaiverNet.
А у вас в "чертеже" присутствуют трехмерные объекты?

[Серёга - Bilder]

Гест:

Метод конечно хорош, но круги превращаются в эллипсы, да еще много чего может вылезти.....

Может я чего-то не понимаю, но как мне кажется если круг смасштабировать по оси Х в 10 раз, а по Y - в 20 раз, то по определению должны получить элипс? - или я торможу? :roll:

[gest]

Попробуй взять для круга масштаб по X=10 и по Y=10 и у тебя после разбивки получится эллипс, я подразумевал эту проблему.

[Серёга - Bilder]

Гест:

Попробуй взять для круга масштаб по X=10 и по Y=10 и у тебя после разбивки получится эллипс, я подразумевал эту проблему

Ааааа, вон ты о чём! Щас попробовал - чесна слово - первый раз в жизни увидел - и правда - круг превращается в элипс :P

[gest]

Легким движением руки круг превращается :wink:
Серёга - Bilder Кстати с тысячным сообщением тебя :wink:
Извиняйте за флуд.

[DaiverNet]

Для Profan на чертежах нанесены точки по трем координатам Х, У, Z положение которых и нужно изменить(маштабировать) по всем трем осям координат. Вообще черчу инженерные коммуникации по факту строительства, очень удобно строить по всем трем координатам сразу, затем меняю вид ХУ, по оси Z в итоге получается план и профиль(разрез) коммуникаций. Может быть кто знает другие способы чертить коммуникации?

[DaiverNet]

Большое спасибо всем тем кто откликнулся, ваши советы очень помогли.

[Krieger]

Сообщение от Гест Серёга - Bilder Метод конечно хорош, но круги превращаются в эллипсы, да еще много чего может вылезти, сам использую вот это, к сожалению уже не помню чье творение, но она масштабирует корректно. Код: [Выделить все] (defun C:NSCALE (/ KX KY NAB T0) (setvar "CMDECHO" 0) (setq NAB (ssget)) (setq T0 (getpoint "Укажите базовую точку :")) (setq KX (getreal "Коэффициент масштаба по оси ОХ <1>: ")) (if (not KX) (setq KX 1) ) (setq KY (getreal "Коэффициент масштаба по оси ОY <1>: ")) (if (not KY) (setq KY 1) ) (command "_-BLOCK" "$$$TEMP$$$" T0 NAB "") (command "_-INSERT" "$$$TEMP$$$" T0 KX KY 0) (command "_EXPLODE" (entlast)) (command "_-PURGE" "_B" "$$$TEMP$$$" "_N") )

Может я торможу, но этот код выполняет в точности то-же самое что сказал Серёга - Bilder. Загоняешь в блок, вставляешь с масштабом, расчленяшь. :?

[gest]

Krieger
Зато она позволяет при маштабировании сохранять геометрию (в основном круга), в отличии от способа указанного Серёга - Bilder.
По командам действительно похоже, не пойму в чем секрет :?:

[Krieger]

Гест
Сейчас попробывал, короче, если меняем одинаково все три координаты, то окружность остаётся окружностью (хэть как масштабируй). Если поменять только X и Y, а Z оставить другой, то видим круг, а примитив поменяется на эллипс.
Вообщем, весь секрет в лени забить еще одну цифру.

[gest]

Krieger
Работал всегда в основном в плоскости X, Y и масштаб по третьей координате думал не причем, хотя лишнюю координату вбивать действительно не охота :wink:
Спасибо за объяснения.

[Om81]

Да, Серега - теперь Гуру (правда, это раньше было - потом отменили звания)

[Серёга - Bilder]

1000+1
Om81:

Да, Серега - теперь Гуру (правда, это раньше было - потом отменили звания)

- если память не изменяет - Гуру - это 300 постов было? :wink: А тех у кого больше 1000 - назначили "почётными флудерами" или что-то типа того... правда после этого очень быстро вообще все звания отменили :wink:

[Om81]

Блин, и правда.. Ты ведь уже вроде был гуру(?)
Ну значит теперь можешь безбожно флудить и советовать всякую фигню.. как я )))

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

> Серёга - Bilder : Ага, потому что на вопрос "как не стать почетным флудером?" был ответ "пиши по нечетным"

[Серёга - Bilder]

Раз уж в такой далёкий оффтоп ушли - то пофлудю (раз уж "положение обязывает" :wink: )

- меня ничуть не обидит звание "почётный флудер" - т.к. это, ИМХО, оно значительно ближе к истине, чем звание "ГУРУ" - касаемо меня

[DEM]

Сообщение от kpblc > Серёга - Bilder : Ага, потому что на вопрос "как не стать почетным флудером?" был ответ "пиши по нечетным"

Насколько Я помню звание "Почетный флудер" удостоился именно ТЫ (без обид)