(XD::Drag:Circle)圆拖动实现函数

Lispboy

1. ;|
   
2. 圆拖动实现函数
   
3. 参数：
   
4.    info ---- 提示字符串
   
5.   pj  ---- 圆心
   
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:Circle (info pj keyWord cursor / dynpt e  mat0 pts ret)
    
21.   (defun EdgeCallBack (dynPt / pts)
    
22.     (if (not e)
    
23.       (setq e (xdrx_circle_make pj (distance pj dynPt)))
    
24.       (xdrx_circle_setRadius e (distance pj dynPt))
    
25.     )
    
26.     e
    
27.   )
    
28. 
    
29.   (setq pj (trans pj 1 0)
    
30.         mat0 (xdrx_matrix_identity 3)
    
31.   )
    
32.   (setvar "lastPoint" pj)
    
33.   (initget 1)
    
34.   (setq ret (xdrx_drag_jig "EdgeCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor pj))
    
35.   (cond
    
36.     ((= ret -4)
    
37.       (entdel e)
    
38.     )
    
39.     (t
    
40.       (if (= (type ret) 'STR)
    
41.         (progn
    
42.           (setq ret (cdr ret))
    
43.           (entdel e)
    
44.         )
    
45.       )
    
46.     )
    
47.   )
    
48.   (gc)
    
49.   ret
    
50. )
    

;|<br /> 圆拖动实现函数<br /> 参数：<br />    info ---- 提示字符串<br />   pj  ---- 圆心<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:Circle (info pj keyWord cursor / dynpt e  mat0 pts ret)<br />   (defun EdgeCallBack (dynPt / pts)<br />     (if (not e)<br />       (setq e (xdrx_circle_make pj (distance pj dynPt)))<br />       (xdrx_circle_setRadius e (distance pj dynPt))<br />     )<br />     e<br />   )<br /> <br />   (setq pj (trans pj 1 0)<br />         mat0 (xdrx_matrix_identity 3)<br />   )<br />   (setvar "lastPoint" pj)<br />   (initget 1)<br />   (setq ret (xdrx_drag_jig "EdgeCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor pj))<br />   (cond<br />     ((= ret -4)<br />       (entdel e)<br />     )<br />     (t<br />       (if (= (type ret) 'STR)<br />         (progn<br />           (setq ret (cdr ret))<br />           (entdel e)<br />         )<br />       )<br />     )<br />   )<br />   (gc)<br />   ret<br /> )<br />

应用示例代码：

1. (defun c:test-drag-circle()
   
2.     (if (setq pj (getpoint "\n圆心:"))
   
3.      (progn
   
4.         (XD::Drag:Circle "\n拾取点[退出-Q】" pj  "Q" 2)
   
5.      )
   
6.    )
   
7.    (princ)
   
8. )
   
9. 
   

(defun c:test-drag-circle()<br />     (if (setq pj (getpoint "\n圆心:"))<br />      (progn<br />         (XD::Drag:Circle "\n拾取点[退出-Q】" pj  "Q" 2)<br />      )<br />    )<br />    (princ)<br /> )<br /> <br />

snsj

entityjig也出来了，这段时间辛苦了{:soso_e160:}

XDSoft

snsj 发表于 2013-7-20 22:47
entityjig也出来了，这段时间辛苦了

使用XDRX API， 凡是你用LISP能做到的，就能给JIG出来。

cooolsee

也许不知道的还真的能激励你前进