[Pave1]

Уважаемые знатоки. Не сочтите за труд - напишите лисп, облегчите жизнь проектировщика, плз.
Хочется получить лисп, который будет поворачивать выделенный объект на 90 градусов без указания точки вокруг которой необходимо вращать объект. Пусть он вращается вокруг своего центра.
Заранее благодарен. Павел.

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

А если по аналогии с таким?

Код:

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

(vl-load-com)

(defun c:rotate-90x (/ adoc selset res midp minp maxp )

  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (if (setq res (setq selset (ssget "_:L")))
    (foreach obj (mapcar
                   (function vlax-ename->vla-object)
                   ((lambda (/ tab item)
                      (repeat (setq tab  nil
                                    item (sslength selset)
                                    ) ;_ end setq
                        (setq tab
                               (cons (ssname selset (setq item (1- item))) tab)
                              ) ;_ end of setq
                        ) ;_ end of repeat
                      ) ;_ end of lambda
                    )
                   ) ;_ end of mapcar
      (vla-getboundingbox obj 'minp 'maxp)
      (setq midp (mapcar (function (lambda (a b) (* (+ a b) 0.5)))
                         (vlax-safearray->list minp)
                         (vlax-safearray->list maxp)
                         ) ;_ end of mapcar
            ) ;_ end of setq
      (vla-rotate3d
        obj
        (vlax-3d-point midp)
        (vlax-3d-point
          (list (+ (car midp) 1.)
                (cadr midp)
                (caddr midp)
                ) ;_ end of list
          ) ;_ end of vlax-3d-point
        (/ pi 2.)
        ) ;_ end of vla-Rotate3D
      ) ;_ end of foreach
    ) ;_ end of if
  (sssetfirst res res)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

P.S. Полностью код не гонял. По идее поворот осуществляется вокруг мировой оси Ох.

[Евгений А.]

DonJad, если устроит готовое решение, то у меня в программе Help-Paper есть недокументированная функция ad-rot, она вертит все выбранные объекты вокруг общего геометрического центра или каждое отдельно вокруг своего центра, управляется цифровыми клавишами клавиатуры:
1, 3 (7, 9) - вокруг оси Z (соответственно в одну или другую сторону),
2, 8 - вокруг оси X,
4, 6 - вокруг оси Y,
5 - окно настройки. угол поворота за один раз (по умолчанию 45 градусов),
esc - выход.
Оси берёт из текущей системы координат.

[DonJad]

Спасибо всем!!!

Попробую на днях разобраться в примере который опубликовал уважаемый Крыс. Надо тренироваться в лиспе ))

[Нефтепроводчик]

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