polyline轉polygon不同情況buffer的實現方法

 做一個運輸署的project時需要實現一個線轉面（polyline to polygon）的函數，有點像buffer，有個buffer distance, 但是在頭尾兩邊不能是圓弧，而是直線.（確實夠搞得...）參考了一下網上的資料，將幾種類似的buffer做了一下，效果如下圖。

（左上角為polyline，用它生成其他3種buffer.注意三個polygon紅色框框位置的差別 ）

先說最簡單的，直接利用ITopologicalOperator.Buffer,設定一個buffer distance就
能得到左下角的polygon, 生成的polygon在結點位置都是圓弧.

1. Private Function ConvertPolylineToPolygon(pPolyline As IPolyline, pDist As Double) As IPolygon
   
2. 
   
3. Dim pPolygon As IPolygon
   
4. Set pPolygon = New Polygon
   
5. 
   
6. Dim pTopo As ITopologicalOperator
   
7. Set pTopo = pPolyline
   
8. Set pPolygon = pTopo.Buffer(pDist)
   
9. 
   
10. pPolygon.Densify pPolygon.Length, 360
    
11. 
    
12. Set ConvertPolylineToPolygon = pPolygon
    
13. End Function   

复制代码

如果希望首尾兩點位置上是squre buffer,則可以用下面的函數操作

1. Public Function TrySquareBufferByDifference(pPolyline As IPolyline, bufDist As Double) As IPolygon
   
2.   Dim pResult As IPolygon
   
3.   Dim pTopoIn As ITopologicalOperator
   
4.   Set pTopoIn = pPolyline
   
5.   Set pResult = pTopoIn.Buffer(bufDist)
   
6.   Dim pTopoOut As ITopologicalOperator
   
7.   Set pTopoOut = pResult
   
8. 
   
9. 
   
10.   Dim pNorm1 As ILine, pNorm2 As ILine, pNorm3 As ILine, pNorm4 As ILine
    
11.   Dim pCloser As ILine
    
12.   Dim pDiffSegs As ISegmentCollection
    
13.   Dim pDiffer As IPolygon
    
14.   Dim pDiffTopo As ITopologicalOperator
    
15. 
    
16. 
    
17.   Set pNorm1 = New Line
    
18.   Set pNorm2 = New Line
    
19.   Set pNorm3 = New Line
    
20.   Set pNorm4 = New Line
    
21.   Set pCloser = New Line
    
22.   pPolyline.QueryNormal esriNoExtension, 0, True, bufDist, pNorm1
    
23.   pPolyline.QueryNormal esriNoExtension, 0, True, -bufDist, pNorm2
    
24.   'on the next two lines, you may need to reverse the signs of the "length" arguments
    
25.   pNorm1.QueryNormal esriNoExtension, 1, True, bufDist, pNorm3
    
26.   pNorm2.QueryNormal esriNoExtension, 1, True, -bufDist, pNorm4
    
27.   pCloser.PutCoords pNorm3.ToPoint, pNorm4.ToPoint
    
28. 
    
29. 
    
30.   Set pDiffer = New Polygon
    
31.   Set pDiffSegs = pDiffer
    
32.   Set pDiffTopo = pDiffer
    
33.   Set pDiffer.SpatialReference = pPolyline.SpatialReference
    
34.   pDiffSegs.AddSegment pNorm1
    
35.   pDiffSegs.AddSegment pNorm2
    
36.   pDiffSegs.AddSegment pNorm3
    
37.   pDiffSegs.AddSegment pNorm4
    
38.   pDiffSegs.AddSegment pCloser
    
39.   pDiffTopo.Simplify
    
40. 
    
41. 
    
42.   Dim pTemp As IGeometry
    
43.   Set pTemp = pTopoOut.Difference(pDiffer)
    
44.   Set pTopoOut = pTemp
    
45. 
    
46. 
    
47.   Set pNorm1 = New Line
    
48.   Set pNorm2 = New Line
    
49.   Set pNorm3 = New Line
    
50.   Set pNorm4 = New Line
    
51.   Set pCloser = New Line
    
52.   pPolyline.QueryNormal esriNoExtension, 1, True, bufDist, pNorm1
    
53.   pPolyline.QueryNormal esriNoExtension, 1, True, -bufDist, pNorm2
    
54.   'on the next two lines, you may need to reverse the signs of the "length" arguments
    
55.   pNorm1.QueryNormal esriNoExtension, 1, True, -bufDist, pNorm3
    
56.   pNorm2.QueryNormal esriNoExtension, 1, True, bufDist, pNorm4
    
57.   pCloser.PutCoords pNorm3.ToPoint, pNorm4.ToPoint
    
58. 
    
59.   Set pDiffer = New Polygon
    
60.   Set pDiffSegs = pDiffer
    
61.   Set pDiffTopo = pDiffer
    
62.   Set pDiffer.SpatialReference = pPolyline.SpatialReference
    
63.   pDiffSegs.AddSegment pNorm1
    
64.   pDiffSegs.AddSegment pNorm2
    
65.   pDiffSegs.AddSegment pNorm3
    
66.   pDiffSegs.AddSegment pNorm4
    
67.   pDiffSegs.AddSegment pCloser
    
68.   pDiffTopo.Simplify
    
69. 
    
70.   Set TrySquareBufferByDifference = pTopoOut.Difference(pDiffer)
    
71. End Function

复制代码

如果希望節點位置不出現圓弧，可以用以下的方法

1. Public Function TrySquareBufferByOffset(pPolyline As IPolyline, bufDist As Double) As IPolygon
   
2. 
   
3. 
   
4.     Dim pOffset1 As IConstructCurve, pOffset2 As IConstructCurve
   
5.     Set pOffset1 = New Polyline
   
6.     Set pOffset2 = New Polyline
   
7. 
   
8. 
   
9.     Dim pOffCurve1 As ICurve, pOffCurve2 As ICurve
   
10.     Set pOffCurve1 = pOffset1
    
11.     Set pOffCurve2 = pOffset2
    
12. 
    
13. 
    
14.     pOffset1.ConstructOffset pPolyline, bufDist, esriConstructOffsetSimple 'modify offsethow and bevelratio if desired
    
15.     pOffset2.ConstructOffset pPolyline, -bufDist, esriConstructOffsetSimple
    
16. 
    
17. 
    
18.     Dim pLine1 As ILine, pLine2 As ILine
    
19.     Set pLine1 = New Line
    
20.     Set pLine2 = New Line
    
21.     pLine1.PutCoords pOffCurve1.FromPoint, pOffCurve2.FromPoint
    
22.     pLine2.PutCoords pOffCurve1.ToPoint, pOffCurve2.ToPoint
    
23. 
    
24. 
    
25.     Dim pResult As IPolygon
    
26.     Set pResult = New Polygon
    
27.     Set pResult.SpatialReference = pPolyline.SpatialReference
    
28. 
    
29. 
    
30.     Dim pSegCol As ISegmentCollection
    
31.     Set pSegCol = pResult
    
32.     pSegCol.AddSegment pLine1
    
33.     pSegCol.AddSegment pLine2
    
34.     pSegCol.AddSegmentCollection pOffset1
    
35.     pSegCol.AddSegmentCollection pOffset2
    
36.     pResult.SimplifyPreserveFromTo
    
37. 
    
38. 
    
39.     Set TrySquareBufferByOffset = pResult
    
40. 
    
41. 
    
42. End Function

复制代码

希望對大家有幫助.....