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解决最方便，这类程序网上很多。

8 D2 u; i% Q$ v
;;;-----------------------------------------------------
j# u- }' q* V2 p
;;;计算线加总长度
: y" w& f9 x) O4 E
;;;-----------------------------------------------------
' C7 u' {4 r) }( `, Y# O6 z8 ~5 B
(defun CF (/ CURVE TLEN SS N SUMLEN)
; ?/ a( y+ V. C8 N; I f }6 D
(vl-load-com)
( S5 c" O) _1 c/ Z
(setq SUMLEN 0)
' a& b& A% |! {6 E4 k( E
(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC")))
, H5 q: M" C9 N8 Y4 E. J- ~
(setq N 0)
# z% d! }/ ^( _! `
(repeat (sslength SS); Q5 b6 \$ K8 o7 c; H
(setq CURVE (vlax-ename->vla-object (ssname SS N)))
" }/ W5 P- @3 J
(setq TLEN (vlax-curve-getdistatparam1 [/ [# k# {3 i% Q, Q( v
CURVE$ ^! [" t! Z) `! i3 q
(vlax-curve-getendparam CURVE)
) d% t" u$ c1 k' P) d; r/ l
)$ r' X7 U+ S2 l* o5 L* O
)
" L: d" T" e* `4 p! C/ s
(setq SUMLEN (+ SUMLEN TLEN))- D: |! X8 u9 q" |* L
(setq N (1+ N)): d( e6 k: \! k$ o. n, p
)$ Y2 ^. r" j4 N/ R0 J, Y' A( o1 S
(print (strcat "总长度: " (rtos SUMLEN 2 5)))
% p$ L; }1 c" h1 g
(princ)$ k8 s# p1 p5 t U) v1 A5 m: K# [
)
) i7 I4 k* }; n) v9 F

复制代码

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

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

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

- U7 j# b w# l. f3 r) V
;;;=================================================================*
) R$ D% v2 m. Z( u. X
;;;功能：统计线的长度 *
$ u) @# d9 O! Y
;;;日期：zml84 于 2009-05-21 17:45 *0 |* |9 g! ~5 r1 z
(defun C:TJ ()
* e/ I8 L7 e6 D& K. s
(princ "统计线段长度") q9 y, z9 m6 j7 o$ L4 H9 i
(if (setq SS (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE")2 s$ f! d/ Y) S) I v9 ?
). c6 K$ W& q5 M. Z, z
)
% W! \$ q( U2 l8 U B. e
(progn- ] e4 a$ o- V: l3 B! Q/ Q$ `! z
;;
6 D1 i2 _- N- d
(setq LST_LEN '()' ~5 Q! Q8 ?0 |+ v4 U
I 0
6 ?5 V, \1 x$ b, K' A5 r
), ]$ h5 u: T# R1 o) e; b) E
;;逐个统计
9 o$ j! v% e4 l5 R% Q$ |) y: A) h/ m
(repeat (sslength SS)5 ^& ]0 \6 |( a
(setq EN (ssname SS I)
: Q" Y7 h' p1 p$ U
LEN (vlax-curve-getdistatparam
; I- V* N& ? w! A& w8 A
EN
. \8 q' m/ f8 k2 t, H
(vlax-curve-getendparam EN)
/ x' o4 a* V* _& B! J3 S2 R! a
)9 Y7 C1 K! K. l1 L9 M# i
LST_LEN (cons LEN LST_LEN)) H' ]. v5 W2 w( Y/ \4 V# I
I (1+ I)1 J4 W2 c3 a% w; ^0 c5 I: W
)4 K; c, I* a8 B+ l- C( v5 W% k
)
* S: B, g6 J/ A$ \: u2 R: i
;;显示输出
( E; c& Q& I3 y& g( v
(princ "\n找到个数："
X+ R v9 X5 e! C6 A2 y
(princ (sslength SS)) X1 b/ a( X" @# H' \2 Y/ n
(princ "\n单个长度："
% m& L' r8 P9 o; r
(princ LST_LEN)
6 I# B+ ]8 j0 X( m- \- U
(princ "\n总计长度："
, F& L& A2 `5 u4 V$ R7 s* D! V
(princ (apply '+ LST_LEN)), \! b* d+ n5 O" l
)
8 e+ }" j1 a9 L; K& y( v
)0 O. x2 X9 C; r Y" i
(princ)4 H0 b$ a& l1 P4 n: n
)- F; N" Q( B% d; U" _% X/ I2 `
;;;=================================================================*
- r9 _ w4 t8 P# d- x# C8 l3 |0 d: x
(alert$ Q+ O3 ]' I3 u
"功能：统计线段长度\n命令："TJ"\n日期：zml84 于 2009-05-21 17:45"
% @& L6 k* n+ Y; P+ I2 v4 {
)! x Y( Y Q4 s! @ }+ P* l4 }
(princ): p- e& B. U; ~1 A8 |3 A

复制代码

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

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

通知

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

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

浏览过的版块