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

请教各位高手vba问题

<P>本人遇到一个问题：</P>
<P>polyline线为曲线拟合的线，想在拟合的曲线部分用逼近法增加点，形成一条新的线，在满足精度的要求下尽可能与原拟合的多义线重合。</P>
<P>问题是：在VBA中，如何得到曲线段的凸度，用.getbulge方法不行，因为是拟合的多义线。</P>
<P>得不到凸度就不能计算增加的点的坐标</P>
<P>请高手们指教。或有什么更好的办法、思路等。</P>

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

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

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

贴个图说明一下

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

<P>用.Explode炸了多义线，拿一个Variant变量记录得到的所有线段，</P>
<P>再用循环，属性是圆弧就用.GetBulge(I)获得凸度，存到数组里面，最后再删掉炸开</P>
<P>的线段。</P>

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

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

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

<P>各位的方法不是很好，我知道arx有个方法可以读取拟合点的坐标，vb中是否也有类似的方法或属性吗？</P>
<P>&nbsp;</P>
<P>或者是有更好的其它的方法吗？</P>
<P>请指教</P>
页: [1]
查看完整版本: 请教各位高手vba问题