[VBA]vba怎样来实现返回多段线的各顶点

wholin

vba有没有类似lisp中的函数-- vertexs 返回多段线的各顶点

我现在想用vba来实现返回多段线的各顶点，要怎样才能实现？请大家提个思路

wholin

我现在要用 j=DistancePt2Poly(pt, objPolys) 来测试一个点到某多段线的距离，如点选一个点可以很正确的测出来

但是我现在是要从一个oness多段线上通过一个循环来测试上面的顶点到objPolys的最小距离： For i = 0 To (UBound(oness.Coordinates) + 1) / 2 - 1
                     j = DistancePt2Poly(oness.Coordinates, objPolys)
                      MsgBox j
           next i                     
          结果却为0，不知是错在那里？

peicong

retCoord = Ent1.Coordinates

Ent1为你选择的多段线

retcoord存储了所有的顶点坐标

        For Number = LBound(retCoord) To UBound(retCoord) - 2 Step 2
            K = 0
            'MsgBox LBound(retCoord)
            'MsgBox UBound(retCoord)
            Pt1(K) = retCoord(Number)
            Pt1(K + 1) = retCoord(Number + 1)
            Pt1(2) = 0
next