关于xdrx_initget的用法疑问

pxt2015

lisp原始
(initget "A B")
(setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))
输入：A, 返回：“A”
输入：B, 返回：“B”
输入：12, 返回：12


XDAPI
(xdrx_initget "A B")
(setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))

输入：A, 直接（不按回车键）返回：“A”

输入：B, 直接（不按回车键）返回：“B”

输入：12, 返回：?

换一个getpoint函数，又与“lisp原始”效果相同。

newer

命令: (setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))
PICK POINT[半径增大(A)/减小(B)]<退出>:"A"

命令: (setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))
PICK POINT[半径增大(A)/减小(B)]<退出>:12
12

没问题啊，2008下

alliuyx

啥也不说了，感谢楼主分享哇！

chenfengcanxi

斑斑驳驳不懂得确实是难得好帖啊，顶先

pxt2015

newer 发表于 2017-4-24 22:17

[img]file:///C:\Users\Administrator\AppData\Roaming\Tencent\Users\16738314\QQ\WinTemp\RichOle\XEX3]5~TWJDKKK2KB42Z@FW.png[/img]

感谢版主的回复。
以上是CAD命令行截图。
环境：CAD2010 WIN 64位
(defun c:t ()
  (xdrx_begin)
  (xdrx_initget "A B")
  ;;(initget "A B")
  (setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))
  (xdrx_end)
  p
)

输入A或者a,直接（不按回车键）返回"A"，
输入B或者b,直接（不按回车键）返回"B"，
输入12,回车，命令行提示1212，P被赋值为12,同时似乎进入了循环: (setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:")) ？
直接空回车，命令行提示nil, 同时似乎进入了循环: (setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:")) ？

newer

pxt2015 发表于 2017-4-25 08:58

你的问题到底在哪？ 我没看明白你描述的。
你就说下 本应该怎么， 实际怎么了。

pxt2015

输入定义好的关键字，例如：A或B, 能够正常返回："A"或者"B"，
但是输入：12或者空格，应该返回：12和nil,同时退出 (setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))
现在的情况是：输入12，回车，一直要求输入，进入了(setq p (getint "\rPICK POINT[半径增大(A)/减小(B)]<退出>:"))循环

newer

pxt2015 发表于 2017-4-25 09:22

我上面给你贴了，我这里正常。你是不是键盘回车键粘连了，一直按回车了？

pxt2015

再次感谢热心版主，

找到原因了： 输入12,按“空格键”和“回车键”，效果不同，“回车键”返回正常数值，但“空格键”就出现循环的问题。
画图的，空格键用得最多呀，希望老大们多体谅。

XDSoft

pxt2015 发表于 2017-4-25 10:23

谢谢建议，下一个版本API,修正，到时你试试。

newer

pxt2015 发表于 2017-4-25 10:23

试了下2017.0428版本的API， 空格已经正常了。

pxt2015

感谢热心的new版主和晓东老大。