救人啊，帮忙修改程序！

honboo · 发表于 2005-5-30 16:51:00

这个程序是在飞哥提示下，我套用他的思路做的，但是到目前还有很多问题，我实在不会解决了，所以来求大家！这个程序和所需的b.txt里的数据以及图形我都压缩上传一下。

程序的目的是通过读取已经写入到b.txt中的数据进行画图，程序中我已经注明了每一语句的作用，请各位多多指点！

honboo · 发表于 2005-5-30 16:54:00

数据已写入b.txt文件、quhua.lsp和演示系统01.dwg

honboo · 发表于 2005-5-31 09:23:00

请各位允许我坚强勇敢的将此贴顶一次，因为我比较急！

meflying · 发表于 2005-5-31 12:54:00

offset用法不对,应该这样: (command "_.line" pt1 pt2 "")
(setq ent (entlast))
(command "_.offset" 4 ent (list (car base1) (+(cadr base1)1)) "") 建议不要一口气把程序写完,把每一部分写正确了,再继续写下面的部分

honboo · 发表于 2005-5-31 13:25:00

谢谢飞哥，但是我不知道用什么办法能从一个COND语句里跳出去执行一个子函数，并且同时结束以前的COND语句

maomao2004 · 发表于 2005-6-1 09:23:00

不可以用 if 吗？

cond函数只要满足条件他就会执行啊，除非你别的条件都是nil

不过那用cond好像没什么意思了

honboo · 发表于 2005-6-1 09:37:00

COND在某些地方用的还是方便的，可以用一个WHILE语句限制COND的读取范围，昨天我做出来的，谢谢大家！

maomao2004 · 发表于 2005-6-1 09:44:00

呵呵，那就好，是我理解错误了

honboo · 发表于 2005-6-1 10:27:00

哈哈，楼上的兄弟太客气了，千万别说什么理解错误，每一个小小的提示对我都是收益非浅的。

现在又有个问题，程序做的基本完成了，但是发现程序里所有的数值都是整数形式，通过什么方式把它们全部改为浮点式。

meflying · 发表于 2005-6-1 12:55:00

我给你发的邮件收到了吗?

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

救人啊，帮忙修改程序！

本帖子中包含更多资源