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

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

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

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的方法就不太好控制了。

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

为什么不能下载？

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

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

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

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