确保输入点只能在曲线上

marting

学习下API的点监视器。

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (setq pt (xdrx_curve_getclosestpoint e dynpt))
   
4.     (redraw)
   
5.     (xdrx_grdraw 2 0 pt 3 3)
   
6.     (princ)
   
7.   )
   
8.   (if (setq e (car (xdrx_entsel
   
9.                      "\n拾取曲线<退出>:"
   
10.                      '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
    
11.                    )
    
12.               )
    
13.       )
    
14.     (progn
    
15.       (xdrx_begin)
    
16.       (xdrx_pointmonitor "_callback")
    
17.       (getpoint)
    
18.       (xdrx_pointmonitor)
    
19.       (xdrx_end)
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )
    
24. 
    

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (setq pt (xdrx_curve_getclosestpoint e dynpt))<br />     (redraw)<br />     (xdrx_grdraw 2 0 pt 3 3)<br />     (princ)<br />   )<br />   (if (setq e (car (xdrx_entsel<br />                      "\n拾取曲线<退出>:"<br />                      '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                    )<br />               )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_pointmonitor "_callback")<br />       (getpoint)<br />       (xdrx_pointmonitor)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

liunian0524

感谢大师分享,,,,