xiaocainiao 发表于 2024-1-6 13:31:06

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

请教一下各位大神!


(initget "s")
(setq pt1 (getpoint"\n指定起点或[设置(S)]:<空格结束>"))
(cond
((= pt1 "s")(princ"执行设置程序"))
((= pt1 nil)(princ"程序结束"))
(t (setq pt2 (getpoint"\n指定下一点:<空格结束>")))
)请教一下能否设置指定第一点时、按S键直接执行设置程序、不用按空格、

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

飞雪神光 发表于 2024-1-6 15:07:11

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

xiaocainiao 发表于 2024-1-6 15:21:16

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

谢谢、了解了、我还是改成用grread来搞吧
页: [1]
查看完整版本: 使用getpoint配合Initget使用时、能否设置不按空格直接生效