请教各位高手vba问题

longcs · 发表于 2005-11-16 17:17:00

本人遇到一个问题：

polyline线为曲线拟合的线，想在拟合的曲线部分用逼近法增加点，形成一条新的线，在满足精度的要求下尽可能与原拟合的多义线重合。

问题是：在VBA中，如何得到曲线段的凸度，用.getbulge方法不行，因为是拟合的多义线。

得不到凸度就不能计算增加的点的坐标

请高手们指教。或有什么更好的办法、思路等。

longcs · 发表于 2005-11-21 11:02:00

大虾们怎么一个个沉默？请帮忙阿？

雪山飞狐_lzh · 发表于 2005-11-21 11:23:00

贴个图说明一下

intelfox · 发表于 2005-11-21 16:22:00

用.Explode炸了多义线，拿一个Variant变量记录得到的所有线段，

再用循环，属性是圆弧就用.GetBulge(I)获得凸度，存到数组里面，最后再删掉炸开

的线段。

小美菜 · 发表于 2005-11-21 22:30:00

建议用曲线方程解出符合精度的点（比如弦高小于5毫米），生成多义线即可。从图形上选到的曲线也容易得到曲线方程

longcs · 发表于 2005-11-23 17:29:00

各位的方法不是很好，我知道arx有个方法可以读取拟合点的坐标，vb中是否也有类似的方法或属性吗？

或者是有更好的其它的方法吗？

请指教

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