[编程申请]：怎样在屏幕任取点画两个矩形后，并取得该两矩形的顶点坐标值。

stillsingle

求助各位高手：
怎样在屏幕任取点画两个矩形后，并取得该两矩形的顶点坐标值。要求用LISP编程，谢了。

zxq0220

[php]
;选取两矩形，分别取得两矩形的顶点坐标 晓东 zxq0220 2010.1.11
(defun c:tt ()
(if (and (setq s1 (entsel "\n选择第一个矩形 :"))
          (setq s2 (entsel "\n选择第二个矩形 :"))
          (= (cdr(assoc 0 (entget(car s1)))) (cdr(assoc 0 (entget(car s2)))) "LWPOLYLINE")
          (= (cdr(assoc 70 (entget(car s1)))) (cdr(assoc 70 (entget(car s2)))) 1)
          (= (cdr(assoc 90 (entget(car s1)))) (cdr(assoc 90 (entget(car s2)))) 4)
      ) (progn
  (setq ent1 (entget(car s1)) ent2 (entget(car s2)))
  (setq plst1 (list) plst2 (list))
  (foreach n ent1 (if (= 10 (car n)) (setq plst1 (cons (cdr n) plst1))))
  (foreach n ent2 (if (= 10 (car n)) (setq plst2 (cons (cdr n) plst2))))
  (reverse plst1)
  (reverse plst2)
))
(princ plst1)
(princ plst2)
(princ)
)
[/php]