[LISP程序]：向各位高手请教

tcy200489 · 发表于 2006-12-9 23:04:17

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

×

请各位高手解释一下这一句的意义
(setq nob (getint (strcat "\n输入件号<"
(rtos (getvar "useri5")2 0)
">:")))

zhynt · 发表于 2006-12-10 08:25:13

意思是叫你输入一个整数，并用变量useri5的值作为默认。
比如下面能就是
(if (= nob nil)
(setq nob (geyvar user15))
)

zhangfp · 发表于 2006-12-10 08:45:31

叫你输入一个整数

谢谢

tcy200489 · 发表于 2006-12-10 20:18:33

(if (= nob nil)
(setq nob (geyvar user15))
)
先谢谢斑主的答复.不过答复中有一句好象有误.好象没有geyvar函数,恐怕是getvar函数吧?

zhynt · 发表于 2006-12-10 22:45:59

呵呵，不好意思，笔误！谢谢。

cy956 · 发表于 2006-12-10 23:20:16

要记数据建议用ldata之类。user那几组有一些软件已经用了，比如天正，容易出问题。
至于ldata，搜索本坛。用上你就觉得好了。

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

回复