请教：求一个闭合区域的几何中心？

lichh_2003 · 发表于 2006-10-25 11:07

请教：求一个闭合区域的几何中心？

用pl画的闭合

rongyifei · 发表于 2006-10-26 00:02

(defun c:test ()
(setq pl_ename (car (entsel "选取一条闭合的多义线:"))
ss (ssadd)
)
(ssadd pl_ename ss)
(command "region" ss "")
(setq regobj (vlax-ename->vla-object (entlast))
cen_pt (vlax-safearray->list
(vlax-variant-value (vla-get-Centroid regobj))
)
)
(command "circle" cen_pt 1)
)

superxzg · 发表于 2006-10-26 19:57

太好了，我也正需要，不过我如果是四条直线绘成的正方形或长方形区域，如何知道它是否闭合，如果不闭合，怎样才能让他闭合？

rongyifei · 发表于 2006-10-26 22:13

可在上面代码中加上一句:

(defun c:test ()
(setq pl_ename (car (entsel "选取一条闭合的多义线:"))
ss (ssadd)
)
(if (eq (vla-get-closed (vlax-ename->vla-object pl_ename)) :vlax-false)
    (vla-put-closed (vlax-ename->vla-object pl_ename) t)
)
(ssadd pl_ename ss)
(command "region" ss "")
(setq regobj (vlax-ename->vla-object (entlast))
cen_pt (vlax-safearray->list
   (vlax-variant-value (vla-get-Centroid regobj))
        )
)
(command "circle" cen_pt 1)
)

nameld001 · 发表于 2006-10-29 15:16

好像不够完好不，应该采用vla-getboundingbox 才更好，上面的对于超过四边形的闭合图形就不行了

rongyifei · 发表于 2006-10-29 19:47

vla-getboundarybox函数得到的是一些图元的最小包围外框的角点,我觉得与几何中心没多大关系.

rongyifei · 发表于 2006-10-29 19:52

另外,上面程序不局限于四边形,它同样适用于超过四边形的多边形!

不过运行之前须关掉捉点功能!

nameld001 · 发表于 2006-10-29 20:14

也许大家的要求不同，我说的是用这个函数求出最在最小的点，根据这两个再求中这个对于什么对像都可以，可能你们所说的几何中心不是这个意思吧,哈哈

superxzg · 发表于 2006-10-30 10:50

再问 rongyifei，如果不是一个闭合区域，而是多个怎么办啊？

tchen · 发表于 2006-10-30 19:23

用(vlax-variant-value (vla-get-Centroid regobj)) 这个方法求出来的只是质心,有可能这个点跑到闭合多边形外面去 ,

我的意思是求型心,也就是形状的中心,它一定是在多边形的里面

账号		自动登录	找回密码
密码			注册