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

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

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

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

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

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

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

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

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

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