获取二维多段线的坐标

yanasdf789

我想获取一个二维多段线（Acad2dpolyline)的坐标，用的是C#+COM组件方式开发

1. foreach (AcadObject acadObj in mySelectionSet)
   
2.                 {
   
3. 
   
4.                if (acadObj.ObjectName == "AcDbPolyline")
   
5.                     {
   
6.                         AcadLWPolyline polyline = (AcadLWPolyline)acadObj;
   
7.                         double[] polylineCoords = (double[])polyline.Coordinates;
   
8.                         
   
9.                     }
   
10.                     else if (acadObj.ObjectName == "AcDb2dPolyline")
    
11.                     {
    
12.                         //**********怎么获取 二维多段线类型的坐标啊
    
13.                     }
    
14. 
    
15. 
    
16. 
    
17. }

foreach (AcadObject acadObj in mySelectionSet)<br />                 {<br /> <br />                if (acadObj.ObjectName == "AcDbPolyline")<br />                     {<br />                         AcadLWPolyline polyline = (AcadLWPolyline)acadObj;<br />                         double[] polylineCoords = (double[])polyline.Coordinates;<br />                         <br />                     }<br />                     else if (acadObj.ObjectName == "AcDb2dPolyline")<br />                     {<br />                         //**********怎么获取 二维多段线类型的坐标啊<br />                     }<br /> <br /> <br /> <br /> }

wwswwswws

明经通道AutoCad ActiveX 和VBA  中示例：
Sub Example_Coordinate()
    ' This example creates a polyline in model space and
    ' queries and changes the coordinate in the first index position.
        
    Dim plineObj As AcadPolyline
    Dim points(0 To 14) As Double
   
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1: points(2) = 0
    points(3) = 1: points(4) = 2: points(5) = 0
    points(6) = 2: points(7) = 2: points(8) = 0
    points(9) = 3: points(10) = 2: points(11) = 0
    points(12) = 4: points(13) = 4: points(14) = 0
        
    ' Create a lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
    ZoomAll
   
    ' Find the coordinate in the first index position
    Dim coord As Variant
    coord = plineObj.Coordinate(0)
    MsgBox "The coordinate in the first index position of the polyline is: " & coord(0) & ", " _
        & coord(1) & ", " & coord(2)
   
    ' Change the coordinate
    coord(0) = coord(0) + 1
    plineObj.Coordinate(0) = coord
    plineObj.Update
   
    ' Query the new coordinate
    coord = plineObj.Coordinate(0)
    MsgBox "The coordinate in the first index position of the polyline is now: " & coord(0) & ", " _
        & coord(1) & ", " & coord(2)
   
End Sub

wwswwswws

"AcDbPolyline"    点以两个一组存储
"AcDb2dPolyline"   点以三个一组存储