如何使在cad中使三维零件绕指定轴旋转，并且不止一个零件，忘高手指点？

忆风幽梦

请高手帮忙Autocadlisp修改下面程序，使旋转零件增加，不止一个，最少两个或更多，每个都可以绕不同的轴，同时一起运动或可调开始运动延缓时间，使物体做仿真运动，并可以调运动角度，非常谢谢，感激不尽！我修改很多次都是失败，是在没办法，麻烦高手们指教菜鸟小弟。
. J& [  ?0 y) `5 }5 p;;========================
;;旋转程序
4 X0 S' H. W4 O3 B& k6 x;;========================
(defun c:zzz ()
  (command "zoom""e")
  (setq s (ssget "X"(list(cons 0 "insert")(cons 2 "zzz"))))
: a7 H" B' n8 D/ j. O+ O7 @9 p  (setq s (ssname s 0) s (entget s) sj 0)
0 ^0 U. s$ ?0 @* Q! T  (while t
    (setq s (subst (cons 50 sj) (assoc 50 s) s))
    (entmod s)
" J8 a4 d4 }7 k7 m, \    (command "delay" "0")
    (setq sj (- sj -0.1 ))
    );while
  )

6 T& Y" b: G* t0 o# I;;==

忆风幽梦

高手指教，非常谢谢

忆风幽梦

望大家多多指点，非常谢谢

忆风幽梦

希望高人多多指点