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

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

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

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

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

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

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

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

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

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

选中要连接的多段线

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:12

为什么不能下载？

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

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

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

不能用vba实现？

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