[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 не устанавливаются.

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

[Natasha111]

Сообщение от 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]

"здесь упоминалось" - т.е. для чего.
Если для того же, тогда "Как использ лисп, опуб на форуме"

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

Natasha111, ёпырысыты! Ну научись использовать [Правка]!

[Dym]

BM60> повернуть одновременно несколько объектов vs Вращение множества объектов вокруг локальных центров.? Как использ лисп, опуб на форуме

[Natasha111]

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

[Vova]

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

Разве блоки поворачиваются этой командой? (нет автокада под рукой проверить). Т-ориент, Техт-Оrientation

[Natasha111]

Сообщение от Кулик Алексей aka kpblc Natasha111, ёпырысыты! Ну научись использовать [Правка]!

О, прошу прощения.

[BM60]

Natasha111, это не глупые вопросы, это вопросы не вполне точно сформулированные и, естественно, не вполне однозначно понятые другими. Клик на "здесь ..." открывал всю тему, и там было ясно для чего. Но из той ли оперы поворот вашего текста, понять только Вам.

И еще поясю больное от модераторов. Кнопка "Правка" делает удобным (для остальных) в одном посте писать дополнения , чтобы не плодить сообщения подряд. У Вас получилось 3 или 4 друг за другом поста с интервалом в 2-3 минуты. Если так уж вышло, то после вырезания (для вставки) впишите Удалено

[Хмурый]

Сообщение от Vova Разве блоки поворачиваются этой командой? (нет автокада под рукой проверить). Т-ориент, Техт-Оrientation

Извините, ошибся. Поворачиваются атрибуты внутри блока, а сами блоки- не поворачиваются.

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

BM60, уточню: тут было до 4 постов от одного и того же человека с интервалом до 3 минут. Просмотри тему - увидишь, сколько раз я вмешивался (внизу поста пишется "последний раз редактировалось...")

[Хмурый]

Сообщение от Кулик Алексей aka kpblc BM60, уточню: тут было до 4 постов от одного и того же человека с интервалом до 3 минут. Просмотри тему - увидишь, сколько раз я вмешивался (внизу поста пишется "последний раз редактировалось...")

Offtop: А я-то думал, если модератор намекает на кнопку Правка- это значит, что человек что-то не то сказал

[VVA]

Здесь еще одна версия

[АлексЮстасу]

Где-то видел, а где не найду. Чтобы доворачивание происходило не относительно центров элементов, а относительно их точек вставок - для блоков и текстов.
Иначе все съезжает со своих мест.
Нужно, если заменяются блоки на блоки с другой ориентацией, если делалось трансформирование или т.п.

[sertor]

АлексЮстасу, это?

[АлексЮстасу]

Сообщение от sertor это?

Увы. Это то же самое, что делают лиспы из данной темы (MRot.lsp) - вращение относительно центров объектов. Т.е. и блоки, и тексты поворачиваются не относительно точек вставки, а относительно их геометрических центров.

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

Вариант 1:

Код:

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

 (vl-load-com)

(defun c:robj1 (/ selset ang adoc)
  (if (and (= (type (setq selset (vl-catch-all-apply
                                   (function
                                     (lambda ()
                                       (ssget "_:L" '((0 . "INSERT,*TEXT")))
                                       ) ;_ end of lambda
                                     ) ;_ end of function
                                   ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'pickset
              ) ;_ end of =
           (= (type (setq ang (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getangle "\nВведите угол, на который надо повернуть объекты <Отмена> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'real
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
      (foreach ent ((lambda (/ tab item)
                      (repeat (setq tab  nil
                                    item (sslength selset)
                                    ) ;_ end setq
                        (setq tab (cons (vlax-ename->vla-object (ssname selset (setq item (1- item)))) tab))
                        ) ;_ end of repeat
                      ) ;_ end of lambda
                    )
        (vla-put-rotation ent (+ (vla-get-rotation ent) ang))
        ) ;_ end of foreach
      (vla-regen adoc acactiveviewport)
      (vla-endundomark adoc)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

Варинат 2:

Код:

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

 (vl-load-com)

(defun c:robj2 (/ selset ang adoc)
  (if (and (= (type (setq selset (vl-catch-all-apply
                                   (function
                                     (lambda ()
                                       (ssget "_:L" '((0 . "INSERT,*TEXT")))
                                       ) ;_ end of lambda
                                     ) ;_ end of function
                                   ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'pickset
              ) ;_ end of =
           (= (type (setq ang (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (getangle "\nВведите угол, на который надо повернуть объекты <Отмена> : ")
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'real
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
      (foreach ent ((lambda (/ tab item)
                      (repeat (setq tab  nil
                                    item (sslength selset)
                                    ) ;_ end setq
                        (setq tab (cons (vlax-ename->vla-object (ssname selset (setq item (1- item)))) tab))
                        ) ;_ end of repeat
                      ) ;_ end of lambda
                    )
        (vla-put-rotation ent ang)
        ) ;_ end of foreach
      (vla-regen adoc acactiveviewport)
      (vla-endundomark adoc)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 38 сек. -----
Хотя второй вариант можно было и не делать - через _.qselect можно и так выставить...

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc Вариант 1:

Оно! Спасибо!
Уже первый вариант.
Мне действительно казалось, что подобная программка уже была. Или уже от бесконечных дополнительных программок в глазах рябит и дежавю?
Возможно, что в темах, где обсуждалось создание листов на длинные трассы, где каждый участок на листе развернут по-своему?

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

А черт его знает - я с нуля нарисовал...

[АлексЮстасу]

Сообщение от Кулик Алексей aka kpblc А черт его знает - я с нуля нарисовал...

Круто!
"...Думал и разговаривал на лиспе"

Так понял, что robj1 поворачивает на указанный угол относительно прежнего положения элементов, а robj2 поворачивает в положение с заданным углом относительно ПСК?

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

Сообщение от АлексЮстасу Так понял, что robj1 поворачивает на указанный угол относительно прежнего положения элементов, а robj2 поворачивает в положение с заданным углом относительно ПСК?

Ну да. Первый "добавляет" указанный угол к имеющемуся, второй устанавливает указанный в качестве угла поворота.
Только я особо код не тестировал, поэтому предупреждаю: на разных вариантах выравниваний текстов могут быть не совсем ожидаемые результаты.