泰国 永恒 垃圾:cad lisp 的问题

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/05 15:56:02
defun c:pbox()
(setq pa(getpoint"shuru"))
(setq ww(getreal"kuandu"))
(setq hh(getreal"gaodu"))
(setq pb(polar pa 0 ww))
(setq pc(polar pb(/pi 2) hh))
(setq pd(polar pc pi ww))
(command "pline" pa pb pc pd "c")
)

怎么会发生 没有函数的错误啊