帮忙看看
 

帮忙看看
www.dimcax.com
帮忙看看
求高手编程：选取矩形左右上下四个点后将矩形移动到图中心，中间是0,0
d
(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)
)
d
不好意思，表达得不是很清楚，我是想选四个点（左右上下）后取得中间点再将整个图形移动到0,0
d
中间点不好求吗？上面的
(mapcar '(lambda (x y) (/ (+ x y) 2.))
不是已经求出?
d