CAD2005中线段求和问题

liu0239

我想问下，对于不封闭的曲线如何求和，就是我一次选中多个线段后直接算出总长度来。
; T7 j9 N# G) r( g8 N' t我自己搜索了下，好像燕秀 这个小软件可以。不知道还有没有别的方法

iassqqq

可以用多段线命令合并后
, W  d( e6 g9 C" [' W; o+ I% H3 ^查看多段线总长
0 ^& M  \. K. j5 A5 U命令pe  m   y   j

YoungSpring_09

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

zjzdx

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

taianchuwei

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

liu0239

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

SXFZGQYX

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

tianyang

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

1. 
   0 o8 O( b$ }- q1 u9 r# Y
2. ;;;-----------------------------------------------------
   
3. ;;;计算线加总长度
   
4. ;;;-----------------------------------------------------
   3 p; k8 D* ~0 f' @/ H& Y& s
5. (defun CF (/ CURVE TLEN SS N SUMLEN)
   ' `# E9 ^5 m8 [$ t& @4 A# m, z
6.   (vl-load-com)
   
7.   (setq SUMLEN 0)
   . Z$ k4 J' k5 y4 F: X
8.   (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
   . t1 v& G8 y! w: m
9.   (setq N 0)
   8 F% l, Q2 _$ p9 _, T! |+ j
10.   (repeat (sslength SS)
    
11.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    4 Y1 N) k* B9 O% j9 C6 |* v
12.     (setq TLEN (vlax-curve-getdistatparam
    5 I$ m8 h% O, x( g$ A0 N
13. CURVE
    ( y9 r8 c" g# c
14. (vlax-curve-getendparam CURVE)
    
15.        )
    
16.     )
    
17.     (setq SUMLEN (+ SUMLEN TLEN))
    , v$ |5 N+ ]) a* ?3 z  S' d( ]$ U
18.     (setq N (1+ N))
    ) l' Z: i5 u* Q" f" o% |
19.   )
    , x" A/ }. Q4 \- V9 \  ?2 l
20.   (print (strcat "总长度: " (rtos SUMLEN 2 5)))
    * T0 b: d0 @( s6 ^2 J9 d6 e" ^
21.   (princ)
    / K! }1 N" U; {! B' D) A9 z
22. )
    

复制代码

用记事本拷贝下来，后缀改为LSP 命令为“LF”
% x  w* ^: {: E4 N  H/ H+ U3 o
来源：http://bbs.co188.com/content/369_1789344_1.html

这里还有一个，不过我的cad版本可能太低了，用不了。

1. 
   9 j% k5 J. u" E; u; K  {5 K
2. ;;;=================================================================*
   
3. ;;;功能：统计线的长度                                               *
   
4. ;;;日期：zml84 于 2009-05-21 17:45                                  *
   / e' t; W, x# W+ y. `( Y) O
5. (defun C:TJ ()
   
6.     (princ "统计线段长度"
     r7 P5 X) j0 H. G7 B+ @! v
7.     (if        (setq SS (ssget        '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
   
8.                  )
   ! u9 ^9 n2 H1 ^) u( v
9.         )
   
10.         (progn
    5 ^, [- Z( E  F
11.             ;;
    
12.             (setq LST_LEN '()
    
13.                   I 0
    
14.             )
    3 l2 Y" ^; s& ~2 Z
15.             ;;逐个统计
    * L: j6 W: R  X1 s  Q9 o
16.             (repeat (sslength SS)
    ( p: A! F: d+ B: w. G
17.                 (setq EN      (ssname SS I)
    . u/ g$ W/ d, K1 a6 E" {  i; z- m
18.                       LEN     (vlax-curve-getdistatparam
    
19.                                   EN
    $ b5 B$ F. E/ X) ~9 \
20.                                   (vlax-curve-getendparam EN)
      u. F' G4 i5 h) m) E  N
21.                               )
    , w5 W5 ^8 B7 H/ x# v' f5 u9 R
22.                       LST_LEN (cons LEN LST_LEN)
    
23.                       I              (1+ I)
    
24.                 )
    
25.             )
    + T$ H: ~/ X; ~8 P1 W: d8 `1 C
26.             ;;显示输出
    
27.             (princ "\n找到个数："
    
28.             (princ (sslength SS))
    # _7 `. m  Q+ R; X. v, T5 Z/ L
29.             (princ "\n单个长度："
    5 h2 R) u/ C0 G! K8 `" I
30.             (princ LST_LEN)
    & I' f) H1 W  V  w9 P6 n# A: X: Q
31.             (princ "\n总计长度："
    5 ]; J$ p/ D' d7 F, h1 m" e7 }
32.             (princ (apply '+ LST_LEN))
    
33.         )
    : Z5 m2 g! ]# A5 W- h
34.     )
    * z3 m& @6 N; }( \2 S0 d& f
35.     (princ)
    - K  q. H: ]4 ^% j7 I4 D
36. )
    ) T5 _( F: H% Q
37. ;;;=================================================================*
    
38. (alert
    ; B+ B) V3 C, ?9 Q- g& {
39.     "功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"
    : w, m5 B. y& G0 x. G& E
40. )
    / `7 {' n% A0 ~5 C6 R
41. (princ)
    

复制代码

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