[求助]：autolisp问题请教

tcy200489 · 发表于 2006-12-7 20:12:18

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

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

×

请高手指教,下列程序到底出了什么问题?怎么运行不了?
(defun c:rect2(p1 p2 p3 p4)
(graphscr)
(setvar"cmdecho" 1)
(prompt"rect2 command draws a rectangle")(terpri)
(setq p1(getpoint "enter first corner") (terpri)
(setq p3(getcorner p1 "enter opposite corner")(terpri)
(setq p2(list(car p3)(cadr p1)))
(setq p4(list(car p1)(cadr p3)))
(command"line" p1 p2 p3 p4 "c")
(setval"cmdecho" 1)
(princ)
)

david96007 · 发表于 2006-12-7 20:55:03

有4处错误：
两处为括号不匹配！
一处为变量声明错误
一处为拼写错误

tcy200489 · 发表于 2006-12-7 22:23:56

谢谢青铜长老.已解出来了.

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

[求助] [求助]：autolisp问题请教

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

相关帖子