如何删除一条被打断的直线？

jobschan

有一条直线与很多直线相交，在交点处均被打断，不知有没有方法删除这条被打断的直线，一段一段的删好像太费力了，恳请高手指点！先谢过了

雪山飞狐_lzh

是程序打断的还是已经打断的？

jobschan

是程序打断的，程序搜索到轮廓后，把与边界相交的线条都打断了。因为我两个图形迭加，在交点处需要打断，然后我删除被覆盖的线条。现在有点迷茫，不晓得咋删，恳请高手指点，谢谢！

雪山飞狐_lzh

你的程序呢？既然是序打断的怎么会迷茫呢？

jobschan

Public Sub BreakHide() Dim Pnt1 As Variant
Dim det1 As String，det2 As String
Dim EntObj1 As AcadEntity, EntObj2 As AcadEntity
AcadDoc.Utility.GetEntity EntObj1, Pnt1, "选择图元："

Dim SS As AcadSelectionSet
Set SS = AcadDoc.ActiveSelectionSet
SS.SelectOnScreen '获得相交实体交点，即打断点
Dim lspPnt As String
Dim IntPnt As Variant
Dim IntPnt1(0 To 2) As Double
Dim n As Integer
For Each EntObj2 In SS
On Error Resume Next
IntPnt = EntObj2.IntersectWith(EntObj1, acExtendNone) If IsArray(IntPnt) Then
For n = 0 To UBound(IntPnt) Step 3
IntPnt1(0) = IntPnt(n + 0)
IntPnt1(1) = IntPnt(n + 1)
IntPnt1(2) = IntPnt(n + 2)
lspPnt = axPoint2lspPoint(IntPnt1)
det2 = lspPnt
AcadDoc.SendCommand "_break" & vbCr & det2 & vbCr & lspPnt & vbCr
Next
End If
Next End Sub 此法可以打断和一条直线相交的直线，但是好像断得没啥规律，交点是断了，断的不一定都是直线上的

雪山飞狐_lzh

这几天怎么看到的都是调用SendCommand的，晕


把交点排序，再用AddLine顺次连接

yj821005

请问这个axPoint2lspPoint(IntPnt1)是什么意思？？ det2 = lspPnt
AcadDoc.SendCommand "_break" & vbCr & det2 & vbCr & lspPnt & vbCr
那这里面不是一样的吗？？？ 我是来学习的，呵呵，请教

jobschan

那是因为直接用lspPnt作为打断点，系统是打不断的，因为Sendcommand有很多问题，不推荐使用，我也是实在没得办法啊！！


谢过飞狐版主！

雪山飞狐_lzh

这里有个例子 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20994

jobschan

这个方法不错，就是运算工作量多些，其实就是重新画了一遍了，呵呵


谢谢！