社区 › VB › 求助,如何把提取的闭合pline的顶点坐标转化为多边形的三维坐标

bjbjbjbj 发表于 2006-4-21 08:51:00

求助,如何把提取的闭合pline的顶点坐标转化为多边形的三维坐标

帮忙啊，我急用啊

雪山飞狐_lzh 发表于 2006-4-21 20:00:00

Function Point2dTo3d(pnts As Variant) As Variant
    Dim n As Integer
    Dim dots() As Double
    n = (UBound(pnts) + 1) / 2
    If n > 0 Then
      ReDim dots(n * 3 - 1) As Double
      For i = 0 To n - 1
            dots(i * 3) = pnts(i * 2)
            dots(i * 3 + 1) = pnts(i * 2 + 1)
            dots(i * 3 + 2) = 0
      Next i
    End If
    Point2dTo3d = dots
End Function
Sub tt()
Dim pnts(3) As Double
For i = 0 To 3
pnts(i) = i
Next i
dots = Point2dTo3d(pnts)
For i = 0 To UBound(dots)
Debug.Print dots(i)
Next i
End Sub

bjbjbjbj 发表于 2006-4-21 21:39:00

谢谢了.很好用啊

查看完整版本: 求助,如何把提取的闭合pline的顶点坐标转化为多边形的三维坐标