如何选择数据后组成一个新的二维点

丹霞岭

(defun c:ct()
  (setq p1 (getpoint "\n选择第一点:"))
  (setq p2 (getpoint "\n选择第二点:"))
  (setq x1(car p1)
        y1(car (cdr p1))
        x2(car p2)
        y2(car (cdr p2))
        x3(min x1 x2)                                          ‘取两个点中最小的X值
        y3(max y1 y2)                                         ‘取两个点中最大的Y值
        p3 '((atof x3) (atof y3))                            ‘组成新的二维点
      )
  (command  "circle"  p3  10 )                          '以新的二维点为圆心画半径为10的圆
）
上面的p3 '((atof x3) (atof y3))  有问题吗，应该如何修改？

chg

不需要用atof这个函数，直接p3 '(x3  y3)即可  

ll_j

p3 (list x3 y3)