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

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

各位VBA高手，

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

请高手指点！

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

本帖最后由作者于 2008-8-16 18:37:54 编辑

问题重新描述如下：

如下图所示，图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-19 22:33:00谢谢fjfhgdwfn，但是用sendcommand命令时，VB如何得到各点的坐标呢？

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

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

谢谢fjfhgdwfn，我再试一下

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

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

本帖子中包含更多资源