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

jobschan · 发表于 2005-4-6 17:37:00

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

雪山飞狐_lzh · 发表于 2005-4-6 21:22:00

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

jobschan · 发表于 2005-4-7 09:34:00

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

雪山飞狐_lzh · 发表于 2005-4-7 11:24:00

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

jobschan · 发表于 2005-4-7 19:41:00

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
此法可以打断和一条直线相交的直线，但是好像断得没啥规律，交点是断了，断的不一定都是直线上的