我根据教程写了个东西，但是加载之后确定点和长宽之后却无事发生，并没有画出矩形，这是为什么啊，求大神指导

缺少空格，有些挤在一起了

关闭捕捉

(defun c:tt ()
(setvar "cmdecho" 0)
(setq pa (getpoint "左下角点"))
(setq ww (getdist pa "\n 宽度："))
(setq hh (getdist pa "\n 高度："))
(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")
(prin1)
)

教程可以给我发给吗
？