CAD2005中线段求和问题

liu0239 · 发表于 2010-7-21 16:28:06

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

iassqqq · 发表于 2010-7-21 17:13:17

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

YoungSpring_09 · 发表于 2010-7-21 17:26:19

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

zjzdx · 发表于 2010-7-21 20:04:03

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

taianchuwei · 发表于 2010-7-21 20:58:18

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

liu0239 · 发表于 2010-7-26 12:56:43

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

SXFZGQYX · 发表于 2010-8-7 16:49:26

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

tianyang · 发表于 2010-8-8 09:58:27

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

5 d+ A" |2 c! d* G8 r, A2 Q7 ]
;;;-----------------------------------------------------( x6 ?1 |9 @( S0 W1 Y- y
;;;计算线加总长度0 R% b, K8 J& ]3 w) x! C& |7 I
;;;------------------------------------------------------ L! g- b$ r! O( t; }
(defun CF (/ CURVE TLEN SS N SUMLEN)
; C1 b# |/ Q9 r( ]0 A0 o
(vl-load-com); q* ~2 I( i) j: Y8 W
(setq SUMLEN 0)4 Z, I# ~5 ^2 |! D" o$ K$ ?) U* _$ D
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
* I( p, z# @1 u7 }! v9 m
(setq N 0)
0 x3 ~6 `& w' A/ o
(repeat (sslength SS)5 |: i! c" ^4 U2 j& V. M+ V
(setq CURVE (vlax-ename->vla-object (ssname SS N)))& u0 Q! t3 x) j" {7 u" n
(setq TLEN (vlax-curve-getdistatparam5 c$ R3 h: a* g( w' z
CURVE4 d& O$ L6 p$ V/ L) b
(vlax-curve-getendparam CURVE), ?% [. O/ m7 S) ]
)2 Z/ [: c; }0 O5 R& x
), H$ a0 _& r; y! ~1 y3 L
(setq SUMLEN (+ SUMLEN TLEN))
. t1 }* B6 l) O, h3 n: J2 h3 [% t+ X
(setq N (1+ N))- Q# J* v& S& C- K8 d
)( I. S8 J; ^# t I
(print (strcat "总长度: " (rtos SUMLEN 2 5)))" Q& j$ H# Q. @% F) b
(princ)" k& H2 F$ Z: q* U& S" M
)9 ^. X- f$ `: e) J; n; _7 w

复制代码

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

来源：http://bbs.co188.com/content/369_1789344_1.html

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

@% S) t7 A' y
;;;=================================================================*
3 \8 }2 D, x' q( |& x
;;;功能：统计线的长度 *$ r1 t: R; G% Z. ~" o
;;;日期：zml84 于 2009-05-21 17:45 *
/ ~- J. V% s* N/ Q
(defun C:TJ ()
% C5 a9 d8 o* d$ _: V) b
(princ "统计线段长度"1 _+ l9 s2 }# i' h
(if (setq SS (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")
7 N- ^8 u; F+ p' i6 ]2 L
)& \& w/ [$ E9 I% A j, v
)( }. o7 i( ^0 N
(progn
7 \, E* ^5 k' w. R3 s
;;- H0 h I! y! M& n# W) I+ m4 D
(setq LST_LEN '()
- I8 ?$ S1 K3 ^0 A( N2 x3 b
I 0
3 Q- k+ x6 J" _' f4 B
)
- M+ K# H! W( o6 }
;;逐个统计) O, y! ~9 k- S
(repeat (sslength SS); p! ?# }2 c4 y- n. Y
(setq EN (ssname SS I)5 t. l( t. W2 B1 J* b
LEN (vlax-curve-getdistatparam- P* x2 _2 J* O1 r. }" ^ t
EN
( S, E2 s8 S, N' O5 H
(vlax-curve-getendparam EN)
; ?1 O# r, A: P b; b8 [# e; s/ H
)' ^$ _- t+ i- s
LST_LEN (cons LEN LST_LEN)4 I8 K7 U9 I0 o
I (1+ I)
5 x6 c2 B& w6 p# N! }6 K# j8 \ _
)
8 W4 J, @" q1 e* y
)
2 H0 g/ W1 H3 Y( t4 l% z
;;显示输出. y u+ N# E# ^" P
(princ "\n找到个数："
% o C6 e+ ~( H9 B
(princ (sslength SS))
& ~* M g9 H9 k6 D* ` b
(princ "\n单个长度："
5 S3 \. W( @$ B( g
(princ LST_LEN)
( }8 h" V. h' A
(princ "\n总计长度："
B: m. L/ C' J% P; r
(princ (apply '+ LST_LEN))
. R. z: k6 D" p' L$ I; s3 A
)9 @9 Q' }, r8 R1 \3 K
)
, y8 c: e2 ]3 j: c- A. S* a
(princ)$ |3 l4 |) I3 L) s
)
/ @- t# ?3 u# y$ S1 z8 j# \
;;;=================================================================*0 F, `5 u/ @2 A$ d% U
(alert
* b, e) c5 B7 \1 K! w
"功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"* V* I" K ]4 v7 v2 k
)
c* E6 o) T+ b- M/ s
(princ)
! R# ]( n- F/ K: c5 u$ s! G3 V

复制代码

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

		自动登录	找回密码
密码			注册

通知

[求助] CAD2005中线段求和问题

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块