画矩形，程序出错，麻烦大神帮忙看看问题在哪？

减肥中的胖星星

做一个矩形，默认角点（0,0），（3000,5000）

(defun c:juxing(/ p1 p2 p3 p4)
(setq p1(getpoint "输入矩形的一个角点<0,0>:" ))
(if (= p1 nil)(setq p1 '(0,0)))
(setq p3(getcorner p1 "输入矩形的另一个角点<3000,5000>:"))
(if (= p3 nil)(setq p3 '(3000,5000)))
(setq p2(list(car p3)(cadr p1)))
(setq p4(list(car p1)(cadr p3)))
(Command "rectang" p1 p3)
)

不加红色部分，程序是可以运行的，直接鼠标给点可以，但是一输入坐标值就不行了……
请问问题在哪？谢谢！

st788796

(if (= p1 nil)(setq p1 '(0,0))) => (if (= p1 nil)(setq p1 '(0 0)))

(if (= p3 nil)(setq p3 '(3000,5000))) => (if (= p3 nil)(setq p3 '(3000 5000)))

Miss^M

坐标点问题,不用逗号