(XD::Drag:FiveStar)五角星拖动实现函数

Lispboy

这个函数也许会有用，主要是想介绍XDRX_API的XDRX_DRAG_JIG函数的强大，只要能想到的，都可以用LISP，JIG出来。

大家可以看看JIG的LISP回调函数FiveStarCallBack的写法，回调函数里面就是你画五角星的过程，和编辑10个顶点的过程。剩下的就交给JIG去处理了。

1. ;|
   
2. 五角星拖动实现函数
   
3. 参数：
   
4.    info ---- 提示字符串
   
5.   cen  ---- 圆心
   
6.   keyWord ---  关键字字符串
   
7.   Cursor     --- 光标样式
   
8. 
   
9.             0 - kCrosshair
   
10.             1 - kCrosshair
    
11.             2 - kRubberBand
    
12.             3 - kNoSpecialCursor
    
13.             4 - kEntitySelect
    
14.             5 - kParallelogram
    
15.             6 - kInvisible
    
16.             其他值- kPkfirstOrGrips
    
17. 
    
18. 
    
19. |;
    
20. (defun XD::Drag:FiveStar (info cen keyWord cursor / an dynpt e mat mat0 p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 pts ret x)
    
21.   (defun FiveStarCallBack (dynPt / pts)
    
22.     (setq p0 dynPt
    
23.           p2 (xdrx_point_transform p0 mat)
    
24.           p4 (xdrx_point_transform p2 mat)
    
25.           p6 (xdrx_point_transform p4 mat)
    
26.           p8 (xdrx_point_transform p6 mat)
    
27.           p1 (inters p0  p4 p2 p8 nil)
    
28.           p3 (inters p0 p4 p2 p6 nil)
    
29.           p5 (inters p2 p6 p4 p8 nil)
    
30.           p7 (inters p0 p6 p4 p8 nil)
    
31.           p9 (inters p2 p8 p0 p6 nil)
    
32.     )
    
33.     (if (not e)
    
34.       (setq e (xdrx_polyline_make t p0 p1 p2 p3 p4 p5 p6 p7 p8 p9))
    
35.       (mapcar
    
36.         '(lambda (x)
    
37.            (apply
    
38.              'xdrx_polyline_setPointAt
    
39.              (cons e x)
    
40.            )
    
41.          )
    
42.         (list (list 0 p0) (list 1 p1) (list 2 p2) (list 3 p3) (list 4 p4) (list 5 p5) (list 6 p6) (list 7 p7)
    
43.               (list 8 p8) (list 9 p9)
    
44.         )
    
45.       )
    
46.     )
    
47.     e
    
48.   )
    
49.   (setq cen (trans cen 1 0)
    
50.         an (/ 360 5.0)
    
51.         an (XD::Geom:D2R an)
    
52.         mat0 (xdrx_matrix_identity 3)
    
53.         mat (xdrx_matrix_setRotation mat0 an '(0 0 1) cen)
    
54.   )
    
55.   (setvar "lastPoint" cen)
    
56.   (initget 1)
    
57.   (setq ret (xdrx_drag_jig "FiveStarCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor cen))
    
58.   (cond
    
59.     ((= ret -4)
    
60.       (entdel e)
    
61.     )
    
62.     (t
    
63.       (if (= (type ret) 'STR)
    
64.         (progn
    
65.           (entdel e)
    
66.         )
    
67.       )
    
68.     )
    
69.   )
    
70.   (gc)
    
71.   ret
    
72. )
    
73. 
    

;|<br /> 五角星拖动实现函数<br /> 参数：<br />    info ---- 提示字符串<br />   cen  ---- 圆心<br />   keyWord ---  关键字字符串<br />   Cursor     --- 光标样式 <br /> <br />             0 - kCrosshair<br />             1 - kCrosshair<br />             2 - kRubberBand<br />             3 - kNoSpecialCursor<br />             4 - kEntitySelect<br />             5 - kParallelogram<br />             6 - kInvisible<br />             其他值- kPkfirstOrGrips<br /> <br /> <br /> |; <br /> (defun XD::Drag:FiveStar (info cen keyWord cursor / an dynpt e mat mat0 p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 pts ret x)<br />   (defun FiveStarCallBack (dynPt / pts)<br />     (setq p0 dynPt<br />           p2 (xdrx_point_transform p0 mat)<br />           p4 (xdrx_point_transform p2 mat)<br />           p6 (xdrx_point_transform p4 mat)<br />           p8 (xdrx_point_transform p6 mat)<br />           p1 (inters p0  p4 p2 p8 nil)<br />           p3 (inters p0 p4 p2 p6 nil)<br />           p5 (inters p2 p6 p4 p8 nil)<br />           p7 (inters p0 p6 p4 p8 nil)<br />           p9 (inters p2 p8 p0 p6 nil)<br />     )<br />     (if (not e)<br />       (setq e (xdrx_polyline_make t p0 p1 p2 p3 p4 p5 p6 p7 p8 p9))<br />       (mapcar<br />         '(lambda (x)<br />            (apply<br />              'xdrx_polyline_setPointAt<br />              (cons e x)<br />            )<br />          )<br />         (list (list 0 p0) (list 1 p1) (list 2 p2) (list 3 p3) (list 4 p4) (list 5 p5) (list 6 p6) (list 7 p7)<br />               (list 8 p8) (list 9 p9)<br />         )<br />       )<br />     )<br />     e<br />   )<br />   (setq cen (trans cen 1 0)<br />         an (/ 360 5.0)<br />         an (XD::Geom:D2R an)<br />         mat0 (xdrx_matrix_identity 3)<br />         mat (xdrx_matrix_setRotation mat0 an '(0 0 1) cen)<br />   )<br />   (setvar "lastPoint" cen)<br />   (initget 1)<br />   (setq ret (xdrx_drag_jig "FiveStarCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor cen))<br />   (cond<br />     ((= ret -4)<br />       (entdel e)<br />     )<br />     (t<br />       (if (= (type ret) 'STR)<br />         (progn<br />           (entdel e)<br />         )<br />       )<br />     )<br />   )<br />   (gc)<br />   ret<br /> )<br /> <br />

测试命令：

1. (defun c:test-drag-fivestar()
   
2.    (if (setq cen (getpoint "\n圆心:"))
   
3.       (XD::Drag:FiveStar "\n拾取点" cen "" 2)
   
4.    )
   
5.    (princ)
   
6. )
   
7. 
   

(defun c:test-drag-fivestar()<br />    (if (setq cen (getpoint "\n圆心:"))<br />       (XD::Drag:FiveStar "\n拾取点" cen "" 2)<br />    )<br />    (princ)<br /> )<br /> <br />

ScmTools

弥补了LISP上的这一缺口