有什么办法可以将量取的直线求和呢（一一量取在确认求和）

dailysc

有什么办法可以将量取的直线求和呢（一一量取在确认求和）

在进行工程统计的时候好蹩脚。算量头都大了。如果能解决可是太妙了。

就是将直线一段段的量出距离。中间不返回任何结果，到确认（空格，回车或右键）时，计算先前量取的直线长度之和。

Andyhon

3. ;; LENGTH.LSP  Copyright 2003,  Tony Tanzillo
4. ;;
5. ;; Provided for private use only, reproduction or
6. ;; redistribution expressly prohibited.
7. ;;
8. ;; Adds LENGTH command to AutoCAD which when used, will report
9. ;; the total length of all selected 2D curves (including lines,
10. ;; polylines, arcs, splines, and elliptical curves).
11. ;;
12. ;; Does not add length of CIRCLES.
13. (defun C:LENGTH ( / ss len i)
14.    (vl-load-com)
15.    (setq ss (ssget '((0 .
16.        "LINE,ARC,SPLINE,ELLIPSE,POLYLINE,LWPOLYLINE")))
17.         len 0.0
18.    )
19.    (repeat (setq i (sslength ss))
20.       (setq len (+ len (getlength (ssname ss (setq i (1- i))))))
21.    )
22.    (write-line (strcat "\nTotal length = " (rtos len)))
23.    (princ)
24. )
26. (defun getLength (ename / acurve len)
27.    (setq ACurve (vlax-ename->vla-object ename))
28.    (setq len 0.0)
29.    (vl-catch-all-apply
30.      '(lambda ()
31.          (setq len
32.             (vlax-curve-getDistAtParam
33.                ACurve
34.               (vlax-curve-getEndParam ACurve)
35.             )
36.          )
37.       )
38.    )
39.    len
40. )

;; LENGTH.LSP  Copyright 2003,  Tony Tanzillo ;; ;; Provided for private use only, reproduction or ;; redistribution expressly prohibited. ;; ;; Adds LENGTH command to AutoCAD which when used, will report ;; the total length of all selected 2D curves (including lines, ;; polylines, arcs, splines, and elliptical curves). ;; ;; Does not add length of CIRCLES. (defun C:LENGTH ( / ss len i)    (vl-load-com)    (setq ss (ssget '((0 .        "LINE,ARC,SPLINE,ELLIPSE,POLYLINE,LWPOLYLINE")))         len 0.0    )    (repeat (setq i (sslength ss))       (setq len (+ len (getlength (ssname ss (setq i (1- i))))))    )    (write-line (strcat "\nTotal length = " (rtos len)))    (princ) ) (defun getLength (ename / acurve len)    (setq ACurve (vlax-ename->vla-object ename))    (setq len 0.0)    (vl-catch-all-apply      '(lambda ()          (setq len             (vlax-curve-getDistAtParam                ACurve               (vlax-curve-getEndParam ACurve)             )          )       )    )    len )

or
http://forums.cadalyst.com/showthread.php?t=4005

天龙八部

只是直线吧！

private sub ppcountline()

   dim pppt1 as variant

   dim pppt2 as acadentity

dim pppsetpp as acadselectionset

if pppsetpp.count>0 then

   pppsetpp.delete

end if

else

 pppset=ppthisdrawing.selectionsets.add("line11")

pppset.selectonscreen

dim j as double

j=0

dim aaa as acadentity

dim bbb as acadline

for each aaa in pppset

if aaa.objectname="acadline" then

set bbb=aaa

j=j+aaa.length

msgbox "total line length:" & j

end sub