[求助]initget 控制回车的字符串

nonsmall

因为我需要用entget选取图元,回车退出,不能用位值控制,只能用关键字,所以求助高人指点.

(initget "???")
(if (= "" (entsel)) (exit))

???怎么添?

抱歉写错了

sailorcwx

entget可以选取图元？entsel吧！

回车entsel为nil

zml84

这样可以满足你的需求
(if (setq ss (entsel "\n点取对象"))
     (exit)
)

但不建议你这样做。

jaminth

nonsmall发表于2007-8-31 11:50:00因为我需要用entget选取图元,回车退出,不能用位值控制,只能用关键字,所以求助高人指点.(initget \"???\")(if (= \"\" (entsel)) (exit))???怎么添?

举例

(INITGET  1 "BSelect Select Rectangle Polygonal Color Exit")

nonsmall

不好使

回车符 \r 也不对

zml84

这个结构可以实现你想要的：

3. (if (setq S1 (entsel "\n点取对象: "))
4.     (progn
5.     ;;>>>>>>>>>>>>>
6.     ;;代码正文
7.     (princ S1)
10. &#160;&#160; &#160;;;<<<<<<<<<<<<
11. &#160;&#160;&#160; )
12. &#160;&#160;&#160; (princ "\n没有对象。")
13. )

(if (setq S1 (entsel "\n点取对象: ")) &#160;&#160;&#160; (progn &#160;&#160; &#160;;;>>>>>>>>>>>>> &#160;&#160; &#160;;;代码正文 &#160;&#160; &#160;(princ S1) &#160;&#160; &#160;;;<<<<<<<<<<<< &#160;&#160;&#160; ) &#160;&#160;&#160; (princ "\n没有对象。") )

狂刀无痕

既然“,不能用位值（？）控制,只能用关键字”

和不用getkword