[求助]：(setq n 1)

阿勇 · 发表于 2003-1-23 18:28:23

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

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

×

请高手指点,下面的程序看不懂，谁能帮忙逐行解释一下，
(setq n 1)
  (while (/= "." (setq str (substr dwgname n 1)))
(setq name (strcat name str))
(setq n (1+ n))
  )
  (setq name (strcase name))
  (initget 1)
这是人家写的程序中的一段，小弟我初学，看不懂，也找不到原
作者，请各位帮忙了。先谢啦。

XDSoft · 发表于 2003-1-23 18:38:22

最初由阿勇发布
[B]请高手指点,下面的程序看不懂，谁能帮忙逐行解释一下，
(setq n 1)
  (while (/= "." (setq str (substr dwgname n 1)))
(setq name (strcat name str))
(setq n (1+ n))
  )
  (setq name (strcase ... [/B]

这个程序处理一个文件名如 abc.dwg
处理后，得到字符串 abc

循环遇到字符 . 结束
不是. ,程序就把获得的字符依次连接起来。

游手好闲 · 发表于 2003-1-23 18:50:07

是不是还改成大写了？
最后一句什么意思？

cy956 · 发表于 2003-1-23 19:34:02

最后一句没啥意思，你看一下帮助就知道。说白了是输入控制。

游手好闲 · 发表于 2003-1-23 19:52:06

看帮助了，没太看懂，它的作用是什么？没有它是不是一样？

efan2000 · 发表于 2003-1-23 19:56:00

可能后面还跟有其它的程序，用来控制用户的输入。如：1 不允许空输入；2 不允许输入 0（零）；4 不允许输入负数。

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

[求助] [求助]：(setq n 1)

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

相关帖子

Re: [求助]：(setq n 1)