Как развернуть много объектов каждый относительно своей оси? (Страница 1 из 2)

Ну допостим центр объекта...!
Предположим много надписей, необходимо развернуть, но без смещения!

Для задания оси требуется, на сколько я помню, две точки, а центр объекта (даже если предположить что ВСЕГДА известно что это такое) - только одна. Написать программу на Лиспе можно минут за 5-10 если сперва все же четко сформулировать задачу

> VH
Точно.
а центр объекта можно достать обработав результат функции
vla-getboundingbox

> Сергей Попадьин
Да это понятно.
Но вроде и так уже сообразили в чем дело

(defun C:povorot()
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (vl-load-com)
  (initget 1)
  (setq up (getreal "\n rotation angle:")
    )
  (if
  (setq naborobj (ssget)
    )
  (progn
    (setq n 0)
    (repeat (sslength naborobj)
      (setq vlaobj
         (vlax-ename->vla-object
           (ssname  naborobj n)
           )
        )
       (vla-getboundingbox  vlaobj 'p1 'p2)
      (setq minpt (vlax-safearray->list p1)
        )
      (setq maxpt(vlax-safearray->list p2)
        )
      (setq sentpt (mapcar '(lambda (x)
                  (* x 0.5)
                  )
               (mapcar '+ minpt maxpt)
               )
        )
      (command "rotate"
           (vlax-vla-object->ename vlaobj) "" sentpt up)
      (setq n (1+ n)
        )
      );repeat
    )
  )
  (princ)
  )
        

> VH
Это все хорошо Владимир , но Вы прикинте что в этом случае базовая точка поворота
идет относительно точки вставки текста.(в моей функции  относительно центра объекта.)
С текстом проще- координаты можно найти функцией
texbox.
Однако задача все-таки правильно не поставлена - в
этом согласен с Сергеем Попадьиным.
То-что мы помогаем это все домыслы.
Однако увидев сообщение Олега от 19.51 считаю , что понял его мысль.

sorry...  к Эдуарду msg

> Oleg
Не хватает скобки,скорее всего пропустили последнюю.

Я не спорю - догадаться что человек хочет конечно можно в конце-концов, но что мешает четко сформулировать задачу (не только к Олегу относится) ??? Если Вы обратили внимание, я регулярно обращаю на этот факт внимание задающих вопросы... правда пока без особого успеха, как и в этом случае (VH и Эдуард отдуваются за Олега, а он молчит как партизан...)
Четко заданный вопрос экономит не только время (всех участников), но и сетевой трафик...

У операции "поворот" есть два варианта:
1) поворот до определенного положения: после операции все объекты "смотрят" в одном направлении
2) поворот на определенный угол: после операции "взаимное положение" объектов сохраняется.
Зачеркнуть ненужное...

> ABoltrushko
Ваш lisp работает, только когда задаешь новый угол - ни чего не происходит? Может что не так делаю...?

> Эдуард
А ваш lisp так и не получилось запустить... все скобки вроде на месте... - error: malformed list on input
У меня 2002 acad  Англ версия.

> Эдуард
Спасибо все работает...  Но!
Объекты вращаются вокрук центра глобальной системы координат...
Я так понимаю что эту задачу не автоматизировать...
Вообще в автокаде у объектов есть своя система координат? (как в максе)?