SketchUP的角度盘的实现代码

XDSoft

完整程序中间的角度盘模拟代码，没加上最后的旋转实体的代码。
该刻度盘不管屏幕如何滚轮缩放，始终保持屏幕高度的1/4大小、固定的显示在屏幕内，见演示...
函数 XD::Block:MakeAngleScale 见函数发布源代码： http://bbs.xdcad.net/thread-671403-1-1.html

1. (defun c:tt ()                              
   
2.   (defun callback1 (dynpt)
   
3.     (setq newvs (getvar "viewsize")
   
4.           scl (/ newvs 5.0)
   
5.           scl-2 (list scl scl scl)
   
6.     )
   
7.     (if (/= newvs oldvs1)
   
8.       (progn
   
9.         (xdrx_setpropertyvalue ent "ScaleFactors" scl-2)
   
10.       )
    
11.     )
    
12.     (if (not (equal dynpt lastPnt 1e-3))
    
13.       (xdrx_setpropertyvalue ent "Position" dynpt)
    
14.     )
    
15.     (setq oldvs1 newvs)
    
16.     (setq lastPnt dynpt)
    
17.   )
    
18.   (defun callback2 (dynpt / newvs oldvs1 scl scl-2 v)
    
19.     (if (= (setq count (rem count 2))
    
20.            0
    
21.         )
    
22.       (xdrx_grdraw -2 1 basept dynpt)
    
23.       (progn
    
24.         (xdrx_grdraw -2 1 basept basept1)
    
25.       )
    
26.     )
    
27.     (setq count (1+ count))
    
28.     (setq newvs (getvar "viewsize")
    
29.           scl (/ newvs 5.0)
    
30.           scl-2 (list scl scl scl)
    
31.     )
    
32.     (if (/= newvs oldvs1)
    
33.       (progn
    
34.         (xdrx_setpropertyvalue ent "ScaleFactors" scl-2)
    
35.       )
    
36.     )
    
37.     (setq oldvs1 newvs)
    
38.     (setq ang (angle basept dynpt))
    
39.     (if (not (equal basept1 dynpt 1e-3))
    
40.       (xdrx_setpropertyvalue ent "rotation" ang)
    
41.       (progn
    
42.         (if (= (rem count 2) 0)
    
43.           (progn
    
44.             (xdrx_grdraw -2 1 basept dynpt)
    
45.             (setq count 1)
    
46.           )
    
47.         )
    
48.       )
    
49.     )
    
50.     (setq basept1 dynpt)
    
51.   )
    
52.   (defun callback3 (dynpt)
    
53.     (if (not (equal basept1 dynpt 1e-3))
    
54.       (progn
    
55.         (setq v (xdrx_vector_normalize (mapcar
    
56.                                          '-
    
57.                                          dynpt
    
58.                                          basept
    
59.                                        )
    
60.                 )
    
61.         )
    
62.         (xdrx_setpropertyvalue ent1 "UnitDir" v)
    
63.       )
    
64.     )
    
65.     (setq basept1 dynpt)
    
66.   )
    
67.   (setq basept1 (xdrx_document_GetMouseCoord)
    
68.         oldvs (getvar "viewsize")
    
69.         oldvs1 oldvs
    
70.         count 0
    
71.         scl-l1 '(1.0 1.0 1.0)
    
72.         mat0 (xdrx_matrix_identity 3)
    
73.         height (/ oldvs 5.0)
    
74.         ss (ssadd)
    
75.   )
    
76.   (setq ent (XD::Block:MakeAngleScale '(0 0 0)))
    
77.   (xdrx_setpropertyvalue ent "ScaleFactors" (list height height height))
    
78.   (setq ret (xdrx_PointMonitor "callback1" ent))
    
79.   (if (setq basept (getpoint "\n角度标尺基点<退出>:"))
    
80.     (progn
    
81.       (setq ret (xdrx_PointMonitor "callback2" ent))
    
82.       (ssadd ent ss)
    
83.       (setq p2 (getpoint "\n基准轴第二点<退出>:"))
    
84.       (xdrx_pointmonitor)
    
85.       (if (= (rem count 2) 0)
    
86.         (xdrx_grdraw -2 1 basept basept1)
    
87.       )
    
88.       (if p2
    
89.         (progn
    
90.           (setq v1 (xdrx_vector_normalize (mapcar '- p2 basept)))
    
91.           (setq ent1 (xdrx_xline_make basept p2))
    
92.           (xdrx_setpropertyvalue ent1 "color" 252)
    
93.           (xdrx_pointMonitor "callback3" ent1)
    
94.           (setq p3 (getpoint "\n旋转角<退出>:"))
    
95.           (xdrx_entity_delete ent1)
    
96.           (setq v2 (xdrx_vector_normalize (mapcar '- p3 basept)))
    
97.           (setq ang (xdrx_vector_angle v2 v1))
    
98.           (setq sang (angle p2 basept)
    
99.                 eang (angle p3 basept)
    
100.                 ang (rem (+ (* 2 pi)(- eang sang))(* 2 pi)))
     
101.         )
     
102.       )
     
103. 
     
104.     )
     
105.   )
     
106.   (xdrx_pointmonitor)
     
107. )
     
108. 
     

(defun c:tt ()                               <br />   (defun callback1 (dynpt)<br />     (setq newvs (getvar "viewsize")<br />           scl (/ newvs 5.0)<br />           scl-2 (list scl scl scl)<br />     )<br />     (if (/= newvs oldvs1)<br />       (progn<br />         (xdrx_setpropertyvalue ent "ScaleFactors" scl-2)<br />       )<br />     )<br />     (if (not (equal dynpt lastPnt 1e-3))<br />       (xdrx_setpropertyvalue ent "Position" dynpt)<br />     )<br />     (setq oldvs1 newvs)<br />     (setq lastPnt dynpt)<br />   )<br />   (defun callback2 (dynpt / newvs oldvs1 scl scl-2 v)<br />     (if (= (setq count (rem count 2))<br />            0<br />         )<br />       (xdrx_grdraw -2 1 basept dynpt)<br />       (progn<br />         (xdrx_grdraw -2 1 basept basept1)<br />       )<br />     )<br />     (setq count (1+ count))<br />     (setq newvs (getvar "viewsize")<br />           scl (/ newvs 5.0)<br />           scl-2 (list scl scl scl)<br />     )<br />     (if (/= newvs oldvs1)<br />       (progn<br />         (xdrx_setpropertyvalue ent "ScaleFactors" scl-2)<br />       )<br />     )<br />     (setq oldvs1 newvs)<br />     (setq ang (angle basept dynpt))<br />     (if (not (equal basept1 dynpt 1e-3))<br />       (xdrx_setpropertyvalue ent "rotation" ang)<br />       (progn<br />         (if (= (rem count 2) 0)<br />           (progn<br />             (xdrx_grdraw -2 1 basept dynpt)<br />             (setq count 1)<br />           )<br />         )<br />       )<br />     )<br />     (setq basept1 dynpt)<br />   )<br />   (defun callback3 (dynpt)<br />     (if (not (equal basept1 dynpt 1e-3))<br />       (progn<br />         (setq v (xdrx_vector_normalize (mapcar<br />                                          '-<br />                                          dynpt<br />                                          basept<br />                                        )<br />                 )<br />         )<br />         (xdrx_setpropertyvalue ent1 "UnitDir" v)<br />       )<br />     )<br />     (setq basept1 dynpt)<br />   )<br />   (setq basept1 (xdrx_document_GetMouseCoord)<br />         oldvs (getvar "viewsize")<br />         oldvs1 oldvs<br />         count 0<br />         scl-l1 '(1.0 1.0 1.0)<br />         mat0 (xdrx_matrix_identity 3)<br />         height (/ oldvs 5.0)<br />         ss (ssadd)<br />   )<br />   (setq ent (XD::Block:MakeAngleScale '(0 0 0)))<br />   (xdrx_setpropertyvalue ent "ScaleFactors" (list height height height))<br />   (setq ret (xdrx_PointMonitor "callback1" ent))<br />   (if (setq basept (getpoint "\n角度标尺基点<退出>:"))<br />     (progn<br />       (setq ret (xdrx_PointMonitor "callback2" ent))<br />       (ssadd ent ss)<br />       (setq p2 (getpoint "\n基准轴第二点<退出>:"))<br />       (xdrx_pointmonitor)<br />       (if (= (rem count 2) 0)<br />         (xdrx_grdraw -2 1 basept basept1)<br />       )<br />       (if p2<br />         (progn<br />           (setq v1 (xdrx_vector_normalize (mapcar '- p2 basept)))<br />           (setq ent1 (xdrx_xline_make basept p2))<br />           (xdrx_setpropertyvalue ent1 "color" 252)<br />           (xdrx_pointMonitor "callback3" ent1)<br />           (setq p3 (getpoint "\n旋转角<退出>:"))<br />           (xdrx_entity_delete ent1)<br />           (setq v2 (xdrx_vector_normalize (mapcar '- p3 basept)))<br />           (setq ang (xdrx_vector_angle v2 v1))<br />           (setq sang (angle p2 basept)<br />                 eang (angle p3 basept)<br />                 ang (rem (+ (* 2 pi)(- eang sang))(* 2 pi)))<br />         )<br />       )<br /> <br />     )<br />   )<br />   (xdrx_pointmonitor)<br /> )<br /> <br />

st788796

这个盘三维时是可以贴在指定的平面

XDSoft

st788796 发表于 2013-11-3 21:33
这个盘三维时是可以贴在指定的平面

可以用 xdrx_setpropertyvalue 修改NORMAL，让它贴哪。

newer

恭喜API又升级了，感谢提供这么强大的代码。熟悉下新的函数，这几天抽空写几个。