帮忙看看

zzzsss

求高手编程：选取矩形左右上下四个点后将矩形移动到图中心，中间是0,0

caoyin

(defun c:tt (/ e d p1 p2)
(if (setq e (entsel "\n选择矩形: "))
  (progn
    (setq e  (car e)
          d  (entget e)
          p1 (assoc 10 d)
          p2 (nth (+ (vl-position p1 d) 8) d)
    )
    (command "_.move"
             e
             ""
             "_non"
             (mapcar '(lambda (x y) (/ (+ x y) 2.))
                     (cdr p1)
                     (cdr p2)
             )
             "_non"
             '(0 0)
    )
  )
)
(princ)
)

zzzsss

不好意思，表达得不是很清楚，我是想选四个点（左右上下）后取得中间点再将整个图形移动到0,0

caoyin

中间点不好求吗？上面的

(mapcar '(lambda (x y) (/ (+ x y) 2.))

不是已经求出?

ZZXXQQ

zzzsss发表于2009-2-4 16:02:00不好意思，表达得不是很清楚，我是想选四个点（左右上下）后取得中间点再将整个图形移动到0,0

为何要选四点？选矩形的对角线两点不就可以了。