请高手解释两句lisp程序（急,谢谢）

kgd4510 · 发表于 2005-5-30 11:07:00

本帖最后由作者于 2005-5-30 12:07:59 编辑

(setq row (read-line file))

(while (/= "end" row)
(IF (OR (= 162 (ASCII ROW)) (AND (>= (ASCII ROW) 65) (<= (ASCII ROW) 122))(= "2" (substr row 1 1))) 最后面那两行是连成一行的，还有read-line读出来的数据是只有一行，还是所包涵所以的数据呢？对不起我是初学者，很多命令并未能理解其执行后的结果。谢谢

BDYCAD · 发表于 2005-5-30 11:49:00

第一句当row的值不是字符 "end" 便执行 while 循环涵数里面的内容

第二句当然是while 循环涵数里运算的内容用if 涵数来评审 row 的值,

kgd4510 · 发表于 2005-5-30 11:55:00

谢谢，我最糊涂的就是if里边的内容，请问能帮我再具体解释一下呢？

BDYCAD · 发表于 2005-5-30 12:07:00

例如 (setq ROW "4"); 当 row 为 "4"
(setq asc-number(ASCII ROW)); 那么 ascii 返回码是 52 if 里面的意思是说或者 (ASCII ROW) 等於 162 或者(ASCII ROW) 是 65 到 122 之间或者 row 是字符串 "2"

kgd4510 · 发表于 2005-5-30 12:14:00

谢谢，我的原程序是这样子的，请问你能否帮我解释一下，循环体里面的内容吗？如果能都解释就最好不过啦。QX-2.lsp是程序。data.txt是数据文件。谢谢

kgd4510 · 发表于 2005-5-30 12:15:00

BDYCAD · 发表于 2005-5-30 13:47:00

这个lisp程序把主要的功能写在 c:txttozb 涵数和c:cp 里面, 不知道读了每一行的坐标然后用来作什么啊. 呵呵. 程序是用来根据这些文本文件画出图来的功能, 至於解决没有必要吧.

kgd4510 · 发表于 2005-5-30 17:31:00

真是高手，一看就知道程序的关键之处啦，程序的作用我知道，确实是根据坐标来画出我们的一些特殊图形的，这是人家给我的。只是我现在急着用，又用不了，他叫我修一下就可以用啦，哎，没办法啊，想通过网上请教高手。那就不用解释程序啦。你能根据程序来判断出数据文件的格式吗？可能是我数据文件的格式不对，所以用不了。

BDYCAD · 发表于 2005-5-31 08:54:00

你提供的TXT文件只有一点点, 别人很难识别到底程序要画什么东东. 你得提供全面一点的资料才方便测试. 比如上面的TXT文件只看到三行坐标的数字, 131800不知是作什么用的解译码, 后面三个分别有豆号隔开的是坐标吧, 但不谁也搞不明这三个坐标到底要干什么用的嘛.

kgd4510 · 发表于 2005-5-31 10:03:00

算了，麻烦阁下啦，我想了一下，这个程序也是很有问题，一点都不适合我用。我也搞不懂他原程序读数据的格式是什么。呵呵。以后我还有很多问题要请教你哦。

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

请高手解释两句lisp程序（急,谢谢）

本帖子中包含更多资源

本帖子中包含更多资源