求解lisp关键词输入的一个问题

weidongying1 · 发表于 2019-7-15 16:34:12

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:shuru ()

(initget "dn15 dn20dn25 dn32")

(setq var (getkword "请输入字符串[dn15,dn20,dn25,dn32]<dn25>"))

(princ var)

(princ)

)

以上是我编写的代码，运行效果如下图。显示效果可以用鼠标选择，但实际上选择无效，结果始终是nil，必须用键盘输入才能得到正确结果

哪位大神知道是什么原因

/db_自贡黄明儒_ · 发表于 2019-7-15 18:17:25

weidongying1 · 发表于 2019-7-16 15:47:18

/db_自贡黄明儒_ 发表于 2019-7-15 18:17
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=723183&highlight=initget

你把我的代码尝试运行下就知道我需要表达啥意思了

weidongying1 · 发表于 2019-7-16 15:51:16

这个代码在我的cad2013上运行不能用鼠标选，但在我同事电脑cad2008上是可以的

/db_自贡黄明儒_ · 发表于 2019-7-16 17:53:46

weidongying1 发表于 2019-7-16 15:51
这个代码在我的cad2013上运行不能用鼠标选，但在我同事电脑cad2008上是可以的

账号		自动登录	找回密码
密码			立即注册

[求助] 求解lisp关键词输入的一个问题