三维网

标题: 有没有什么方法, 一次性将多条直线变为多段线??? [打印本页]
作者: maoyangmy    时间: 2008-9-3 09:43
标题: 有没有什么方法, 一次性将多条直线变为多段线???
有没有什么方法, 一次性将多条直线变为多段线???
作者: csace    时间: 2008-9-3 09:58
请看下面：
# h9 z( K+ V3 Q& |[attach]963496[/attach]
作者: sealive_leafage    时间: 2008-9-3 20:41
命令：PEDIT，选一条直线，输入选项选J，选择多条直线，就行了！) S- `6 E/ z7 ~; k
2 m1 ]1 K7 Y0 d
[ 本帖最后由 sealive_leafage 于 2008-9-3 20:43 编辑 ]
作者: votasee    时间: 2008-9-4 14:33
原帖由 maoyangmy 于 2008-9-3 09:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif
4 H# O7 _8 ^8 h9 f* a; v1 Z有没有什么方法, 一次性将多条直线变为多段线???
' g- m. @; e; e: _# a9 ^# z

; ?  p: u" K1 V$ y, t我觉得楼主可能是想问有没有快捷的方法..不是指用
2 M% g. t* o+ \+ i- P& B2 bPEDIT的命令..
! R( w. s' V7 u" \
) h8 Y, l. `7 l9 F快捷方法.吗.我觉得应该写个小程序..或者用其它工具..0 d. l  Z8 O4 ]$ o5 v, C

5 n+ W& F& m) T运行一下命令.只要选定线.就OK了..所以我觉得...应该找个工具给楼主..
* n/ i3 K6 s1 A- \( Y0 u6 |7 T* `; A# N, J# u3 k
事实上这样的工具我也需要...* v* A6 d8 V+ P

) J/ z( x* ?2 v  ~, m问题是:有时,我们作的线段.可能由于精度问题(没有使用精确作图)没有相接.
9 L1 `2 p1 o$ J6 n) J( o( C所以最好还要设定一个误差值..这样一来.没有相接的线,就自动连接到一起..5 c  p' r/ n5 T! @9 `/ @% M

0 N' b9 j" i- b, Y' i这样.有时作简图的时候,就方便多了..
作者: shzyd    时间: 2008-9-5 20:58
标题: 合并多段线为“多段线”的操作步骤
我也是今天刚从论坛学来的，只不过验证整理详细编辑一下，公布出来，大家享用！
. h, A: `) ?' M0 ^) c使相互连接的不是“多段线”的普通豢瞻孜桓岸喽蜗摺钡牟僮鞑街
作者: www1974    时间: 2008-9-7 21:22
收集到的一个 ' c2 C& Y+ _4 V8 e! |- ~8 [5 Z; I4 z
(defun l_to_pl (ssa / ss1 lines ent n)
& p$ v0 W( z  W  (defun l_to_pl:main (/ ent ss1 n)' S$ @5 ~: F' D0 M5 f
  (setq ent (ssname lines 0))
- p0 {# ]2 r! b/ T  (if (member (cdr (assoc 0 (entget ent)))) ~. h2 \# z8 t
       '("POLYLINE" "LWPOLYLINE" )
! Z1 o/ o' P# N3 ]& U& M( d- D      )
1 @: B" d1 `; s# d    (if (/= 1 (logand (cdr (assoc 70 (entget ent))) 1))' ^8 p& w$ I! f) {/ Q8 {5 h4 i
      (command "._pedit" ent "j" lines "" "" )
: E" O4 {5 L( D; r, L3 b$ ^    )# L' z9 A) j! U* G" \9 s
    (command "._pedit" ent "y" "j" lines "" "" )6 Q4 i6 Z! E* [4 k% G
  )5 H6 L. p# a2 L3 K9 ?/ c3 F
  (setq lines (ssdel ent lines))
; P& I& D6 @" T. O" K, s3 i  (setq ss1 (ssadd))
) ^9 I* L3 W+ p9 B+ ~  (repeat (setq n (sslength lines))
# ]4 n) `+ k" n6 G    (setq ent (ssname lines (setq n (1- n))))' F+ @. Y! J" F; V$ n: N( S& f4 n
    (if (entget ent)& j5 ]$ V8 r1 r/ |: h8 h
      (setq ss1 (ssadd ent ss1)); Z' k1 L% y+ d. r2 u" v4 V# d
    )+ X; j& H" \& @
  )4 M# U: K+ v  Y
  (setq lines ss1)
, o+ ?7 n: w! ?; P  (while ( >(sslength lines) 0) (l_to_pl:main))/ ~' W8 r$ f; m! v
)" q2 x2 |/ a# b0 @, `5 [, E
  (command "._undo" "be" )
3 U. T4 ?( n3 n5 u; n  (setq ss1 (ssadd))
5 }& V4 I+ W( @1 n* T& y5 R1 x1 d  (repeat (setq n (sslength ssa))4 c6 Q2 r* e9 b. B7 y
    (setq ent (ssname ssa (setq n (1- n))))2 X: @  M( s( E& R! v/ i- z6 `
    (if (and (entget ent); P) F# ~% K' \" S$ H$ Z  S
      (member (cdr (assoc 0 (entget ent)))* f+ J. x% b8 C8 V
      '("LINE" "ARC" "POLYLINE" "LWPOLYLINE" )
; C) T3 u5 s. y( G" P      )+ k+ O, H  m  `: n7 d% o; T4 T
)# Y/ T. ^% j2 u, B
      (setq ss1 (ssadd ent ss1))
9 l8 {& w, r* S1 Y6 L    )
5 @$ I/ x1 o1 h; n% q8 O# N  )
! M  d) ?- w9 t3 e# ^" L# c7 t  (setq lines ss1)
  ^+ e' \2 {# |. s( G9 H) a  (l_to_pl:main)( d! g2 o2 g  s1 I& M
  (command "._undo" "e" )2 E& D& N. z8 z0 _6 M: Q; n: V! F
)
/ E2 ^. O* z( O+ H4 U3 g7 u6 q- f( }
(defun c:lp (/ a)& }+ z5 o2 c6 V
  (setq a (ssget ))
  j+ F% N- V: O) [  (l_to_pl a)9 A- B% G( \9 `8 c- x+ g
;;;(l_to_pl lines)# z5 M1 I9 ~7 g* U; q
;;;(while (> (sslength (setq lines (l_to_pl lines))) 0) (progn))
9 [, E3 j1 o0 o4 C  u)
作者: CHNLOONG    时间: 2008-9-7 21:28
原帖由 www1974 于 2008-9-7 21:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
2 j; r7 V" d2 I: h9 S+ b收集到的一个
) D' I& J% m( h1 s(defun l_to_pl (ssa / ss1 lines ent n)1 f  ^# l" r! t/ ~
  (defun l_to_pl:main (/ ent ss1 n)7 s# o1 e4 X: U; k& P
  (setq ent (ssname lines 0))
6 L" a* M- {5 @8 V3 a) P  (if (member (cdr (assoc 0 (entget ent)))9 R9 ?( W0 z% H7 y" v
              '("POLYLINE" "LWPOLYL ...

/ z6 Q8 a# V: \+ c+ ~楼上的分明是在灌水，找罚。
2 K. L: x  n' N& D8 E2楼的厉害，用“合并”工具合并成！
7 J, v; {- R- y  |! h5 e0 I2 c# T/ W  a; g1 V- O6 H; J1 {) O# H
[ 本帖最后由 CHNLOONG 于 2008-9-7 21:33 编辑 ]
作者: www1974    时间: 2008-9-7 21:40
原帖由 CHNLOONG 于 2008-9-7 21:28 发表 http://www.3dportal.cn/discuz/images/common/back.gif9 l1 _2 ]& J; [0 _+ _; ^. o

9 w, F% T3 p6 e" O4 Q2 r楼上的分明是在灌水，找罚。9 @: b2 l+ z9 H  Z" q" b, }+ R
2楼的厉害，用“合并”工具合并成！
1 S* Q, p: K- W' i% o# G: p/ _2 M! x
为人要谦虚，看不懂不要瞎说！8 A. |% M4 C7 L7 X
在ACAd中加载，后运行命令lp。
作者: sitookudy    时间: 2010-3-16 16:02
二楼的确实好用 多谢~~~~~~~~~~~~~~~~
作者: blc007    时间: 2010-5-12 19:05
pedit命令学好了就可以弄了
作者: 5cllovely    时间: 2012-8-8 12:30
6,8楼用lsp实现，更方便，pe命令需要按m，j，比较麻烦。就如同cad04复制需要按m一样，pe按m也不爽，这个绝对要赞



欢迎光临 三维网 (http://www.3dportal.cn/discuz/) Powered by Discuz! X3.4