探秘(grread)

czx663

2. (defun c:sy (/ code n)
   
3.   (setq n 0)
   
4.   (while t
   
5.     (princ (strcat "\nbefore (grread)" (itoa n) ":  "))
   
6.     (princ code)
   
7.     (setq code (grread))
   
8.     (princ (strcat "\nafter (grread)" (itoa n) ":  "))
   
9.     (princ code)
   
10.     (setq n (1+ n))
    
11.   )
    
12. )

(defun c:sy (/ code n)<br />   (setq n 0)<br />   (while t<br />     (princ (strcat "\nbefore (grread)" (itoa n) ":  "))<br />     (princ code)<br />     (setq code (grread))<br />     (princ (strcat "\nafter (grread)" (itoa n) ":  "))<br />     (princ code)<br />     (setq n (1+ n))<br />   )<br /> )

可以试验各个按键和菜单的输入,挺有意思。但是在绘图区点右键，则 (grread) 能运行两次分别返回了(11 0)和(12 (坐标点))这个很神奇，也不理解。请大侠指教

Free-Lancer

论坛很多讨论和实例
http://search.discuz.qq.com/f/di ... p;searchsubmit=true

cable2004

{:soso_e179:}

txc6853234

刚好今天学习这个，谢谢分享

tungping_pan

谢谢分享!