[编程申请]：怎么样编一段程序，可以实现这个功能

青马

请问，怎么样编一段程序，可以实现这个功能
回退(u)/封闭(c)/下一点<>

可以用户输入u或c,也可以在屏幕上点下一层，也就是既能getsrting,也能同时getpoint，我一直没想出好办法,请指点

eachy

这个早有过讨论和代码

2. 
   
3. (while tf
   
4.   (if (progn (initget 128 "U C") (setq pt (getpoint "\n回退(u)/封闭(c)/下一点<>:")))
   
5.       (progn
   
6.          (cond
   
7.             ((= pt "U") ...)
   
8.             ((= pt "C") ...)
   
9.             ((= (type pt) 'LIST) ...)
   
10.             (t (princ "\nWrong Key!")
    
11.          )
    
12. )))

<br /> (while tf<br />   (if (progn (initget 128 "U C") (setq pt (getpoint "\n回退(u)/封闭(c)/下一点<>:")))<br />       (progn<br />          (cond <br />             ((= pt "U") ...)<br />             ((= pt "C") ...)<br />             ((= (type pt) 'LIST) ...)<br />             (t (princ "\nWrong Key!")<br />          )<br /> )))

青马

知道了，一下就点破我很长时间的疑惑，谢谢