[讨论]多段线的凸度问题

兰州人

使用下面程序，用getBugle就是少获得两个凸度数据。

2. Sub pl()
3.   Dim pll As AcadLWPolyline, ent As AcadEntity
4.   Dim bulgeCollection As New Collection
5.   Dim aa() As Double
6.   Debug.Print
7.   Set pll = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
8.   
9.   'Debug.Print ent.ObjectName
10.   Debug.Print UBound(pll.Coordinates)
11.   ReDim aa(0 To (UBound(pll.Coordinates) + 1) / 3) As Double
12.   For i = 0 To (UBound(pll.Coordinates) + 1) / 3 + 0
13.     Debug.Print i, pll.GetBulge(i)
14.     aa(i) = pll.GetBulge(i)
15.   Next i
16.   Dim Coord As Variant
17.   Coord = pll.Coordinates
18.   Debug.Print "--------------------"
19.   For ii = 0 To bulgeCollection.Count - 1
20.     Debug.Print bulgeCollection.Item(ii + 1)
21.   Next ii
22.   Set pll = ThisDrawing.ModelSpace.AddLightWeightPolyline(Coord)
23.   pll.Closed = True
24.   
25.   pll.color = acMagenta
26.   For ii = 0 To (UBound(pll.Coordinates) + 1) / 3 + 0
27.     'pll.SetBulge ii, bulgeCollection.Item(ii)
28.     pll.SetBulge ii, aa(ii)
29.   Next ii
30.    
31.    
32. End Sub

Sub pl()   Dim pll As AcadLWPolyline, ent As AcadEntity   Dim bulgeCollection As New Collection   Dim aa() As Double   Debug.Print   Set pll = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)      'Debug.Print ent.ObjectName   Debug.Print UBound(pll.Coordinates)   ReDim aa(0 To (UBound(pll.Coordinates) + 1) / 3) As Double   For i = 0 To (UBound(pll.Coordinates) + 1) / 3 + 0     Debug.Print i, pll.GetBulge(i)     aa(i) = pll.GetBulge(i)   Next i   Dim Coord As Variant   Coord = pll.Coordinates   Debug.Print "--------------------"   For ii = 0 To bulgeCollection.Count - 1     Debug.Print bulgeCollection.Item(ii + 1)   Next ii   Set pll = ThisDrawing.ModelSpace.AddLightWeightPolyline(Coord)   pll.Closed = True      pll.color = acMagenta   For ii = 0 To (UBound(pll.Coordinates) + 1) / 3 + 0     'pll.SetBulge ii, bulgeCollection.Item(ii)     pll.SetBulge ii, aa(ii)   Next ii         End Sub

fjfhgdwfn

多段线闭合的问题。看看closed属性的帮助。

兰州人

fjfhgdwfn发表于2008-4-1 13:14:00多段线闭合的问题。看看closed属性的帮助。

closed = false 就少了两个凸度。明白了。