计算多条线段和曲线的总长度

安徽红狼

AUTOCAD里怎样计算多条线段和曲线的总长度？

cqzhihuaq

第一步：合并线段 pedit
, m# J6 G$ ?( N" k/ J   第二步：list

iassqqq

2#的方法是正确的
# j: e& V" ~8 `先PE+M+Y+J+空格+空格
组成多段线看特性
. X/ T& a% x7 [( C不能组成多段线的就只能一个个加

xiaoma76

(defun c:ZCD ()
1 n5 r* c. s0 j0 [' H, b: G2 W, W(setvar "cmdecho" 1)
; {' H, |, ^8 j1 s0 G" |; r* p(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(setq i 0)
$ {/ y. R. b. ]9 H8 u& U; r(setq ll 0)
, y0 K. B: X& c0 k+ j' }$ g9 V0 D(repeat (sslength en)
  (setq ss (ssname en i))
8 ?  n1 j$ ?- }2 G  (setq endata (entget ss))
% ^: e* Q! `6 v* K& q6 T3 x  (command "lengthen" ss "")
) u# k0 H# U  L8 m! v  (setq dd (getvar "perimeter"))
  (setq ll (+ dd ll))
  (setq i (1+ i))
; S& E+ Z, W# g1 a1 L)
  n# l" y4 z3 B) E* l; P(princ "所选线条总长为：")(princ ll)(princ)
)
8 M! P" c, K. I$ P. S% i
3 J. [$ e$ o( K# O% \6 z
3 b' X! ~+ J: L$ B) p( K用这个LISP。

[ 本帖最后由 woaishuijia 于 2008-6-3 18:58 编辑 ]

JOYUI

通过编辑多段线，PE，将零散的线条成为一个整体，再LIST即可看到了。