求封闭多义线X和Y方向的程序

sandy2002

请教各位高手,我想要一个能自动计算一个封闭多义线的最小X坐标及Y坐标和最大X坐标及Y坐标的程序,有谁能帮帮我????

myfreemind

什么意思？是计算线上的坐标吗？

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=8747&star=1&skin=0

lzljy

(defun c:pxy( / p_list p_obj obj_ty nof xmin ymin xmax ymax p_ent xy_min xy_max a )
(setq p_list nil obj_ty nil)
(while (/= obj_ty "LWPOLYLINE")
(setq p_obj (car (entsel "\n选择多义线：")))
(setq p_ent (entget p_obj))
(setq obj_ty (cdr (assoc 0 p_ent)))
)
(setq nof (assoc 10 p_ent))
(while (/= nof nil)
(setq p_ent (cdr (member nof p_ent)))
(setq p_list (append p_list (list (cdr nof))))
(setq nof (assoc 10 p_ent))
)
(setq xmin 999999999 ymin 999999999 xmax -9999999 ymax -99999999)
(foreach x p_list
(progn
(setq xmin (min xmin (car x)))
(setq ymin (min ymin (last x)))
(setq xmax (max xmax (car x)))
(setq ymax (max ymax (last x)))
)
)
(setq xy_min (list xmin ymin) xy_max (list xmax ymax))
(setq a (append (list xy_min) (list xy_max)))
;(command "rectang" (car a) (last a))
)

其实在vba中使用object.GetBoundingBox MinPoint, MaxPoint即可。

meflying

你这个函数对于有圆弧的PLINE就不行了，如果没有圆弧，也不用这么复杂了。
LISP中也可以使用GetBoundingBox，实用函数里面就有，你可以看看，这就是VLISP
http://www.mjtd.com/function/list.asp?id=190