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

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

各位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下，如何实现这样的操作，多谢！！



semisun 发表于 2008-8-18 22:48:00

顶一下
大家发表一下意见呀！

fjfhgdwfn 发表于 2008-8-19 09:17:00

最笨的方法，使用sendcommanD命令使用CAD中的
Divide和用于定距等分的命令Measure

semisun 发表于 2008-8-19 22:33:00

谢谢fjfhgdwfn，
但是用sendcommand命令时，VB如何得到各点的坐标呢？

semisun 发表于 2008-8-20 20:54:00

顶一下

fjfhgdwfn 发表于 2008-8-21 08:10:00


把新生成的点放到一个层上就是了！

semisun 发表于 2008-8-21 14:08:00

谢谢fjfhgdwfn，我再试一下
页: [1]
查看完整版本: [求助]VBA中，如何对曲线进行等分操作