[编程交流] setq问题

(defun c:rec1 (/ pt1 pt2 pt3 pt4)
 (setq pt1 (getpoint "\n click first corner"))
 (setq ortmd (getvar "orthomode"))
 (setvar "orthomode" 0)
 (setq pt2 (getcorner pt1 "\n click second corner"))
 (setvar "orthomode" ortmd)
 (command "rectang" pt1 pt2 "")
 (setq pt3 (list (car pt2) (cadr pt1)))
 (setq pt4 (list (car pt1) (cadr pt2)))
 (command "line" pt1 pt2 "")
 (command "line" pt3 pt4 "")
)

(defun c:rec2 (/ pt1 pt2 pt3 pt4)
 (setq pt1 (getpoint "\n click first corner"))
 (setq ortmd (getvar "orthomode"))
 (setvar "orthomode" 0)
 (setq pt2 (getpoint pt1 "\n click second corner"))
 (setvar "orthomode" ortmd)
 (setq pt3 (list (car pt2) (cadr pt1)))
 (setq pt4 (list (car pt1) (cadr pt2)))
 (LWPoly pt1 pt3 pt2 pt4)
 (Line pt1 pt2)
 (Line pt3 pt4)
 )
  
(defun LWPoly (p1 p2 p3 p4)
 (entmakex (list
      (cons 0 "LWPOLYLINE")
      (cons 100 "AcDbEntity")
      (cons 100 "AcDbPolyline")
      (cons 90 4)
      (cons 70 1)
      (cons 10 p1)
      (cons 10 p2)
      (cons 10 p3)
      (cons 10 p4)
      )))
 
(defun Line (p1 p2)
 (entmakex (list (cons 0 "LINE")
                 (cons 10 p1)
                 (cons 11 p2))))

(defun c:rec3 (/ pt1 pt2 pt3 pt4)
 (setq pt1 (getpoint "\n click first corner"))
 (setq ortmd (getvar "orthomode"))
 (setvar "orthomode" 0)
 (setq pt2 (getpoint pt1 "\n click second corner"))
 (setvar "orthomode" ortmd)
 (setq pt3 (list (car pt2) (cadr pt1)))
 (setq pt4 (list (car pt1) (cadr pt2)))
 (setq lst (list pt1 pt3 pt2 pt4 pt1 pt2 pt4 pt3))
 (LWPoly lst)
 )
(defun LWPoly (lst)
 (entmakex (append (list (cons 0 "LWPOLYLINE")
                         (cons 100 "AcDbEntity")
                         (cons 100 "AcDbPolyline")
                         (cons 90 (length lst))
                  (cons 70 1) ; closed LWPoly
                         )
                   (mapcar (function (lambda (p) (cons 10 p))) lst))))