【图块】批量绕插入点或几何中心点旋转指定的角度

marting

1. (defun c:xdtb_blkrot (/ x an x ss ang v)
   
2.   (defun _callback (key) (setq #xd-var-global-rot-mode key) (_prompt))
   
3.   (defun _prompt ()
   
4.     (xdrx-prompt
   
5.       "\n**当前方式: "
   
6.       (cond ((= #xd-var-global-rot-mode "E") "绕中心点旋转")
   
7.             (t "绕插入点旋转"))
   
8.     )
   
9.   )
   
10.   (if (not #xd-var-global-rot-mode)
    
11.     (setq #xd-var-global-rot-mode "A")
    
12.   )
    
13.   (if (not #xd-var-global-rot-angle)
    
14.     (setq #xd-var-global-rot-angle 45))
    
15.   (if (setq v (getreal (xdrx-prompt "\n输入原位旋转的角度<" #xd-var-global-rot-angle ">:" t)))
    
16.     (setq #xd-var-global-rot-angle v))
    
17.   (if
    
18.     (and (xdrx-prompt
    
19.            "\n将选中的块以各自的插入点为中心旋转指定的角度:"
    
20.          )
    
21.          (_prompt)
    
22.          (xdrx-initget "E T")
    
23.          (xdrx_initssget
    
24.            "\n选取要旋转的图块[中心点(E)/插入点(T)]<退出>:"
    
25.            "E T"
    
26.            ""
    
27.            "_callback"
    
28.          )
    
29.          (setq ss (xdrx-ssget '((0 . "insert"))))
    
30.     )
    
31.      (progn
    
32.        (mapcar '(lambda        (x)
    
33.                   (setq an (xdrx-getpropertyvalue x "rotation"))
    
34.                   (cond        ((= #xd-var-global-rot-mode "T")
    
35.                          (xdrx-setpropertyvalue
    
36.                            x
    
37.                            "rotation"
    
38.                            (+ an (/ (* pi #xd-var-global-rot-angle) 180.0))
    
39.                          )
    
40.                         )
    
41.                         (t
    
42.                          (setq cen (trans (xd::geom:get9pt x 5) 1 0)
    
43.                                mat (xdrx-matrix-setrotation (/ (* pi #xd-var-global-rot-angle) 180.0) '(0 0 1) cen ))
    
44.                          (xdrx-entity-transform x mat)
    
45.                         )
    
46.                   )
    
47.                 )
    
48.                (xdrx-pickset->ents ss)
    
49.        )
    
50.      )
    
51.   )
    
52.   (princ)
    
53. )
    
54. 
    

(defun c:xdtb_blkrot (/ x an x ss ang v)<br />   (defun _callback (key) (setq #xd-var-global-rot-mode key) (_prompt))<br />   (defun _prompt ()<br />     (xdrx-prompt<br />       "\n**当前方式: "<br />       (cond ((= #xd-var-global-rot-mode "E") "绕中心点旋转")<br />             (t "绕插入点旋转"))<br />     )<br />   )<br />   (if (not #xd-var-global-rot-mode)<br />     (setq #xd-var-global-rot-mode "A")<br />   )<br />   (if (not #xd-var-global-rot-angle)<br />     (setq #xd-var-global-rot-angle 45))<br />   (if (setq v (getreal (xdrx-prompt "\n输入原位旋转的角度<" #xd-var-global-rot-angle ">:" t)))<br />     (setq #xd-var-global-rot-angle v))<br />   (if<br />     (and (xdrx-prompt<br />            "\n将选中的块以各自的插入点为中心旋转指定的角度:"<br />          )<br />          (_prompt)<br />          (xdrx-initget "E T")<br />          (xdrx_initssget<br />            "\n选取要旋转的图块[中心点(E)/插入点(T)]<退出>:"<br />            "E T"<br />            ""<br />            "_callback"<br />          )<br />          (setq ss (xdrx-ssget '((0 . "insert"))))<br />     )<br />      (progn<br />        (mapcar '(lambda        (x)<br />                   (setq an (xdrx-getpropertyvalue x "rotation"))<br />                   (cond        ((= #xd-var-global-rot-mode "T")<br />                          (xdrx-setpropertyvalue<br />                            x<br />                            "rotation"<br />                            (+ an (/ (* pi #xd-var-global-rot-angle) 180.0))<br />                          )<br />                         )<br />                         (t<br />                          (setq cen (trans (xd::geom:get9pt x 5) 1 0)<br />                                mat (xdrx-matrix-setrotation (/ (* pi #xd-var-global-rot-angle) 180.0) '(0 0 1) cen ))<br />                          (xdrx-entity-transform x mat)<br />                         )<br />                   )<br />                 )<br />                (xdrx-pickset->ents ss)<br />        )<br />      )<br />   )<br />   (princ)<br /> )<br /> <br />

s690991451

可以一次批量转不同角度吗

feeling_chin

xdtb_blkrot：批量绕插入点或几何中心点旋转指定的角度