[讨论]：高手请帮忙指出简单autolisp程序问题

long78 · 发表于 2006-6-19 09:45:54

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

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

×

程序
(setq po (getpoint "start point:"))
(setq R (getreal "R=?"))
(setq L (getreal "L=?"))
(setq a 1)
(while (<= a 4)
(command "circle" po R)
(setq po (polar po 0 L)
(setq a (1+a))
)

在cad里加载后，可以输入点的位置，半径和L，然后就没有反应了，命令行提示：
Command: _appload yuan.lsp successfully loaded.
Command: start point:R=?5000
L=?300
错误:malformed list on input
请高手帮忙。谢谢。

wuzz · 发表于 2006-6-19 10:04:46

1、括号不匹配
2、“1+”运算符使用错误

(setq po (getpoint "start point:"))
(setq R (getreal "R=?"))
(setq L (getreal "L=?"))
(setq a 1)
(while (<= a 4)
(command "circle" po R)
(setq po (polar po 0 L))
(setq a (1+ a))
)

aliu22 · 发表于 2006-6-19 18:52:54

不能跳出循环

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

[讨论]：高手请帮忙指出简单autolisp程序问题

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

相关帖子