点监视器应用（1）鼠标左右拖动实线、虚线矩形框

XDSoft

（一）同ACAD的表现形式，左侧拖动虚线、右侧拖动实线，不管WCS,UCS，矩形始终平行于屏幕。

点监视器XDRX_PointMonitor 应用（1）鼠标左右拖动实线、虚线矩形框

1. (defun c:tt (/ dynpt lastpnts pnts)
   
2.   (defun _callback (dynpt / )
   
3.     (setq pnts (xd::pnts:close (xd::geom:2pntrec p1 dynpt)))
   
4.     (if (xd::pnt:islefttopbyline dynpt p1 pt1)
   
5.       (setq mod 1)
   
6.       (setq mod 0)
   
7.     )
   
8.     (if lastpnt
   
9.       (xdrx_grdraw -2 mod lastpnts)
   
10.     )
    
11.     (if (/= lastmod mod)
    
12.       (redraw)
    
13.     )
    
14.     (xdrx_grdraw -2 mod pnts)
    
15.     (setq lastpnts pnts
    
16.           lastpnt dynpt
    
17.           lastmod mod
    
18.     )
    
19.   )
    
20.   (if (setq p1 (getpoint "\nFirst Point<Quit>:"))
    
21.     (progn
    
22.             
    
23.       (setq p1 (trans p1 1 0)
    
24.             pt1 (mapcar
    
25.                   '+
    
26.                   p1
    
27.                   (list 0.0 1.0 0)
    
28.                 )
    
29.       )
    
30.       (xdrx_pointmonitor "_callback")
    
31.       (xdrx_sysvar_push '("cursorsize" 2))
    
32.       (if (setq p2 (getpoint "\nSecond Point<Quit>:"))
    
33.         (progn
    
34.         )
    
35.       )
    
36.       (xdrx_pointmonitor)
    
37.       (xdrx_sysvar_pop)
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    
42. 
    

(defun c:tt (/ dynpt lastpnts pnts)<br />   (defun _callback (dynpt / )<br />     (setq pnts (xd::pnts:close (xd::geom:2pntrec p1 dynpt)))<br />     (if (xd::pnt:islefttopbyline dynpt p1 pt1)<br />       (setq mod 1)<br />       (setq mod 0)<br />     )<br />     (if lastpnt<br />       (xdrx_grdraw -2 mod lastpnts)<br />     )<br />     (if (/= lastmod mod)<br />       (redraw)<br />     )<br />     (xdrx_grdraw -2 mod pnts)<br />     (setq lastpnts pnts<br />           lastpnt dynpt<br />           lastmod mod<br />     )<br />   )<br />   (if (setq p1 (getpoint "\nFirst Point<Quit>:"))<br />     (progn<br />             <br />       (setq p1 (trans p1 1 0) <br />             pt1 (mapcar<br />                   '+<br />                   p1<br />                   (list 0.0 1.0 0)<br />                 )<br />       )<br />       (xdrx_pointmonitor "_callback")<br />       (xdrx_sysvar_push '("cursorsize" 2))<br />       (if (setq p2 (getpoint "\nSecond Point<Quit>:"))<br />         (progn<br />         )<br />       )<br />       (xdrx_pointmonitor)<br />       (xdrx_sysvar_pop)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

（二） 鼠标拖动矩形，矩形平行于UCS的坐标轴的实线

点监视器XDRX_PointMonitor 应用（1）鼠标左右拖动实线、虚线矩形框

1. (defun c:tt (/ dynpt lastpnts pnts)
   
2.   (defun _callback (dynpt / )
   
3.     (setq pnts (xd::pnts:close (xd::geom:2pntrec p1 (trans dynpt 0 1))))
   
4.     (if (xd::pnt:islefttopbyline dynpt (trans p1 1 0) (trans pt1 1 0))
   
5.       (setq mod 1)
   
6.       (setq mod 0)
   
7.     )
   
8.     (if lastpnt
   
9.       (xdrx_grdraw -2 mod (xd::pnts:ucs2wcs lastpnts))
   
10.     )
    
11.     (if (/= lastmod mod)
    
12.       (redraw)
    
13.     )
    
14.     (xdrx_grdraw -2 mod (xd::pnts:ucs2wcs pnts))
    
15.     (setq lastpnts pnts
    
16.           lastpnt dynpt
    
17.           lastmod mod
    
18.     )
    
19.   )
    
20.   (if (setq p1 (getpoint "\nFirst Point<Quit>:"))
    
21.     (progn            
    
22.       (setq pt1 (mapcar
    
23.                   '+
    
24.                   p1
    
25.                   (list 0. 1.0 0.)
    
26.                 )
    
27.       )
    
28.       (xdrx_pointmonitor "_callback")
    
29.       (xdrx_sysvar_push '("cursorsize" 2))
    
30.       (if (setq p2 (getpoint "\nSecond Point<Quit>:"))
    
31.         (progn
    
32.         )
    
33.       )
    
34.       (xdrx_pointmonitor)
    
35.       (xdrx_sysvar_pop)
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )
    
40. 
    

(defun c:tt (/ dynpt lastpnts pnts)<br />   (defun _callback (dynpt / )<br />     (setq pnts (xd::pnts:close (xd::geom:2pntrec p1 (trans dynpt 0 1))))<br />     (if (xd::pnt:islefttopbyline dynpt (trans p1 1 0) (trans pt1 1 0))<br />       (setq mod 1)<br />       (setq mod 0)<br />     )<br />     (if lastpnt<br />       (xdrx_grdraw -2 mod (xd::pnts:ucs2wcs lastpnts))<br />     )<br />     (if (/= lastmod mod)<br />       (redraw)<br />     )<br />     (xdrx_grdraw -2 mod (xd::pnts:ucs2wcs pnts))<br />     (setq lastpnts pnts<br />           lastpnt dynpt<br />           lastmod mod<br />     )<br />   )<br />   (if (setq p1 (getpoint "\nFirst Point<Quit>:"))<br />     (progn            <br />       (setq pt1 (mapcar<br />                   '+<br />                   p1<br />                   (list 0. 1.0 0.)<br />                 )<br />       )<br />       (xdrx_pointmonitor "_callback")<br />       (xdrx_sysvar_push '("cursorsize" 2))<br />       (if (setq p2 (getpoint "\nSecond Point<Quit>:"))<br />         (progn<br />         )<br />       )<br />       (xdrx_pointmonitor)<br />       (xdrx_sysvar_pop)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

Lisphk

向老大学习~~

h117564598

简直太厉害了！学习中