两个关于多义线的问题

miaoph

先谢谢斑竹，其实我前面问的问题不太明确，下面我具体说明如下：
1、对一条复杂的多义线，比如它含有多条直线段、还有圆弧等，如何把这条复杂的多义线分解成多个直线段和圆弧。我曾使用explode命令，虽然能够分解成多个直线段和圆弧，但是它们的线宽却变为了0。
2、我想开发这样一段断开线段的程序：
多个多义线相交时，在交点附近断开其中一根多义线，使它们不再相交。我尝试着做了一下，觉得实现起来不太容易。因为一根多义线若同时和多个多义线相交时只能断开其中的一个。这样开发的程序很不完善。斑竹能否给个思路。

mccad

1.线宽变为0是因为它从多段线变成了直线和圆弧了，如果你需要得到的是多段线段，则需要自己根据多段线的每一段的顶点及凸度来生成每一个新的多段线段。
2.多段线断开后会变成两根多段线，其中一要会保存原来的图元号(或句柄)，而另外一根是新生成的。所以你断开时需要按顺序断开。也就是从终点向起点顺序断开，这样才能保证断开所有的交点，这里面就存在着断开点排序的问题。

miaoph

谢谢明总，
请不要烦我继续问你啊，
1、能否有简单的办法使一个复杂的多意义线变成多个线段和圆弧，而其线宽保持不变
2、表示多段线的图元号(或句柄)是什么？

mccad

1.简单的方法是先取得多段线的宽度保存在一个变量，然后Explode分解该多段线，再用SendCommand方法来调用PEDIT命令中的M选项，将所有分解后的对象传给它，再来个Y选项自动将这些对象变成多段线，再每个设置宽度。复杂一点就是用程序来生成。
2.图元号为ObjectID属性，句柄为Handle属性。

miaoph

谢谢明总，你说的方法我感觉有点复杂，我再仔细考虑以下是否有其他的实现方法。

mccad

不知你还要怎么简单，这里给你提供个程序吧，这还不简单，还有什么更简单的？
注意新生成的对象在NewEnt数组中。

2. Sub ExplorePline()
   
3.     Dim Ent As AcadLWPolyline
   
4.     Dim Pnt As Variant
   
5.     On Error Resume Next
   
6.     Do
   
7.         ThisDrawing.Utility.GetEntity Ent, Pnt, "选择要分解的多段线："
   
8.         If Err <> 0 Then
   
9.             Err.Clear
   
10.         Else
    
11.             Exit Do
    
12.         End If
    
13.     Loop
    
14.     Dim PointCount As Integer
    
15.     PointCount = (UBound(Ent.Coordinates) + 1) / 2
    
16.     Dim NewEnt() As AcadLWPolyline
    
17.     ReDim NewEnt(PointCount - 1)
    
18.     Dim i As Integer
    
19.     Dim Pnts(3) As Double
    
20.     Dim Bulge As Double
    
21.     Dim SWidth As Double
    
22.     Dim EWidth As Double
    
23.     For i = 1 To PointCount - 1
    
24.         Pnts(0) = Ent.Coordinate(i - 1)(0)
    
25.         Pnts(1) = Ent.Coordinate(i - 1)(1)
    
26.         Pnts(2) = Ent.Coordinate(i)(0)
    
27.         Pnts(3) = Ent.Coordinate(i)(1)
    
28.         Bulge = Ent.GetBulge(i - 1)
    
29.         Ent.GetWidth i - 1, SWidth, EWidth
    
30.         Set NewEnt(i - 1) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pnts)
    
31.         NewEnt(i - 1).SetBulge 0, Bulge
    
32.         NewEnt(i - 1).SetWidth 0, SWidth, EWidth
    
33.         NewEnt(i - 1).Color = Ent.Color
    
34.         NewEnt(i - 1).Layer = Ent.Layer
    
35.         NewEnt(i - 1).Linetype = Ent.Linetype
    
36.     Next
    
37.     Update
    
38. End Sub
    

Sub ExplorePline()<br />     Dim Ent As AcadLWPolyline<br />     Dim Pnt As Variant<br />     On Error Resume Next<br />     Do<br />         ThisDrawing.Utility.GetEntity Ent, Pnt, "选择要分解的多段线："<br />         If Err <> 0 Then<br />             Err.Clear<br />         Else<br />             Exit Do<br />         End If<br />     Loop<br />     Dim PointCount As Integer<br />     PointCount = (UBound(Ent.Coordinates) + 1) / 2<br />     Dim NewEnt() As AcadLWPolyline<br />     ReDim NewEnt(PointCount - 1)<br />     Dim i As Integer<br />     Dim Pnts(3) As Double<br />     Dim Bulge As Double<br />     Dim SWidth As Double<br />     Dim EWidth As Double<br />     For i = 1 To PointCount - 1<br />         Pnts(0) = Ent.Coordinate(i - 1)(0)<br />         Pnts(1) = Ent.Coordinate(i - 1)(1)<br />         Pnts(2) = Ent.Coordinate(i)(0)<br />         Pnts(3) = Ent.Coordinate(i)(1)<br />         Bulge = Ent.GetBulge(i - 1)<br />         Ent.GetWidth i - 1, SWidth, EWidth<br />         Set NewEnt(i - 1) = ThisDrawing.ModelSpace.AddLightWeightPolyline(Pnts)<br />         NewEnt(i - 1).SetBulge 0, Bulge<br />         NewEnt(i - 1).SetWidth 0, SWidth, EWidth<br />         NewEnt(i - 1).Color = Ent.Color<br />         NewEnt(i - 1).Layer = Ent.Layer<br />         NewEnt(i - 1).Linetype = Ent.Linetype<br />     Next<br />     Update<br /> End Sub<br />

还有一种方法可能是让你会觉得简单，就是用break命令在每个顶点处断开。自己写程序吧。

miaoph

谢谢明总，你的思维太广泛了，我一定向你学习