(XD::Drag:Arc2)起点、圆心、终点圆弧拖动实现函数

Lispboy

1. ;|
   
2. 起点、圆心、终点圆弧拖动实现函数
   
3. 参数：
   
4.    info ---- 提示字符串
   
5.   pj  ---- 圆心
   
6.   p2  ---- 起始点
   
7.   keyWord ---  关键字字符串
   
8.   Cursor     --- 光标样式
   
9. 
   
10.             0 - kCrosshair
    
11.             1 - kCrosshair
    
12.             2 - kRubberBand
    
13.             3 - kNoSpecialCursor
    
14.             4 - kEntitySelect
    
15.             5 - kParallelogram
    
16.             6 - kInvisible
    
17.             其他值- kPkfirstOrGrips  
    
18. |;
    
19. (defun XD::Drag:Arc2 (info cen startPnt keyWord cursor / arcinfo dis dynpt e midp p3 pts r ret v)
    
20.   (defun EdgeCallBack (dynPt / pts)
    
21.     (setq v (mapcar
    
22.               '-
    
23.               dynPt
    
24.               cen
    
25.             )
    
26.           v (xdrx_vector_normalize v)
    
27.           r (distance cen startPnt)
    
28.           p3 (mapcar
    
29.                '+
    
30.                cen
    
31.                (xdrx_vector_product v r)
    
32.              )
    
33.           v (mapcar
    
34.               '-
    
35.               p3
    
36.               startPnt
    
37.             )
    
38.           dis (distance startPnt p3)
    
39.           v (xdrx_vector_normalize v)
    
40.           midp (mapcar
    
41.                  '+
    
42.                  startPnt
    
43.                  (xdrx_vector_product v (/ dis 2.0))
    
44.                )
    
45.           v (mapcar
    
46.               '-
    
47.               midp
    
48.               cen
    
49.             )
    
50.           v (xdrx_vector_normalize v)
    
51.           midp (mapcar
    
52.                  '+
    
53.                  cen
    
54.                  (xdrx_vector_product v r)
    
55.                )
    
56.           arcinfo (xdrx_geom_3P2arc startPnt midp p3)
    
57.     )
    
58.     (if (not e)
    
59.       (setq e (apply
    
60.                 'xdrx_arc_make
    
61.                 (cdr arcinfo)
    
62.               )
    
63.       )
    
64.       (progn
    
65.         (if (car arcinfo)
    
66.           (xdrx_modent 10 cen 40 r 51 (nth 4 arcinfo) 50 (nth 3 arcinfo))
    
67.           (xdrx_modent 10 cen 40 r 50 (nth 4 arcinfo) 51 (nth 3 arcinfo))
    
68.         )
    
69.       )
    
70.     )
    
71.     e
    
72.   )
    
73. 
    
74.   (setq cen (trans cen 1 0))
    
75.   (setvar "lastPoint" cen)
    
76.   (initget 1)
    
77.   (setq ret (xdrx_drag_jig "EdgeCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor cen))
    
78.   (cond
    
79.     ((= ret -4)
    
80.       (entdel (entlast))
    
81.     )
    
82.     (t
    
83.       (if (= (type ret) 'STR)
    
84.         (progn
    
85.           
    
86.           (entdel (entlast))
    
87.         )
    
88.       )
    
89.     )
    
90.   )
    
91. 
    
92.   (gc)
    
93.   ret
    
94. )
    
95. 
    

;|<br /> 起点、圆心、终点圆弧拖动实现函数<br /> 参数：<br />    info ---- 提示字符串<br />   pj  ---- 圆心<br />   p2  ---- 起始点<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 /> (defun XD::Drag:Arc2 (info cen startPnt keyWord cursor / arcinfo dis dynpt e midp p3 pts r ret v)<br />   (defun EdgeCallBack (dynPt / pts)<br />     (setq v (mapcar<br />               '-<br />               dynPt<br />               cen<br />             )<br />           v (xdrx_vector_normalize v)<br />           r (distance cen startPnt)<br />           p3 (mapcar<br />                '+<br />                cen<br />                (xdrx_vector_product v r)<br />              )<br />           v (mapcar<br />               '-<br />               p3<br />               startPnt<br />             )<br />           dis (distance startPnt p3)<br />           v (xdrx_vector_normalize v)<br />           midp (mapcar<br />                  '+<br />                  startPnt<br />                  (xdrx_vector_product v (/ dis 2.0))<br />                )<br />           v (mapcar<br />               '-<br />               midp<br />               cen<br />             )<br />           v (xdrx_vector_normalize v)<br />           midp (mapcar<br />                  '+<br />                  cen<br />                  (xdrx_vector_product v r)<br />                )<br />           arcinfo (xdrx_geom_3P2arc startPnt midp p3)<br />     )<br />     (if (not e)<br />       (setq e (apply<br />                 'xdrx_arc_make<br />                 (cdr arcinfo)<br />               )<br />       )<br />       (progn<br />         (if (car arcinfo)<br />           (xdrx_modent 10 cen 40 r 51 (nth 4 arcinfo) 50 (nth 3 arcinfo))<br />           (xdrx_modent 10 cen 40 r 50 (nth 4 arcinfo) 51 (nth 3 arcinfo))<br />         )<br />       )<br />     )<br />     e<br />   )<br /> <br />   (setq cen (trans cen 1 0))<br />   (setvar "lastPoint" cen)<br />   (initget 1)<br />   (setq ret (xdrx_drag_jig "EdgeCallBack" info keyWord (+ 1 2 4 8 16 128 512 65536) Cursor cen))<br />   (cond<br />     ((= ret -4)<br />       (entdel (entlast))<br />     )<br />     (t<br />       (if (= (type ret) 'STR)<br />         (progn<br />           <br />           (entdel (entlast))<br />         )<br />       )<br />     )<br />   )<br /> <br />   (gc)<br />   ret<br /> )<br /> <br />

1. (defun c:test-drag-arc2()
   
2.    (if (and (setq p1 (getpoint "\n圆心:"))
   
3.             (setq p2 (getpoint "\n起始点:"))
   
4.        )
   
5.      (progn
   
6. 
   
7.         (XD::Drag:Arc2 "\n终点[退出-Q]:" p1 p2 "Q" 0)
   
8.      )
   
9.   )
   
10.   (princ)
    
11. )
    
12. 
    

(defun c:test-drag-arc2()<br />    (if (and (setq p1 (getpoint "\n圆心:"))<br />             (setq p2 (getpoint "\n起始点:"))<br />        )<br />      (progn<br /> <br />         (XD::Drag:Arc2 "\n终点[退出-Q]:" p1 p2 "Q" 0)<br />      )<br />   )<br />   (princ)<br /> )<br /> <br />