CAD2005中线段求和问题

liu0239

我想问下，对于不封闭的曲线如何求和，就是我一次选中多个线段后直接算出总长度来。
5 P( S5 b: _% Y$ U2 e! f, @, w我自己搜索了下，好像燕秀 这个小软件可以。不知道还有没有别的方法

iassqqq

可以用多段线命令合并后
查看多段线总长
' i. q, c9 S1 p9 N' T2 r命令pe  m   y   j

YoungSpring_09

楼主要求的是不封闭求和，我想应该办不到，一个一个加吧。或者把线接一起再合并多线查询！

zjzdx

搞不清楚，能不能说明白些，我正要学习学习

taianchuwei

用PE命令把多条线转化成多段线，然后LI命令即可查询

liu0239

谢谢各位，我还是装了个插件。这样方便些

SXFZGQYX

用PEDIT折线编辑命令，将连续的线段接成一条线，再用查讯或属性即可查看

tianyang

用lisp解决最方便，这类程序网上很多。

1. 
   / O) V* G1 B; ?: K8 \7 Q
2. ;;;-----------------------------------------------------
   
3. ;;;计算线加总长度
   - R! P9 L9 C5 t2 C/ `
4. ;;;-----------------------------------------------------
   
5. (defun CF (/ CURVE TLEN SS N SUMLEN)
   % i7 E5 Q- H2 }8 z8 d/ Q
6.   (vl-load-com)
   3 e; ^1 K+ L: i* V0 _; ~
7.   (setq SUMLEN 0)
   
8.   (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
   
9.   (setq N 0)
   2 _% b$ i! j" R3 S1 x. Y
10.   (repeat (sslength SS)
    
11.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    
12.     (setq TLEN (vlax-curve-getdistatparam
    
13. CURVE
    6 K1 M  e, j$ o2 z* R! Z  z. t
14. (vlax-curve-getendparam CURVE)
    
15.        )
    * V/ z  r2 J' `/ f) }% Y+ \# z
16.     )
    9 ^8 m6 P. C& d& M& D$ Z
17.     (setq SUMLEN (+ SUMLEN TLEN))
    : k# T" I, |9 O. R
18.     (setq N (1+ N))
    0 x0 u* N' o4 X' e
19.   )
    
20.   (print (strcat "总长度: " (rtos SUMLEN 2 5)))
    " b- q# ^  _/ H3 v2 J+ B( `1 K) j
21.   (princ)
    
22. )
    . T: ^* n/ a4 l; w

复制代码

用记事本拷贝下来，后缀改为LSP 命令为“LF”

来源：http://bbs.co188.com/content/369_1789344_1.html
4 Y$ P- _* L3 ~9 F* M/ I$ v8 v* Q
% {8 u) U5 o" N7 W% E+ W8 i+ I$ N5 C这里还有一个，不过我的cad版本可能太低了，用不了。

1. 
   ) ?0 _5 _0 l4 [2 I! k0 K2 t
2. ;;;=================================================================*
   " M1 q) O- @2 ^7 V
3. ;;;功能：统计线的长度                                               *
   
4. ;;;日期：zml84 于 2009-05-21 17:45                                  *
   ! L  X9 [# x: P) N; P0 l
5. (defun C:TJ ()
   
6.     (princ "统计线段长度"
   ' i, ^! N1 Y% n( V
7.     (if        (setq SS (ssget        '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
   ) y) B  u% u9 e
8.                  )
   
9.         )
   
10.         (progn
    ) k# j1 C1 t9 J6 d  Y* K9 D
11.             ;;
    " z( l* x( \0 z( \  t3 S. s
12.             (setq LST_LEN '()
    - V) ^( f' `% p, `' f8 w+ \5 P  N
13.                   I 0
    . `: `; p, T) ~
14.             )
      x+ ~- ^3 z; E. o6 M
15.             ;;逐个统计
    
16.             (repeat (sslength SS)
    
17.                 (setq EN      (ssname SS I)
    
18.                       LEN     (vlax-curve-getdistatparam
    
19.                                   EN
    
20.                                   (vlax-curve-getendparam EN)
    
21.                               )
    
22.                       LST_LEN (cons LEN LST_LEN)
    $ ]) \! a1 c/ l8 J) [, w, O3 K
23.                       I              (1+ I)
    
24.                 )
    
25.             )
    
26.             ;;显示输出
    
27.             (princ "\n找到个数："
    
28.             (princ (sslength SS))
    
29.             (princ "\n单个长度："
    2 k7 q- U& P( v! N
30.             (princ LST_LEN)
      l6 f. L9 B: `$ |* _
31.             (princ "\n总计长度："
      `6 v- a1 q) h* X  v
32.             (princ (apply '+ LST_LEN))
    
33.         )
    
34.     )
    ! z6 O( l. M$ `6 j1 x6 S
35.     (princ)
    3 P+ V4 i, e- @! x
36. )
    
37. ;;;=================================================================*
    
38. (alert
    * K  S3 h! g) O2 F% q
39.     "功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"
    
40. )
    $ x5 G! b& H6 @+ L" }8 j+ c- t
41. (princ)
    

复制代码

来源：http://www.mouldsky.com/thread-55170-1-1.html