【工具】批量原地旋转对象（以自身的几何中心）

marting

1. (defun c:xdtb_rotori (/ ss p1 p2 x t1 t2 mat scl)
   
2.   (if (setq ss
   
3.              (xdrx-ssget
   
4.                "\n*** 图元原地缩放((物体中心为基点)) ***\n选择要旋转的对象<退出>:"
   
5.              )
   
6.       )
   
7.     (progn
   
8.       (xdrx-begin)
   
9.       (setvar "lastpoint" '(0 0 0))
   
10.       (xdrx-sysvar-push '("osmode" 33))
    
11.       (if (and (xdrx-initget 1 "R")
    
12.                (setq p0 (getvar "lastpoint"))
    
13.                (setq
    
14.                  p1 (getreal (xdrx-prompt "\n请输入旋转角度或[参照(R)]" t))
    
15.                )
    
16.           )
    
17.         (progn
    
18.           (cond
    
19.             ((= p1 "R")
    
20.              (setq pp (getvar "lastpoint"))
    
21.              (if (and (setq t1 (getpoint "\n指定参照第一点: <退出>"))
    
22.                       (not (initget 1))
    
23.                       (setq t2 (getpoint t1 "\n指定第二点:"))
    
24.                       (setq d1 (getpoint "\n指定目标第一点:"))
    
25.                       (not (initget 1))
    
26.                       (setq d2 (getpoint d1 "\n指定第二点:"))
    
27.                  )
    
28.                (setq scl (xdrx-vector-angle
    
29.                            (xdrx-vector-normalize (mapcar '- t2 t1))
    
30.                            (xdrx-vector-normalize (mapcar '- d2 d1))
    
31.                          )
    
32.                )
    
33.              )
    
34.             )
    
35.             ((= (type p1) 'real) (setq scl (xdrx-math-degtor  p1)))
    
36.           )
    
37.         )
    
38.       )
    
39.       (if scl
    
40.         (progn (mapcar '(lambda        (x)
    
41.                           (setq        mat (xdrx-matrix-setrotation
    
42.                                       scl '(0 0 1.0)
    
43.                                       (trans (xd::geom:get9pt x 5) 1 0)
    
44.                                     )
    
45.                           )
    
46.                           (xdrx-entity-transform x mat)
    
47.                         )
    
48.                        (xdrx-pickset->ents ss)
    
49.                )
    
50.                (xdrx-prompt "\n共原位旋转了 " (sslength ss) " 个对象.")
    
51.         )
    
52.       )
    
53.       (xdrx-sysvar-pop)
    
54.       (xdrx-end)
    
55.     )
    
56.   )
    
57.   (princ)
    
58. )
    
59. 
    

(defun c:xdtb_rotori (/ ss p1 p2 x t1 t2 mat scl)<br />   (if (setq ss<br />              (xdrx-ssget<br />                "\n*** 图元原地缩放((物体中心为基点)) ***\n选择要旋转的对象<退出>:"<br />              )<br />       )<br />     (progn<br />       (xdrx-begin)<br />       (setvar "lastpoint" '(0 0 0))<br />       (xdrx-sysvar-push '("osmode" 33))<br />       (if (and (xdrx-initget 1 "R")<br />                (setq p0 (getvar "lastpoint"))<br />                (setq<br />                  p1 (getreal (xdrx-prompt "\n请输入旋转角度或[参照(R)]" t))<br />                )<br />           )<br />         (progn<br />           (cond<br />             ((= p1 "R")<br />              (setq pp (getvar "lastpoint"))<br />              (if (and (setq t1 (getpoint "\n指定参照第一点: <退出>"))<br />                       (not (initget 1))<br />                       (setq t2 (getpoint t1 "\n指定第二点:"))<br />                       (setq d1 (getpoint "\n指定目标第一点:"))<br />                       (not (initget 1))<br />                       (setq d2 (getpoint d1 "\n指定第二点:"))<br />                  )<br />                (setq scl (xdrx-vector-angle<br />                            (xdrx-vector-normalize (mapcar '- t2 t1))<br />                            (xdrx-vector-normalize (mapcar '- d2 d1))<br />                          )<br />                )<br />              )<br />             )<br />             ((= (type p1) 'real) (setq scl (xdrx-math-degtor  p1)))<br />           )<br />         )<br />       )<br />       (if scl<br />         (progn (mapcar '(lambda        (x)<br />                           (setq        mat (xdrx-matrix-setrotation<br />                                       scl '(0 0 1.0)<br />                                       (trans (xd::geom:get9pt x 5) 1 0)<br />                                     )<br />                           )<br />                           (xdrx-entity-transform x mat)<br />                         )<br />                        (xdrx-pickset->ents ss)<br />                )<br />                (xdrx-prompt "\n共原位旋转了 " (sslength ss) " 个对象.")<br />         )<br />       )<br />       (xdrx-sysvar-pop)<br />       (xdrx-end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

kyky1002

很好用的插件，谢谢

toil

有时候需要就很实用！！！！！！！！！！！

w22556933

很好用的插件