[Natasha111]

Нашла в поиске что-то с программированием, ничего не поняла
Есть ли в Автокаде 2006 такая команда: повернуть несколько объектов одновременно и чтобы они оставались при этом на своем месте?

[OxYGeN]

круги чтоли поворачиваем? при повороте объекта указывается точка, вокруг которой оа поворачивается... если у нескольких объектов эта точка не совпадает, то никак... поставьте вопрос более широко, может найдется другой вариант решения.

[Хмурый]

для блоков и текстов есть команда _torient из Express Tools

[Profan]

А что нашла в программировании? Ссылка есть?

[AlexV]

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

[Natasha111]

Сообщение от Profan А что нашла в программировании? Ссылка есть?

http://forum.dwg.ru/search.php?searchid=2000932

Сообщение от OxYGeN круги чтоли поворачиваем? при повороте объекта указывается точка, вокруг которой оа поворачивается... если у нескольких объектов эта точка не совпадает, то никак... поставьте вопрос более широко, может найдется другой вариант решения.

Более широко: есть текст, что стоит под углом 90 гр., его много, мне нужно повернуть его, чтобы я его видела на экране горизонтально, а не "на попах".

Сообщение от Хмурый для блоков и текстов есть команда _torient из Express Tools

Шоб я знала этого зверя! Извините, слышала, но не пользовалась, куда податься за выяснениями?

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

Программу конечно можно, только вот проект-то закончить сегодня надо.

[AlexV]

Сообщение от Natasha111 Более широко: есть текст, что стоит под углом 90 гр., его много, мне нужно повернуть его, чтобы я его видела на экране горизонтально, а не "на попах".

Natasha111, ну так выдели все текстовые объекты, и в окне свойств задай им поворот 0... Конечно, если у текста привязка не "по центру", он может несколько сместиться...

[Хмурый]

Natasha111, Express Tools- комплект дополнительных утилит. Поставляется на одном диске с AutoCAD'ом, во всех версиях с 2000 по 2009, кроме 2002.
Вставить диск в дисковод и доустановить утилиты

[BM60]

Ну если просто текст. Особенно если однострочный, то просто.
В свойствах ставите угол поворота 0, а потом кнопкой копирование свойств кликаете на каждый другой размер (числа) и будет Вам щастье все в одну строку. Только потом каждый придется регулировать.
А еще бывает Мтекст..., но и в его окне есть нечто на эту тему

[Natasha111]

Сообщение от AlexV Natasha111, ну так выдели все текстовые объекты, и в окне свойств задай им поворот 0... Конечно, если у текста привязка не "по центру", он может несколько сместиться...

Да, текст прыгнул со своего места, а если это не только текст, к примеру значек уровня не в блоке?

Сообщение от Хмурый Natasha111, Express Tools- комплект дополнительных утилит. Поставляется на одном диске с AutoCAD'ом, во всех версиях с 2000 по 2009, кроме 2002. Вставить диск в дисковод и доустановить утилиты

А-а, с диска, нету его у меня сейчас. Идет ли это как отдельная установка или это неразрывно связано именно с данным Автокадом? Я почему спрашиваю, есть тут у меня где-то обычный 2006, а у меня установлен ADT

[BM60]

Огромная и очень подробная тема по Экспрессам тут рядом
Если 6-й установлен в типовом виде, то попробуйте в КС набрать: expresstools\ enter

[Natasha111]

Сообщение от BM60 Ну если просто текст. Особенно если однострочный, то просто. В свойствах ставите угол поворота 0, а потом кнопкой копирование свойств кликаете на каждый другой размер (числа) и будет Вам щастье все в одну строку. Только потом каждый придется регулировать. А еще бывает Мтекст..., но и в его окне есть нечто на эту тему

Прыгает, аспид проклятый,а вот про М-текст поподробнее пож.

Сообщение от BM60 Огромная и очень подробная тема по Экспрессам тут рядом Если 6-й установлен в типовом виде, то попробуйте в КС набрать: expresstools\ enter

Команда ему не знакома, ладно, пойдем в большую тему, спасибо.

Сообщение от Natasha111 http://forum.dwg.ru/search.php?searchid=2000932

Ха,обнаружила, что ссылка не работает, я нашла это через поиск и набрала такой же тест как моя тема

[Profan]

Сообщение от Natasha111 http://forum.dwg.ru/search.php?searchid=2000932

Ссылка в никуда ведет.

[BM60]

А зачем тут подробно об Мтексте, если у Вас использован неизвестно какой?

Сообщение от Natasha111 Команда ему не знакома...

А посмотреть состав Папки автокада в C:\ ProgramFiles\ AutoCad 2006\ ?
Значится там папка Express? Не пустая!!!
Да = в КС аккуратно наберите expresstools
Нет = см другие ответы и указанную тему.

[Natasha111]

Сообщение от BM60 А зачем тут подробно об Мтексте, если у Вас использован неизвестно какой?

Потому что думала, что можно как-то быстренько изменить вид текста и опять же быстренько в том окошке поправить, р-раз и в дамки!

Сообщение от BM60 А посмотреть состав Папки автокада в C:\ ProgramFiles\ AutoCad 2006\ ? Значится там папка Express? Не пустая!!! Да = в КС аккуратно наберите expresstools Нет = см другие ответы и указанную тему.

Набрала СУПЕРаккуратно, не знает. И папки нет, он у меня на D установлен. Или это неважно где он сидит?

[BM60]

Экспрессы сами знают, где им сидеть.
Если папки Express в папке автокада нет, значит уст-те, как описано тут и там.
Однострочный текст и многострочный текст принципиально разные весчи.
Написанное одним нельзя редактировать другим.
Ваш случай только ручной, через свойства.

[Profan]

Сообщение от BM60 Огромная и очень подробная тема по Экспрессам тут рядом Если 6-й установлен в типовом виде, то попробуйте в КС набрать: expresstools\ enter

Как раз в "типовом виде" Express Tools в AutoCAD 2006 не устанавливаются.

[Natasha111]

Сообщение от BM60 Экспрессы сами знают, где им сидеть. Если папки Express в папке автокада нет, значит уст-те, как описано тут и там. Однострочный текст и многострочный текст принципиально разные весчи. Написанное одним нельзя редактировать другим. Ваш случай только ручной, через свойства.

Ок, сделаю. Ручной

[Dym]

Код:

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

(defun c:MRot (/ ass ra rp pn pt dst pts om) 
  (ssget) 
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)) 
      ass (vla-get-ActiveSelectionset adoc) 
      om (getvar "OSMODE"));setq 
  (initget "Point Center") 
  (setq kw (getkword "\nSelect Rotation Mode: [Point/Center]: <Center>")) 
  (if (null kw) (setq kw "Center")) 
  (if (= kw "Point") 
    (progn (setq obj (vla-item ass 0)) 
      (vla-highlight obj :vlax-true) 
      (vla-getboundingbox obj 'pn 'px) 
      (setq pn (vlax-safearray->list pn) 
          pt (getpoint pt "\nEnter Rotation Point: ") 
          dst (distance pn pt) ang (angle pn pt)) 
      (vla-update obj)));if 
  (setq ra (getreal "\nEnter Rotation Angle <0.0> : "))              
  (if (not ra) (setq ra 0)) 
  (vla-startundomark adoc) 
  (vlax-for ent ass 
    (vla-getboundingbox ent 'mn 'mx) 
    (setq pts (mapcar 'vlax-safearray->list (list mn mx)) 
        rp (vlax-3d-point (if (= kw "Point") (polar (car pts) ang dst) 
               (mapcar '(lambda (x y) (/ (+ x y) 2)) (car pts) (cadr pts)))));setq 
    (vla-rotate ent rp (* (/ ra 180) pi)));vlax-for 
  (setvar "OSMODE" om) 
  (vla-endundomark adoc) 
);end

здесь упоминалась

[BM60]

Сообщение от Profan Как раз в "типовом виде" Express Tools в AutoCAD 2006 не устанавливаются.

Под типовым я разумел по умолчанию, не по выбору пользователя.
Если после уст-ки Када юзер видит предложение "Уст-ить (да/Нет) Экспресс ...", тогда другое дело... Надо доуст-ать компонент.