go-go 发表于 2003-6-4 21:06:00

[求助]帮我看看这段程序

1、请帮我看看这段程序,哪里出错了?
(setq ks 2.5 km 3.5 s 12)
(setq k1 ks)
(setq km (+ ks (/ 1 s)))
(while (< = k1 km)
   ........
   .......中间这部分程序已检查过
(setq m (+ m 1))
(setq k1 (+ ks (/ m s))
)
加载后总是出现你所比较的参数不正确。
我看书上不是说while所比较的数字可以是小数吗?到底是哪里出错了?
2、我编了一个程序(不是共享子程序)我想让它象画线line命令一样autocad打开就自动加载,如何做呢?



                                 

VisualLISP 发表于 2003-6-4 22:07:00

多了空格

原(while (< = k1 km)改为(while (<= k1 km)
多了一个空格!
页: [1]
查看完整版本: [求助]帮我看看这段程序