[已解決]一個lisp執行與想的不同

我看書寫了一個lisp 一個方框繪製中心線，可是我執行完繪製成對角線，請問大大們可以幫我看看哪裡有錯嗎？
(defun c:pbox()
(setvar "cmdecho" 0)
(setq pa (getpoint "輸入左下角點:"))
(setq ww (getreal "\n輸入寬度:"))
(setq hh (getreal "\n輸入高度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "line" pa pb pc pd "c")
(setq mp1 (polar pa 0 (* ww 0.5)))
(setq mp2 (polar pb (/ pi 2) (* hh 0.5)))
(setq mp3 (polar pd 0 (* ww 0.5)))
(setq mp4 (polar pa (/ pi 2) (* hh 0.5)))
(command "line" mp1 mp3 "")
(command "line" mp2 mp4 "")
(prin1)
)

在程式中有用到繪圖或框選的功能,請先關掉物件鎖點
或
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
...
(setvar "osmode" osm)

感謝lsj這們快地幫我解決問題，這個lisp我是看書寫的，書本都沒說要關掉物件 鎖點，那是不是我不用這樣寫，寫成抓中點就可以囉！

您可以試試看抓中點會有什麼結果
多一次體驗多一份心得
在多次的錯誤中最後找到正確的路,以後您會習慣順著路走

最好還是給座標值比較好~這是我的習慣
因為在跑LISP程式如果物件很多
用抓點的方式
CAD的介面範圍如果超出很容易出錯