CAD学习开发 发表于 2010-4-12 07:15:00

发一个vb写的多义线连接程序

本帖最后由 作者 于 2010-4-13 18:21:33 编辑

本程序功能是将有相同端点坐标的多条多义线（不包括圆弧）连为一根。请高手赐教有没有需要改进的部分！

fjfhgdwfn 发表于 2010-4-13 12:05:00

<p>调用PEDIT的方法应很方便。可以实现误差连接。</p>

CAD学习开发 发表于 2010-4-13 20:50:00

本程序是针对需要解决图内大量要连接的多义线而编写的，数据量很大时如果用二楼的方法用pedit的方法得累个半死。

fjfhgdwfn 发表于 2010-4-14 11:58:00

CAD学习开发发表于2010-4-13 20:50:00static/image/common/back.gif本程序是针对需要解决图内大量要连接的多义线而编写的，数据量很大时如果用二楼的方法用pedit的方法得累个半死。

<p>选中要连接的多段线</p><p>ThisDrawing.SendCommand "_pedit" &amp; vbCr &amp; "m" &amp; vbCr &amp; "p" &amp; vbCr &amp; vbCr &amp; "Y" &amp; vbCr &amp; "J" &amp; vbCr &amp; "0.000" &amp; vbCr &amp; vbCr</p><p>一下就OK了</p><p></p>

CAD学习开发 发表于 2010-4-14 19:46:00

<p><strong><font face="Verdana" color="#61b713">fjfhgdwfn的方法不错啊，试了一下，看来我把问题想的太复杂了。十分感谢fjfhgdwfn。</font></strong></p><p><strong><font face="Verdana" color="#61b713">不过sendcomman的方法对于控制连接的线有难度。</font></strong></p><p><strong><font face="Verdana" color="#61b713">我这个程序是用在地形图数据消除伪节点的，如果相接两条线的编码不同就会错误的连接成一条线。</font></strong></p><p><strong><font face="Verdana" color="#61b713">用我的笨办法可以比较好的控制这一点，如果用sendcommand的方法就不太好控制了。</font></strong></p><p><strong><font face="Verdana" color="#61b713"></font></strong></p>

shaoqing5366 发表于 2010-12-15 15:39:12

为什么不能下载？

CAD学习开发 发表于 2010-12-15 22:00:58

下载没有问题，！再试试看，如果还有问题，留个邮箱我发给你！

bjjob1 发表于 2013-3-19 14:24:30

不能用vba实现？
页: [1]
查看完整版本: 发一个vb写的多义线连接程序