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

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

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

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

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

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

<p>顶一下</p><p>大家发表一下意见呀！</p>

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

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

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

<p><strong><font face="Verdana" color="#000000">谢谢<font color="#61b713">fjfhgdwfn，</font></font></strong></p><p><strong><font face="Verdana">但是用sendcommand命令时，VB如何得到各点的坐标呢？</font></strong></p>

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

<p>顶一下</p>

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

semisun发表于2008-8-19 22:33:00static/image/common/back.gif谢谢fjfhgdwfn，但是用sendcommand命令时，VB如何得到各点的坐标呢？

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

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

<p>谢谢<strong><font face="Verdana" color="#61b713">fjfhgdwfn，</font></strong>我再试一下</p>
页: [1]
查看完整版本: [求助]VBA中，如何对曲线进行等分操作