请教高手!!!如何将距离十分近的多段线连接起来

gz518518

请高手帮忙出个办法解决，谢谢了！！

英雄无敌

pedit就可以的

gz518518

这位朋友是什么意思啊?   我现在用的算法是2个线段分别用首尾首首来找运行的速度十分慢,你有什么比较好的方法么?

英雄无敌

如果是直线或多线段的话，使用pedit这个命令就可以将它们连起来，如果自己编程的话，会很难的

你看一pedit这个命令的说明应该就能明白。

fjfhgdwfn

  Dim mode As Integer
  mode = acSelectionSetAll
  line_line.Select mode, , , FilterType, FilterData
  line_line.Update

 ThisDrawing.SendCommand "_pedit" & vbCr & "m" & vbCr & "p" & vbCr & vbCr & "Y" & vbCr & "J" & vbCr & "0.000" & vbCr & vbCr

雪山飞狐_lzh

按组码10做过滤器

mycad

雪山飞狐版主在说的明白一点；怎样使用组码10？哪里有关于过滤组码的说明呀，帮助中的文件看不等。谢谢

      Dim FilterType(0) As Integer
      Dim FilterData(0) As String

FilterType(0)=10

FilterData(0)=？？？

ljttjl

线串连程序

使用方法：在命令行用appload成功加载cl1.vlx程序后，在命令行输入 cl  回车按提示操作即可。