动态旋转（笔记）

dcl1214

动态旋转

1. (defun $tu-yuan-xuan-zhuan-dyn$  (ents    PT0     ro-start-pt
   
2.          ro-div    lst     /      $ro$
   
3.          gr    gr-p     pt-old   ro-old
   
4.          ro-to    xunhuan
   
5.         )
   
6.           ;ents 需要旋转的图元列表
   
7.           T0 旋转基点
   
8.           ;ro-start-pt 是否需要指定旋转起点
   
9.           ;ro-div 角度等分，360度等分为多少个角度
   
10.           ;($tu-yuan-xuan-zhuan-dyn$(SSGET)(getpoint "请指定旋转基点")t 12 nil)
    
11.   (defun $ro$ (e PT0 ro)
    
12.     (and e
    
13.    PT0
    
14.    ro
    
15.    (/= ro 0)
    
16.    (progn
    
17.      (vla-rotate
    
18.        (vlax-ename->vla-object e)
    
19.        (vlax-3D-point PT0)
    
20.        ro
    
21.      )
    
22.    )
    
23.     )
    
24.   )
    
25.   (if (and ents (= (type ents) 'pickset))
    
26.     (setq ents (vl-remove-if
    
27.      (function listp)
    
28.      (mapcar (function cadr) (ssnamex ents))
    
29.          )
    
30.     )
    
31.   )
    
32.   (setq ents (vl-remove nil ents))
    
33.   (SETQ PT-OLD NIL)
    
34.   (or ro-div (setq ro-div 36))
    
35.   (and
    
36.     ents
    
37.     (progn
    
38.       (setq ro-old nil)
    
39.       (IF ro-start-pt
    
40.   (setq PT-OLD (getpoint "旋转起点"))
    
41.   (setq PT-OLD (cadr (vl-catch-all-apply 'grread (list nil 5 0))))
    
42.       )
    
43.       (setq xunhuan t)
    
44.       (while (and xunhuan PT0)
    
45.   (setq gr (vl-catch-all-apply 'grread (list nil 5 0)))
    
46.   (REDRAW)
    
47.   (and (vl-catch-all-error-p gr)
    
48.        (progn (setq gr nil) (setq xunhuan nil) t)
    
49.   )
    
50.   (and
    
51.     gr
    
52.     (progn
    
53.       (cond
    
54.         ((= (car gr) 5)
    
55.          (setq gr-p (cadr gr))
    
56.          (and
    
57.      PT-OLD
    
58.      (progn
    
59.        (if (= (getvar 'ORTHOMODE) 1)
    
60.          (progn
    
61.            (setq gr-p
    
62.             (vl-catch-all-apply
    
63.         (function
    
64.           (lambda ()
    
65.             (zuo-biao-ci-xi pt0 gr-p ro-div)
    
66.           )
    
67.         )
    
68.             )
    
69.            )
    
70.            (if (vl-catch-all-error-p gr-p)
    
71.        (progn (setvar 'ORTHOMODE 0) (setq gr-p nil))
    
72.            )
    
73.          )
    
74.        )
    
75.        (if gr-p
    
76.          (progn
    
77.            (grdraw PT0 gr-p 3)
    
78.            (setq ro-to
    
79.             (- (angle PT0 gr-p) (angle PT0 PT-OLD))
    
80.            )
    
81.            (mapcar (function (lambda (e) ($ro$ e PT0 ro-to)))
    
82.              ents
    
83.            )
    
84.          )
    
85.        )
    
86.      )
    
87.          )
    
88.          (SETQ PT-OLD gr-p)
    
89.         )
    
90.         ((= (car gr) 3)
    
91.          (setq xunhuan nil)
    
92.         )
    
93.         ((and (= (car gr) 2) (= (cadr gr) 15))
    
94.          (setvar 'ORTHOMODE (abs (- (getvar 'ORTHOMODE) 1)))
    
95.           ;翻转
    
96.         )
    
97.       )
    
98.     )
    
99.   )
    
100.       )
     
101.     )
     
102.   )
     
103.   ents
     
104. )

(defun $tu-yuan-xuan-zhuan-dyn$  (ents    PT0     ro-start-pt<br />          ro-div    lst     /      $ro$<br />          gr    gr-p     pt-old   ro-old<br />          ro-to    xunhuan<br />         )<br />           ;ents 需要旋转的图元列表<br />           <img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />T0 旋转基点<br />           ;ro-start-pt 是否需要指定旋转起点<br />           ;ro-div 角度等分，360度等分为多少个角度<br />           ;($tu-yuan-xuan-zhuan-dyn$(SSGET)(getpoint "请指定旋转基点")t 12 nil)<br />   (defun $ro$ (e PT0 ro)<br />     (and e<br />    PT0<br />    ro<br />    (/= ro 0)<br />    (progn<br />      (vla-rotate<br />        (vlax-ename->vla-object e)<br />        (vlax-3D-point PT0)<br />        ro<br />      )<br />    )<br />     )<br />   )<br />   (if (and ents (= (type ents) 'pickset))<br />     (setq ents (vl-remove-if<br />      (function listp)<br />      (mapcar (function cadr) (ssnamex ents))<br />          )<br />     )<br />   )<br />   (setq ents (vl-remove nil ents))<br />   (SETQ PT-OLD NIL)<br />   (or ro-div (setq ro-div 36))<br />   (and<br />     ents<br />     (progn<br />       (setq ro-old nil)<br />       (IF ro-start-pt<br />   (setq PT-OLD (getpoint "旋转起点"))<br />   (setq PT-OLD (cadr (vl-catch-all-apply 'grread (list nil 5 0))))<br />       )<br />       (setq xunhuan t)<br />       (while (and xunhuan PT0)<br />   (setq gr (vl-catch-all-apply 'grread (list nil 5 0)))<br />   (REDRAW)<br />   (and (vl-catch-all-error-p gr)<br />        (progn (setq gr nil) (setq xunhuan nil) t)<br />   )<br />   (and<br />     gr<br />     (progn<br />       (cond<br />         ((= (car gr) 5)<br />          (setq gr-p (cadr gr))<br />          (and<br />      PT-OLD<br />      (progn<br />        (if (= (getvar 'ORTHOMODE) 1)<br />          (progn<br />            (setq gr-p<br />             (vl-catch-all-apply<br />         (function<br />           (lambda ()<br />             (zuo-biao-ci-xi pt0 gr-p ro-div)<br />           )<br />         )<br />             )<br />            )<br />            (if (vl-catch-all-error-p gr-p)<br />        (progn (setvar 'ORTHOMODE 0) (setq gr-p nil))<br />            )<br />          )<br />        )<br />        (if gr-p<br />          (progn<br />            (grdraw PT0 gr-p 3)<br />            (setq ro-to<br />             (- (angle PT0 gr-p) (angle PT0 PT-OLD))<br />            )<br />            (mapcar (function (lambda (e) ($ro$ e PT0 ro-to)))<br />              ents<br />            )<br />          )<br />        )<br />      )<br />          )<br />          (SETQ PT-OLD gr-p)<br />         )<br />         ((= (car gr) 3)<br />          (setq xunhuan nil)<br />         )<br />         ((and (= (car gr) 2) (= (cadr gr) 15))<br />          (setvar 'ORTHOMODE (abs (- (getvar 'ORTHOMODE) 1)))<br />           ;翻转 <br />         )<br />       )<br />     )<br />   )<br />       )<br />     )<br />   )<br />   ents<br /> )

xyp1964

与rotate命令有啥区别？