求助：lsp坐标重新定义问题，符lsp

chenyizhen28

(defun  c:sxc ( / p1 p3 p2 ss p3_x p3_y)
   (ztc_c)
   (command "undo" "be")
   (setq p1 (getpoint "上旋窗基点:"))
   (setq        p1_x (car p1);p1点x
        p1_y (cadr p1);p1点y
   )
   (setq p3 (getcorner p1 "\n上旋窗对角点:" ))
   (setq        p3_x (car p3);p3点x
        p3_y (cadr p3);p3点y
   )
   (setq p1x (min p1_x p3_x);重新调整p1 p3
        p1y (min p1_y p3_y)
        p3x (max p1_x p3_x)
        p3y (max p1_y p3_y)
        p1  (list p1x p1y)
        p3  (list p3x p3y)
        p2  (list p3x p1y)
        p4  (list p1x p3y)
        );setq
   ;(command "-layer" "s" "WINDOW" "")  
   (command "RECTANG" p1 p3);窗外框
   (setq ss (entlast))
   (command "OFFSET" "50" "non" p1 "m2p" "non" p1 "non" p3  "");选择框不要的
   (setq ss1 (entlast))
   ;(command "pline" "from" "non" p1 "non" "@50,50" "from" "m2p" "non" p3 "non" p4 "non" "@0,-50");镜像窗
   (command "line" "non" p1 "non" p3);镜像窗
   (command "undo" "e")
   );end






整个代码去到pline的时候就过不了，提示输入的不是二维点，不知道是不是在转换坐标的时候就出错了。