选择对象旋转，让初始旋转角度为90度，后面根据输入的角度进行旋转

小毛草

2. (defun c:srr (/ old_cmd s n en pti sc c2p_end c2p_error c2p_start)
   
3.   (defun c2p_start (/)
   
4.     (setq old_cmd (getvar "cmdecho"))
   
5.     (setvar "cmdecho" 0)
   
6.     (setvar "blipmode" 0) ; 消除影点变量
   
7.     (eval "(command "_.undo" "_group\41;")
   
8.     (setq olderr *error* *error* c2p_error)
   
9.     (princ)
   
10.   )
    
11.   (defun c2p_end (/)
    
12.     (setq *error* olderr)
    
13.     (command "_.undo" "end")
    
14.     (setvar "cmdecho" old_cmd)
    
15.     (princ)
    
16.   )
    
17.   (defun c2p_error (s)
    
18.     (if (not (member s '("控制台中断" "功能已取消" "退出 / 退出中止")))
    
19.       (princ (strcat "\n错误: " s))
    
20.     )
    
21.     (c2p_end)
    
22.   )
    
23.   (c2p_start)
    
24.   (princ "\n 多实体自身旋转.")
    
25.   (if (not mini_rt_angle) (setq mini_rt_angle 90)) ; 初始角度设为90度
    
26.   (setq sc (getangle (strcat "\n 旋转角度:<" (rtos mini_rt_angle 2 3) ">"))
    
27.         mini_rt_angle (if sc (* 180 (/ sc pi)) mini_rt_angle) ; 转换为度数
    
28.   )
    
29.   (while (and (princ "\n 选择自旋转实体:")
    
30.               (setq s (ssget))
    
31.          )
    
32.     (repeat (setq n (sslength s))
    
33.       (setq n (1- n)
    
34.             en (ssname s n)
    
35.             pti (cdr (assoc 10 (entget en)))
    
36.       )
    
37.       (if pti (command "_.rotate" en "" "non" (trans pti 0 1) mini_rt_angle))
    
38.     )
    
39.   )
    
40.   (c2p_end)
    
41.   (princ)
    
42. )

(defun c:srr (/ old_cmd s n en pti sc c2p_end c2p_error c2p_start)<br />   (defun c2p_start (/)<br />     (setq old_cmd (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (setvar "blipmode" 0) ; 消除影点变量<br />     (eval "(command "_.undo" "_group\41;")<br />     (setq olderr *error* *error* c2p_error)<br />     (princ)<br />   )<br />   (defun c2p_end (/)<br />     (setq *error* olderr)<br />     (command "_.undo" "end")<br />     (setvar "cmdecho" old_cmd)<br />     (princ)<br />   )<br />   (defun c2p_error (s)<br />     (if (not (member s '("控制台中断" "功能已取消" "退出 / 退出中止")))<br />       (princ (strcat "\n错误: " s))<br />     )<br />     (c2p_end)<br />   )<br />   (c2p_start)<br />   (princ "\n 多实体自身旋转.")<br />   (if (not mini_rt_angle) (setq mini_rt_angle 90)) ; 初始角度设为90度<br />   (setq sc (getangle (strcat "\n 旋转角度:<" (rtos mini_rt_angle 2 3) ">"))<br />         mini_rt_angle (if sc (* 180 (/ sc pi)) mini_rt_angle) ; 转换为度数<br />   )<br />   (while (and (princ "\n 选择自旋转实体:")<br />               (setq s (ssget))<br />          )<br />     (repeat (setq n (sslength s))<br />       (setq n (1- n)<br />             en (ssname s n)<br />             pti (cdr (assoc 10 (entget en)))<br />       )<br />       (if pti (command "_.rotate" en "" "non" (trans pti 0 1) mini_rt_angle))<br />     )<br />   )<br />   (c2p_end)<br />   (princ)<br /> )