CAD2005中线段求和问题

liu0239

我想问下，对于不封闭的曲线如何求和，就是我一次选中多个线段后直接算出总长度来。
2 O4 U4 I8 t( N8 b' D0 m/ W我自己搜索了下，好像燕秀 这个小软件可以。不知道还有没有别的方法

iassqqq

可以用多段线命令合并后
- q3 r5 z& k1 G, v查看多段线总长
命令pe  m   y   j

YoungSpring_09

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

zjzdx

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

taianchuwei

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

liu0239

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

SXFZGQYX

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

tianyang

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

1. 
   
2. ;;;-----------------------------------------------------
   0 P0 v# a# x+ [( V. p0 O0 x
3. ;;;计算线加总长度
   & a) e3 a% `- b; z! |+ N
4. ;;;-----------------------------------------------------
   ! [1 c4 g$ q  ?9 R
5. (defun CF (/ CURVE TLEN SS N SUMLEN)
   # z; c& x0 }/ O, P- `1 C
6.   (vl-load-com)
     Y! X. `2 F' O8 {% _1 d" V
7.   (setq SUMLEN 0)
     Q' j; ^  g! q4 a( F, S6 F* r
8.   (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
   + I' }9 I, e2 h. T. @1 \6 M6 f0 n
9.   (setq N 0)
   
10.   (repeat (sslength SS)
    1 }- A" ]( ^* m/ c/ ?$ w& q( f
11.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    
12.     (setq TLEN (vlax-curve-getdistatparam
    
13. CURVE
    
14. (vlax-curve-getendparam CURVE)
    1 D% S* J5 I5 P  `" c
15.        )
    
16.     )
    & M; J  J2 ^# ^! H1 }6 e3 W3 `
17.     (setq SUMLEN (+ SUMLEN TLEN))
    
18.     (setq N (1+ N))
    : l* |% L3 u5 \/ A4 I4 J0 ^
19.   )
    
20.   (print (strcat "总长度: " (rtos SUMLEN 2 5)))
    : V; x. z  P: R: @+ P3 }3 K
21.   (princ)
    
22. )
    

复制代码

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

来源：http://bbs.co188.com/content/369_1789344_1.html
$ f. n& R3 u1 q* s
. ~! V( R3 `4 f! W/ I9 {这里还有一个，不过我的cad版本可能太低了，用不了。

1. 
   
2. ;;;=================================================================*
   
3. ;;;功能：统计线的长度                                               *
   
4. ;;;日期：zml84 于 2009-05-21 17:45                                  *
   
5. (defun C:TJ ()
   ' Y( k9 g# G9 G) f2 S) s3 a# ~
6.     (princ "统计线段长度"
   7 L' D3 P/ a4 @0 R# c& K! W6 w
7.     (if        (setq SS (ssget        '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
   5 Y5 \$ }8 j5 }$ r" S
8.                  )
   
9.         )
   & T6 A$ E% X8 A9 C
10.         (progn
      U, k/ j) b  E2 q- l
11.             ;;
    
12.             (setq LST_LEN '()
    
13.                   I 0
    3 o4 o& [! r1 M5 H* Z5 y
14.             )
    
15.             ;;逐个统计
    
16.             (repeat (sslength SS)
    1 b1 N+ r4 L6 I/ X) |5 a7 R
17.                 (setq EN      (ssname SS I)
    
18.                       LEN     (vlax-curve-getdistatparam
    5 }+ o1 m% h2 }' |
19.                                   EN
    5 d$ ~5 O; [3 A6 Q  J/ O% N
20.                                   (vlax-curve-getendparam EN)
    - j, k( U* p: J0 ^! Y9 k
21.                               )
    3 f" I- {( B1 p! W1 s. x
22.                       LST_LEN (cons LEN LST_LEN)
    # |6 L6 n& _( O/ M4 D5 j9 y
23.                       I              (1+ I)
    ( L/ i( e/ r0 V% z9 V- @# i
24.                 )
    
25.             )
    
26.             ;;显示输出
    
27.             (princ "\n找到个数："
    
28.             (princ (sslength SS))
    2 Q: i3 f! R2 p
29.             (princ "\n单个长度："
    
30.             (princ LST_LEN)
    
31.             (princ "\n总计长度："
    
32.             (princ (apply '+ LST_LEN))
    
33.         )
    ! A3 e5 [  F) }/ h7 \
34.     )
    
35.     (princ)
    
36. )
    
37. ;;;=================================================================*
    8 w: M8 j) }$ Z  K9 J  j
38. (alert
    
39.     "功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"
    , {1 Z7 s1 I  L4 _4 l* l
40. )
    4 f4 W$ U' \9 R% |4 b! V. i+ ]
41. (princ)
    7 W/ @$ D" w$ s' Y* B7 t

复制代码

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