关于多段线上任意两点查线长的问题

zcc0

高手，能不能帮我做个多段线上任意两点查询线长的vba啊研究了很久也不知道如何下手，实在不行就是批量查询多段线长的vba也行，不要总的距离要分开的，谢谢啦

wwswwswws

参考一下下面的代码：      
For i = 0 To lCount - 1
                   sName = sDT.Item(i).ObjectName
'                   Debug.Print sName
             If sName = "AcDbPolyline" Then
               Set dPlyLine = sDT.Item(i)
               
               
               Coord = dPlyLine.Coordinate(0)                             '第一个点
               dPoint(0) = Coord(0)
               dPoint(1) = Coord(1)
'               dPointFirst(0) = Coord(0)
'               dPointFirst(1) = Coord(1)
'                   Debug.Print "0" & ":Coord(0)=" & Coord(0)
'                   Debug.Print "0" & ":Coord(1)=" & Coord(1)
               lPtNum = (UBound(dPlyLine.Coordinates) - 1) / 2
               '-------------------------------------------------------------
               For i = 1 To lPtNum
                   Coord = dPlyLine.Coordinate(i)
                   dLen = dLen + Sqr((Coord(0) - dPoint(0)) ^ 2 + (Coord(1) - dPoint(1)) ^ 2)
                   dPoint(0) = Coord(0)
                   dPoint(1) = Coord(1)
'                   Debug.Print i & ":Coord(0)=" & Coord(0)
'                   Debug.Print i & ":Coord(1)=" & Coord(1)
               Next
               If dPlyLine.Closed Then
                  dLen = dLen + Sqr((dPointFirst(0) - dPoint(0)) ^ 2 + (dPointFirst(1) - dPoint(1)) ^ 2)
               End If
           end if
     Next
如果是直接求多段线的长度，可以用下面的方法更简单，你要求多段线上任易两点的长度就用上面的方法改一下就可以了。
'               Debug.Print "dPlyLine.Length= " & dPlyLine.Length
               dLen = dPlyLine.Length