如何求pl线几何中心？[求助]

matichen · 发表于 2002-9-14 19:33:00

我用pl线所有顶点坐标相加求x.y平均值的方法求得了中心点，但是在一些比较不规则的形状中，中心点偏移得很多（至少看上去是这样）。哪位帮我看看怎样解决这个问题，我是想在中心点写文字的。

matichen · 发表于 2002-9-14 23:55:00

这个
....

秋枫 · 发表于 2002-9-15 01:49:00

http://www.xdcad.com/forum/showthread.php?s=&threadid=13754

matichen · 发表于 2002-9-15 18:40:00

看来我是的要质心，但是massprop之后，那个质心坐标没办法提出来啊。（看得到，用不了。）有没有什么办法。

陈伯雄 · 发表于 2002-9-16 08:18:00

(Command "massprop" regs "" "y" "c:\\00")
(SetQ cpfn (Open "c:\\00.mpr" "r"))
(Repeat 7 (Read-Line cpfn))
(SetQ cpfx (Last (Read (StrCat "(" (Read-Line cpfn) ")"))) ;提取质量中心X位置
cpfy (Last (Read (StrCat "(" (Read-Line cpfn) ")"))) ;提取质量中心Y位置
)
(Close cpfn)

秋枫 · 发表于 2002-9-16 08:57:00

使用标准的vlisp, centroid是重心,
这种返回值是一个实数数值变体
(vla-get-centroid (vlax-ename->vla-object (car (entsel))))
为了转成list, 用下面的代码：
(vlax-safearray->list
(vlax-variant-value
(vla-get-centroid (vlax-ename->vla-object (car (entsel))))
)
)
这样的代码，显然比较麻烦一点，
在本站的vlisp函数库中，定义了一个通用的转化成lisp-value的函数，可以简化一点:
(lisp-value (vla-get-centroid (vlax-ename->vla-object (car (entsel)))))