[求助]VBA中，如何对曲线进行等分操作

semisun · 发表于 2008-8-15 16:56:00

各位VBA高手，
下面有用于对设计对象进行定数等分的命令Divide和用于定距等分的命令Measure，请问在VBA下如何实现该功能？
请高手指点！

semisun · 发表于 2008-8-16 18:29:00

问题重新描述如下：
如下图所示，图1有两条曲线L1和L2，现在分析二者之间的距离，把L1和L2分别10等分，连接各等分点，将L1展平作为X轴，各等分点之间的线段距离为高，重新绘制如图2所示的图形。L1和L2为多段线，如果不采用定点等分（divide）或定距等分(Measure),那么势必要计算各等分点的坐标，但这十分繁琐，希望各高手能够指点一下在VB或VBA下，如何实现这样的操作，多谢！！

zlhxljxe4hj.JPG