[编程申请]：如何将多条线段的长度自动计算求和？

taoyuan

工作中 遇到要测量一条条线段长度，然后手工加起来
我是用list命令算出线段长度，有没有一个程序可以测量线段长度，最后求和？

lsjjm

论坛上有许多这样的帖子，请参考：
http://www.xdcad.net/forum/showt ... hlight=%D7%DC%B3%A4

心竹

XD工具箱中就有这样的命令.

提示：演示中漏掉了计算曲线两点间长度功能。 eachy

演示重新做好，补上了漏掉的功能[/COLOR]

duely

我的这个lisp不错，完全可以达到你的要求！

心竹

to eachy  收到，我会重新做一遍传上来的。

taoyuan

最初由 duely 发布
[B]我的这个lisp不错，完全可以达到你的要求！ [/B]

真的不错，很好用
谢谢！

ShiwJeff

请教，多义线的长度属性是怎么得到的，还有曲线。
我不会lisp，希望用vb运用，得到多义线的长度。

eachy

最初由 ShiwJeff 发布
[B]请教，多义线的长度属性是怎么得到的，还有曲线。
我不会lisp，希望用vb运用，得到多义线的长度。 [/B]

转贴一个Pline的，支持任意曲线的要用到vlax函数，VBA论坛有过讨论，引入个cls类文件
Curve
Curve.cls is a wrapper module that grants objected-oriented access to VisualLISP's VLAX-CURVE functions. Using Curve, you can determine such things as the length of a spline, the segment of a polyline selected by the user or the coordinates of a point a given distance along the perimeter of an arc.

Use of this module also requires the use of the VLAX class module. For more information on VLAX-CURVE functions and their operation, look up the appropriate function in the VisualLISP online help.

2. [php]
   
3. Public Function GetPLineLength(PLine As AcadObject) As Double
   
4. 
   
5.     Dim intCrdCnt As Integer, varCoords As Variant, dblLength As Double
   
6.     Dim dblChord As Double, dblInclAng As Double, dblAng As Double, dblRad As Double
   
7.     Dim Pt1 As Variant, Pt2 As Variant, tmp, Points, i As Long
   
8. 
   
9.     varCoords = PLine.Coordinates
   
10.     On Error Resume Next
    
11.     If PLine.Type <> 0 Then
    
12.         If Err.Number = 0 Then
    
13.             MsgBox "Cannot get length from this type of polyline.", vbExclamation, "GetPLineLength"
    
14.             Exit Function
    
15.         End If
    
16.     End If
    
17.     On Error GoTo 0
    
18.    
    
19.     If PLine.Closed Then
    
20.         tmp = PLine.Coordinate(0)
    
21.         For i = LBound(tmp) To UBound(tmp)
    
22.             ReDim Preserve varCoords(LBound(varCoords) To UBound(varCoords) + 1)
    
23.             varCoords(UBound(varCoords)) = tmp(i)
    
24.         Next
    
25.     End If
    
26.    
    
27.     Points = SplitPoints(varCoords, UBound(PLine.Coordinate(0)))
    
28.    
    
29.     For intCrdCnt = LBound(Points) To UBound(Points) - 1
    
30.         If PLine.ObjectName = "AcDb3dPolyline" Or PLine.GetBulge = 0 Then
    
31.           dblLength = dblLength + Distance(Points(intCrdCnt), Points(intCrdCnt + 1))
    
32.         Else
    
33.             dblChord = Distance(Points(intCrdCnt), Points(intCrdCnt + 1))
    
34.             dblInclAng = Atn(Abs(PLine.GetBulge(intCrdCnt))) * 4
    
35.             dblAng = (dblInclAng / 2) - ((Atn(1) * 4) / 2)
    
36.             dblRad = (dblChord / 2) / (Cos(dblAng))
    
37.             dblLength = dblLength + (dblInclAng * dblRad)
    
38.         End If
    
39.     Next
    
40.    
    
41.     GetPLineLength = dblLength
    
42. 
    
43. End Function
    
44. 
    
45. 
    
46. [/php]

[php]<br /> Public Function GetPLineLength(PLine As AcadObject) As Double<br /> <br />     Dim intCrdCnt As Integer, varCoords As Variant, dblLength As Double<br />     Dim dblChord As Double, dblInclAng As Double, dblAng As Double, dblRad As Double<br />     Dim Pt1 As Variant, Pt2 As Variant, tmp, Points, i As Long<br /> <br />     varCoords = PLine.Coordinates<br />     On Error Resume Next<br />     If PLine.Type <> 0 Then<br />         If Err.Number = 0 Then<br />             MsgBox "Cannot get length from this type of polyline.", vbExclamation, "GetPLineLength"<br />             Exit Function<br />         End If<br />     End If<br />     On Error GoTo 0<br />     <br />     If PLine.Closed Then<br />         tmp = PLine.Coordinate(0)<br />         For i = LBound(tmp) To UBound(tmp)<br />             ReDim Preserve varCoords(LBound(varCoords) To UBound(varCoords) + 1)<br />             varCoords(UBound(varCoords)) = tmp(i)<br />         Next<br />     End If<br />     <br />     Points = SplitPoints(varCoords, UBound(PLine.Coordinate(0)))<br />     <br />     For intCrdCnt = LBound(Points) To UBound(Points) - 1<br />         If PLine.ObjectName = "AcDb3dPolyline" Or PLine.GetBulge = 0 Then<br />           dblLength = dblLength + Distance(Points(intCrdCnt), Points(intCrdCnt + 1))<br />         Else<br />             dblChord = Distance(Points(intCrdCnt), Points(intCrdCnt + 1))<br />             dblInclAng = Atn(Abs(PLine.GetBulge(intCrdCnt))) * 4<br />             dblAng = (dblInclAng / 2) - ((Atn(1) * 4) / 2)<br />             dblRad = (dblChord / 2) / (Cos(dblAng))<br />             dblLength = dblLength + (dblInclAng * dblRad)<br />         End If<br />     Next<br />     <br />     GetPLineLength = dblLength<br /> <br /> End Function<br /> <br /> <br /> [/php]

Purpose
Returns the length of a polyline

Arguments
A polyline object

Example
Debug.Print GetPLineLength(objPline)

Notes
This function supports bulges
This function will not work with splined or fitted polylines
Author
R. Robert Bell

qiankuncq

为什么量出来的长度与LIST量出的长度有出入啊，（我量的是一段直线不知是不是不适用于直线而是有限制）

lida

这个程序我正需要，谢谢！

陌生人

]超级简短的vlisp代码，只用6行，现编的：
支持LINE,pline,spline,ARC,CIRCLE,ELLIPSE
http://www.xdcad.net/forum/showt ... d=744676#post744676

sxlxf

用"查询"命令不行吗?

zycl7476

谢谢那么多同行

心竹

3楼演示已经重新上传

paynel

下载来用用