повернуть одновременно несколько объектов

Natasha111 · 29.01.2009, 11:24

Нашла в поиске что-то с программированием, ничего не поняла

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

Natasha111 · 29.01.2009, 14:21

Цитата:

Сообщение от 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 · 29.01.2009, 14:28

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

Кулик Алексей aka kpblc · 29.01.2009, 14:42

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

Dym · 29.01.2009, 14:44

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

Natasha111 · 29.01.2009, 14:45

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

Vova · 29.01.2009, 14:45

Цитата:

Сообщение от Хмурый

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

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

Natasha111 · 29.01.2009, 14:51

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

BM60 · 29.01.2009, 14:56

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

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

Хмурый · 29.01.2009, 15:04

Цитата:

Сообщение от Vova

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

Извините, ошибся.

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

Кулик Алексей aka kpblc · 29.01.2009, 15:07

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

Хмурый · 29.01.2009, 15:10

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

VVA · 29.01.2009, 15:16

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

АлексЮстасу · 11.08.2014, 21:17

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

sertor · 12.08.2014, 08:28

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

АлексЮстасу · 12.08.2014, 16:02

Цитата:

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

это?

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

Кулик Алексей aka kpblc · 12.08.2014, 16:33

Вариант 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 можно и так выставить...

АлексЮстасу · 12.08.2014, 17:16

Цитата:

Сообщение от Кулик Алексей aka kpblc

Вариант 1:

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

Кулик Алексей aka kpblc · 12.08.2014, 19:30

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

АлексЮстасу · 12.08.2014, 19:56

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

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

Кулик Алексей aka kpblc · 12.08.2014, 22:54

Цитата:

Сообщение от АлексЮстасу

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

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вращение множества объектов вокруг локальных центров.	B2Slow	Программирование	27	18.06.2013 07:56
FILTER / фильтр	BM60	Справочник команд	0	08.07.2008 15:35
НЕ получается выделить сразу несколько объектов	abram	AutoCAD	15	05.05.2008 15:16
не выделятся несколько объектов без SHIFTа	fastline	AutoCAD	6	25.01.2008 20:32

29.01.2009, 11:24
повернуть одновременно несколько объектов Natasha111 Регистрация: 22.09.2008 Сообщений: 65 Нашла в поиске что-то с программированием, ничего не поняла Есть ли в Автокаде 2006 такая команда: повернуть несколько объектов одновременно и чтобы они оставались при этом на своем месте?
Просмотров: 21720

	Реклама i