[求助]：初学，遇到拦路虎，请能人帮忙指点

cy04gjl

我绘图中经常遇到要画这样一种图框,如图所示。由四个矩形框组成,框前三个框的距离一样,第四个也就是最里边的那框距离稍大一些,要在CAD里所需要的内容上加这样的框,我试着写了一个小程序，运行时老出错。大家帮我看看错在哪能里了
((defun C:LXH()
  (SETQ P1(getpoint"\n 请你确定第一点位置:")
        P2(getpoint"\n 请你确定第二点位置:")
        P3(list(-(car P1) 5) (-(cadr P1) 5))
        P4(list(+(car P2) 5) (+(cadr P2) 5))
          )
(COMMAND "rectang" P1 P2 "" )
(COMMAND "rectang" P3 P4 "" )
(princ)
)

zml84

开头多了一个开括号。
去掉便可。

zxq0220

注意要关闭特征点捕捉，不然会重叠地画在一起。