求帮忙，加载小程序之后说是参数太少..

zjl1234zjl

书上的一个例子，加载之后说是参数太少，可是我全是照抄的啊。。。求帮忙。

(defun c:rect (/p1 p2 p3 p4)
    (setq p1 (getpoint "\n 输入矩形的一个角点："))
    (setq p3 (getcorner p1 "\n 输入矩形的另一个角点："))
    (setq p2 (list (car p3) (cadr p1)))
    (setq p4 (list (car p1) (cadr p3)))
      (command "pline" p1 p2 p3 p4 "c")
)

Andyhon

(defun c:rect (/p1 p2 p3 p4)

===>

(defun c:rect (/ p1 p2 p3 p4)

zjl1234zjl

谢谢二楼，改了之后就对了。书上的空格好难辨认啊，list里又对空格做了很多要求。。。