使用getpoint配合Initget使用时、能否设置不按空格直接生效

xiaocainiao

请教一下各位大神！

2. (initget "s")
   
3. (setq pt1 (getpoint"\n指定起点或[设置(S)]:<空格结束>"))
   
4. (cond
   
5.   ((= pt1 "s")(princ"执行设置程序"))
   
6.   ((= pt1 nil)(princ"程序结束"))
   
7.   (t (setq pt2 (getpoint"\n指定下一点:<空格结束>")))
   
8. )

(initget "s")<br /> (setq pt1 (getpoint"\n指定起点或[设置(S)]:<空格结束>"))<br /> (cond <br />   ((= pt1 "s")(princ"执行设置程序"))<br />   ((= pt1 nil)(princ"程序结束"))<br />   (t (setq pt2 (getpoint"\n指定下一点:<空格结束>")))<br /> )

请教一下能否设置指定第一点时、按S键直接执行设置程序、不用按空格、

就类似使用grread时的效果一样、按完直接执行

飞雪神光

不按空格 就是不交互 等于 删掉 getpoint这一行

xiaocainiao

飞雪神光 发表于 2024-1-6 15:07
不按空格 就是不交互 等于 删掉 getpoint这一行

谢谢、了解了、我还是改成用grread来搞吧