社区 › VB › 如何删除一条被打断的直线？

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

雪山飞狐_lzh 发表于 2005-4-7 22:58:00

这几天怎么看到的都是调用SendCommand的，晕
把交点排序，再用AddLine顺次连接

yj821005 发表于 2005-4-8 08:43:00

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

jobschan 发表于 2005-4-8 08:57:00

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

雪山飞狐_lzh 发表于 2005-4-8 11:09:00

这里有个例子

jobschan 发表于 2005-4-8 12:39:00

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

查看完整版本: 如何删除一条被打断的直线？