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

本帖最后由 作者 于 2005-4-7 21:37:05 编辑 <br /><br /> Public Sub BreakHide()



                       Dim Pnt1 As Variant<BR>                       Dim det1 As String，det2 As String<BR>                       Dim EntObj1 As AcadEntity, EntObj2 As AcadEntity<BR>                       AcadDoc.Utility.GetEntity EntObj1, Pnt1, "选择图元："<BR>                       <BR>                       Dim SS As AcadSelectionSet<BR>                       Set SS = AcadDoc.ActiveSelectionSet<BR>                       SS.SelectOnScreen


                       '获得相交实体交点，即打断点<BR>                       Dim lspPnt As String<BR>                       Dim IntPnt As Variant<BR>                       Dim IntPnt1(0 To 2) As Double<BR>                       Dim n As Integer<BR>                       For Each EntObj2 In SS<BR>                                                       On Error Resume Next<BR>                                                       IntPnt = EntObj2.IntersectWith(EntObj1, acExtendNone)


                                                       If IsArray(IntPnt) Then<BR>                                                                                       For n = 0 To UBound(IntPnt) Step 3<BR>                                                                                                                       IntPnt1(0) = IntPnt(n + 0)<BR>                                                                                                                       IntPnt1(1) = IntPnt(n + 1)<BR>                                                                                                                       IntPnt1(2) = IntPnt(n + 2)<BR>                                                                                                                       lspPnt = axPoint2lspPoint(IntPnt1)<BR>                                                                                                                       det2 = lspPnt<BR>                                                                                                                       AcadDoc.SendCommand "_break" &amp; vbCr &amp; det2 &amp; vbCr &amp; lspPnt &amp; vbCr<BR>                                                                                       Next<BR>                                                       End If<BR>                       Next


End Sub


此法可以打断和一条直线相交的直线，但是好像断得没啥规律，交点是断了，断的不一定都是直线上的

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

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


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

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

请问这个axPoint2lspPoint(IntPnt1)是什么意思？？


det2 = lspPnt<BR>AcadDoc.SendCommand "_break" &amp; vbCr &amp; det2 &amp; vbCr &amp; lspPnt &amp; vbCr<BR>那这里面不是一样的吗？？？


我是来学习的，呵呵，请教

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

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


谢过飞狐版主！

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

这里有个例子


<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20994" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=20994</A>

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

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


谢谢！
页: [1] 2
查看完整版本: 如何删除一条被打断的直线？