CAD2005中线段求和问题

liu0239

我想问下，对于不封闭的曲线如何求和，就是我一次选中多个线段后直接算出总长度来。
! E5 }! u0 |- b4 B0 e4 s我自己搜索了下，好像燕秀 这个小软件可以。不知道还有没有别的方法

iassqqq

可以用多段线命令合并后
查看多段线总长
命令pe  m   y   j

YoungSpring_09

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

zjzdx

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

taianchuwei

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

liu0239

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

SXFZGQYX

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

tianyang

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

1. 
   - c) V8 G7 s, q: F0 P2 g
2. ;;;-----------------------------------------------------
   & \1 ]* A0 L. K* S6 Q% M  r# z
3. ;;;计算线加总长度
   6 N1 O0 Z, t% @: m! B$ t
4. ;;;-----------------------------------------------------
   + L; x* l4 [9 j9 G: Z) q7 V
5. (defun CF (/ CURVE TLEN SS N SUMLEN)
   
6.   (vl-load-com)
   + b( Z; G- }2 z* [
7.   (setq SUMLEN 0)
   
8.   (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
   
9.   (setq N 0)
   
10.   (repeat (sslength SS)
    
11.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    & B4 g$ M# X# y
12.     (setq TLEN (vlax-curve-getdistatparam
    / Y) g$ H$ u6 q, f* j' y
13. CURVE
    / f2 C) g; J& a2 X! k9 E6 J7 m
14. (vlax-curve-getendparam CURVE)
    2 @; R/ x& E, u' A8 ^% [+ ?6 V
15.        )
    
16.     )
    : d9 b* A0 r* ~3 [1 h% C
17.     (setq SUMLEN (+ SUMLEN TLEN))
    ' P  T. l) f/ D  \
18.     (setq N (1+ N))
    5 O% I* K( i5 p( w' b
19.   )
    
20.   (print (strcat "总长度: " (rtos SUMLEN 2 5)))
    
21.   (princ)
    
22. )
    

复制代码

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

来源：http://bbs.co188.com/content/369_1789344_1.html
6 q* \/ O7 ~2 N0 q
这里还有一个，不过我的cad版本可能太低了，用不了。

1. 
   
2. ;;;=================================================================*
   # G6 c! L$ Q' i  p! [: |; f' L1 Y
3. ;;;功能：统计线的长度                                               *
   
4. ;;;日期：zml84 于 2009-05-21 17:45                                  *
   . O7 J5 Y. ]2 r* Y, ~& T
5. (defun C:TJ ()
   5 Y7 D: J4 R- @/ f1 {; U; Q
6.     (princ "统计线段长度"
   4 l7 M8 E5 A$ p( u
7.     (if        (setq SS (ssget        '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
   
8.                  )
   
9.         )
   ; d# Y/ d! ?& u) q1 Q# L
10.         (progn
    ' }( S) x* o, a
11.             ;;
    
12.             (setq LST_LEN '()
    7 T, p% C$ }( Z; l) {! }3 V( Q
13.                   I 0
    3 m9 Y5 c2 B$ S7 `& k9 i( [& j; K
14.             )
    
15.             ;;逐个统计
    # o3 R1 ?( p  l, S1 `' _  o
16.             (repeat (sslength SS)
    1 b" Y' K/ \& Q+ |4 i
17.                 (setq EN      (ssname SS I)
    
18.                       LEN     (vlax-curve-getdistatparam
    
19.                                   EN
    / F' T/ s' A; j6 m6 D
20.                                   (vlax-curve-getendparam EN)
    . w; C4 c8 H: ~+ g9 R
21.                               )
    5 k' {& o# Z# d+ O
22.                       LST_LEN (cons LEN LST_LEN)
    ( d9 x5 F' K  n" e) G
23.                       I              (1+ I)
      ], t3 o5 _, X. m* K9 d
24.                 )
    
25.             )
    
26.             ;;显示输出
    $ c' m' @% U) E0 ^& I& V# G' m. F
27.             (princ "\n找到个数："
    5 e; ~( i3 K* v4 u: D8 ~
28.             (princ (sslength SS))
    
29.             (princ "\n单个长度："
    
30.             (princ LST_LEN)
    
31.             (princ "\n总计长度："
    " B, X9 l0 O+ y1 {) @) i- p+ x4 ~7 p6 r
32.             (princ (apply '+ LST_LEN))
    
33.         )
    2 ~+ X4 O% X* x& R7 F7 q
34.     )
    $ P3 ^: ]5 G3 W# z& C0 I
35.     (princ)
    ; P; n1 B, P/ [7 f1 b1 m. }
36. )
    3 \, ]! \5 O$ A4 k0 ]% ^
37. ;;;=================================================================*
    
38. (alert
    
39.     "功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"
    ! [6 r" u6 m4 k5 C
40. )
    
41. (princ)
    1 a& L5 ?( _  I6 f

复制代码

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