AutoCAD lisp

没有定义函数吧？

倒数第二行,少一个")"
(setq pd (polar pc 0 ww) 应为(setq pd (polar pc 0 ww))

(command "pline" pa pb pc pd "c"）
很明显"） "跟")"是有区别的。

你想画一个矩形,这个程序有两个错误。其一、pi是180度而不是90度；其二、括号的问题，倒数第2行最后少一个右括号，倒数第1行最后右括号改为半角。正确的程序：
(setq pa (getpoint "输入左下角点："))
(setq ww (getreal "宽度:"))
(setq hh (getreal "高度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pa (/ pi 2) hh) )
(command "pline" pa pb pc pd "c")