[iskatel111]

Нашел в этой ветке https://forum.dwg.ru/showthread.php?t=8297 такой лисп для поворота группы объектов вокруг их центров. Но он всегда поворачивает в плоскости X-Y, независимо от того какой вид выбран на экране, мне же нужно повернуть в плоскости Y-Z. Как можно это сделать?

Код:

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

 (defun c:srot (/ ERRCOUNT MAXPT MINPT MIPT MNPT MXPT 
OBJSET VLAOBJ PTLST XLST YLST) 
(vl-load-com) 
(if(not srot:ang)(setq srot:ang (* pi 0.5))) 
(setq oldAng srot:ang 
srot:ang(getangle 
(strcat"\nSpecify rotation angle <"(angtos srot:ang)">: ")) 
); end setq 
(if(null srot:ang)(setq srot:ang oldAng)) 
(setq errCount 0 
ptLst '() 
); en setq
(princ "\n§§§ Select objects or press Enter to Quit. §§§")
(if 
(not(setq objSet(ssget "_I"))) 
(setq objSet(ssget)) 
); end if
(sssetfirst) 
(while objSet
(setq objSet 
(mapcar 'vlax-ename->vla-object 
(vl-remove-if 'listp 
(mapcar 'cadr(ssnamex objSet))))) 
(foreach obj objSet 
(vla-GetBoundingBox obj 'MinPt 'MaxPt) 
(setq mnPt(vlax-safearray->list MinPt) 
mxPt(vlax-safearray->list MaxPt)
miPt (polar mnPt (angle mnPt mxPt)(* 0.5 (distance mnPt mxPt))) 
)
(if 
(vl-catch-all-error-p 
(vl-catch-all-apply 'vla-rotate 
(list obj(vlax-3D-Point miPt)srot:ang))) 
(setq errCount(1+ errCount)) 
) 
); end foreach 
(if(/= 0 errCount) 
(princ(strcat "\n" (itoa errCount) " objects were on locked layer! ")) 
); end if
(princ "\n§§§ Select objects or press Enter to Quit. §§§")
(setq objSet(ssget)) 
); end while 
(princ) 
); end of c:srot

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

Я не уверен - но попробуй сменить ПСК перед выполнением.
В крайнем случае - применяй матрицу преобразования (которую, правда, еще придется вычислять).

[iskatel111]

Сообщение от Кулик Алексей aka kpblc Я не уверен - но попробуй сменить ПСК перед выполнением.

А это как и куда дописать?

К сожалению я не силен в лиспе. Разве что на .NET могу что-то изобразить (но тоже не сходу). Думал раз есть уже почти готовое, то несложно чуть подкорректировать.
Пока только есть идея весь чертеж целиком крутануть вокруг начала координат, воспользоваться этим лиспом, а потом крутануть обратно. Но опасаюсь "подводных камней"

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

Сообщение от iskatel111 А это как и куда дописать?

Да руками сделай, по команде _.ucs

[iskatel111]

Сообщение от Кулик Алексей aka kpblc Да руками сделай, по команде _.ucs

Ну так я писал - как не крути чертеж на экране, поворот всегда в X-Y, я правда не командой крутил, а на кнопку в верхнем правом углу чертежа с надписями "top" "front" и т.п. но думаю что это одно и тоже.

----- добавлено через ~15 мин. -----
Добавлю для понятности, крутит в X-Y самого чертежа, а не вида. Если вид как то повернуть, то объекты повернуться все равно в плоскости вида "TOP"

[Vov.Ka]

Код:

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

 (setq miPt (mapcar (function (lambda (e1 e2) (/ (+ e1 e2) 2.0))) mnPt mxPt))
(vl-catch-all-apply
  'vla-rotate3d
  (list obj (vlax-3D-Point miPt) (vlax-3D-Point (mapcar '+ miPt '(1 0 0))) srot:ang)
)

[iskatel111]

Спасибо, теперь работает как нужно.