CAD2005中线段求和问题

liu0239

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

iassqqq

可以用多段线命令合并后
查看多段线总长
/ g3 J& p# ^7 u0 i+ l& z- I  y7 r命令pe  m   y   j

YoungSpring_09

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

zjzdx

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

taianchuwei

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

liu0239

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

SXFZGQYX

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

tianyang

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

1. 
   
2. ;;;-----------------------------------------------------
   
3. ;;;计算线加总长度
   , d4 h+ j) _) ^+ L
4. ;;;-----------------------------------------------------
   . y7 A" D* ~' O8 a. Y: A# B
5. (defun CF (/ CURVE TLEN SS N SUMLEN)
   4 V- g$ Q2 |0 w; G. \
6.   (vl-load-com)
   1 Q, O. j3 [: Y' _  l4 u6 P
7.   (setq SUMLEN 0)
   
8.   (setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
   1 t1 \  {3 P9 d; f
9.   (setq N 0)
   
10.   (repeat (sslength SS)
    ) R( A, l( m7 q
11.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    
12.     (setq TLEN (vlax-curve-getdistatparam
    1 L; W- o, S. o. [2 e7 A' S
13. CURVE
    ! G8 W& g" w1 l8 r- u! |
14. (vlax-curve-getendparam CURVE)
    
15.        )
    
16.     )
    
17.     (setq SUMLEN (+ SUMLEN TLEN))
    8 v' `2 L# o8 ^; w# J
18.     (setq N (1+ N))
    # k0 I: n9 G+ v- E; K+ O9 {
19.   )
    - X, l# V% v" N$ ^, V
20.   (print (strcat "总长度: " (rtos SUMLEN 2 5)))
    
21.   (princ)
    / k5 B8 p9 ]$ B- o* C
22. )
    

复制代码

用记事本拷贝下来，后缀改为LSP 命令为“LF”
7 j4 V( C7 k' r1 k' j7 I8 ^7 s
) n/ _1 I9 m" ~8 e( u4 Q; @来源：http://bbs.co188.com/content/369_1789344_1.html
7 A: n+ e* }3 T' K3 G
这里还有一个，不过我的cad版本可能太低了，用不了。

1. 
   ; J8 J+ ]: E  s. h! G, N
2. ;;;=================================================================*
   
3. ;;;功能：统计线的长度                                               *
   
4. ;;;日期：zml84 于 2009-05-21 17:45                                  *
   * s8 ~: A; L# H+ P6 V. v
5. (defun C:TJ ()
   
6.     (princ "统计线段长度"
   
7.     (if        (setq SS (ssget        '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
   
8.                  )
   8 d. ^: q& j: c' e
9.         )
   6 r1 w( r. Z6 F/ L
10.         (progn
    . w0 M. q( u* A' J! l. A8 {
11.             ;;
    
12.             (setq LST_LEN '()
    
13.                   I 0
    9 b, _2 i  X7 O! U
14.             )
    
15.             ;;逐个统计
    
16.             (repeat (sslength SS)
    
17.                 (setq EN      (ssname SS I)
    
18.                       LEN     (vlax-curve-getdistatparam
    
19.                                   EN
    6 t& V; x% z. P. R5 h
20.                                   (vlax-curve-getendparam EN)
    ! Q+ S1 E6 ]0 b
21.                               )
    
22.                       LST_LEN (cons LEN LST_LEN)
    
23.                       I              (1+ I)
    
24.                 )
    ! }. \- A9 s# {6 ]/ w- [* s" @
25.             )
    
26.             ;;显示输出
    
27.             (princ "\n找到个数："
    1 C# q7 W8 a+ ~3 N" H0 ^; Y9 [
28.             (princ (sslength SS))
    * W. }" a0 Z, p% W) d7 B/ \
29.             (princ "\n单个长度："
    ) `& ?# h6 \5 \6 Q
30.             (princ LST_LEN)
    5 q5 F$ [( x" Y
31.             (princ "\n总计长度："
    ; p) D* v- n4 X6 \' w, d+ c* u$ ^
32.             (princ (apply '+ LST_LEN))
    
33.         )
    
34.     )
    
35.     (princ)
    
36. )
    : n3 u' b6 X$ [$ _' `+ y
37. ;;;=================================================================*
    ! x  l* g! E, I, p) ?
38. (alert
    : i! Q; z$ v4 L6 f9 |! x7 Y, Q
39.     "功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"
    5 O& n8 P3 h% h$ R& M- E9 v$ m
40. )
    
41. (princ)
    + E7 L) S# {7 d7 e: i0 m

复制代码

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