丹霞岭 发表于 2013-7-28 11:49:08

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

(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"p310 )                        '以新的二维点为圆心画半径为10的圆
）
上面的p3 '((atof x3) (atof y3))有问题吗，应该如何修改？

chg 发表于 2013-7-28 11:55:23

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

ll_j 发表于 2013-7-28 12:32:53

p3 (list x3 y3)
页: [1]
查看完整版本: 如何选择数据后组成一个新的二维点