杭州交通信息网暗影双刀能手册:cad lisp 的问题
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 04:39:42
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")
)
怎么会发生 没有函数的错误啊
(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")
)
怎么会发生 没有函数的错误啊