[求助]：SOS! 如何通过选择向变量赋值？

flh1314 · 发表于 2006-6-22 08:32:30

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

我的目的是要通过在命令运行过程中，通过接受键盘输入来确定”“RO”的数值。

请帮忙指出错误所在，谢谢！

[PHP]
(defun c:x1(/ mod rov roh ro)
  (initget 1 "V H")
  (setq Mod (strcase (getkword "\n 请选择：垂直(V)/水平(H):")))
  (setq Rov "90")
  (setq Roh "0")
  (cond (= Mod "V") (setq Ro Rov)
(= Mod "H") (setq Ro Roh) )
  (print Ro)
)[/PHP]

wuzz · 发表于 2006-6-22 09:22:54

cond函数没搞清，修改如下：

(defun c:x1(/ mod rov roh ro)
  (setq Mod (strcase (getstring "\n 请选择：垂直(V)/水平(H):")))
  (setq Rov "90")
  (setq Roh "0")
  (cond
   ((= Mod "V") (setq Ro Rov) )
   ((= Mod "H") (setq Ro Roh) )
  )
  (print Ro)
)

flh1314 · 发表于 2006-6-22 09:30:56

啊哦，确实是的，多谢了！

另：

像上面所说，我有没有办法把选择默认是 “H ”，仅空格或回车就能实现输入为H（但并不是省略该步，仍然要能提供选择）。

lazybug · 发表于 2006-6-22 16:31:22

(defun c:x1(/ mod rov roh ro)
(setq Mod (strcase (getstring "\n 请选择：垂直(V)/水平(H):")))
(setq Rov "90")
(setq Roh "0")
(if (null mod) (setq mod "H"))
(cond
((= Mod "V") (setq Ro Rov) )
((= Mod "H") (setq Ro Roh) )
)
(print Ro)
)

fsxm · 发表于 2006-6-25 19:13:25

(getstring)
用回车响应不会返回nil的~！而是返回一个空字符""！
楼主(if (null mod) (setq mod "H"))
要改成:(if (= "" mod) (setq mod "H"))

雨箭风刀 · 发表于 2006-6-26 07:27:04

(initget 1 "V H ")

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

[求助] [求助]：SOS! 如何通过选择向变量赋值？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子