改成直接按 “Enter键” 镜像，按“N”键不镜像

szx025 · 发表于 2014-7-13 09:56:58

(initget "Yes No")
      (if (= "Yes"
            (getkword "\n是否镜像？[是(Y)/否(N)] <N>:")
         )
(command "_.MIRROR" ss "")
这样的语句，直接按“Enter键”不镜像，按“Y”键镜像。现在我想改成直接按“Enter键” 镜像，按“N”键不镜像。应该咋样改

lostbalance · 发表于 2014-7-13 10:26:51

这个没有设置默认选项也能运行吗？好像if也没有关闭？
试试下面这个？
(initget "Yes No")
      (if (/= "NO"
            (getkword "\n是否镜像？[是(Y)/否(N)] <N>:")
         )
(command "_.MIRROR" ss "")
)

szx025 · 发表于 2014-7-13 10:47:19

我试过了，不行

lostbalance · 发表于 2014-7-13 11:09:32

这个应该可以了，之前initget没有对getkword起作用
(if (/= "No"
(progn
(initget "Yes No")
(getkword "\n是否镜像？[是(Y)/否(N)] <Y>:")
)
)
(command "_.MIRROR" ss "")
)

lyqiezi · 发表于 2014-7-13 13:11:05

我觉得，还是左右键判别下一步动作好一点，
getpoint，左键就是有输入，右键就是无输入
比在键盘上找个字母容易多了

szx025 · 发表于 2014-7-13 13:12:54

谢谢，这个行了

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

[提问] 改成直接按 “Enter键” 镜像，按“N”键不镜像

相关帖子

[提问] 改成 直接按 “Enter键” 镜像，按“N”键不镜像

相关帖子

[提问] 改成直接按 “Enter键” 镜像，按“N”键不镜像