QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
2天前
查看: 9492|回复: 10
收起左侧

[已答复] 有没有什么方法, 一次性将多条直线变为多段线???

[复制链接]
发表于 2008-9-3 09:43:48 | 显示全部楼层 |阅读模式 来自: 中国辽宁鞍山

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

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

x
有没有什么方法, 一次性将多条直线变为多段线???
发表于 2008-9-3 09:58:20 | 显示全部楼层 来自: 中国广东广州
请看下面:
9 k. x2 T! ~& c 多段线.gif

评分

参与人数 1三维币 +5 收起 理由
唐昕晨 + 5 应助

查看全部评分

发表于 2008-9-3 20:41:53 | 显示全部楼层 来自: 中国浙江宁波
命令:PEDIT,选一条直线,输入选项选J,选择多条直线,就行了!
6 C" n5 U! |, D3 m( c/ y2 Z/ ^. O' n* a+ U" r1 C4 K
[ 本帖最后由 sealive_leafage 于 2008-9-3 20:43 编辑 ]

评分

参与人数 1三维币 +5 收起 理由
唐昕晨 + 5 应助

查看全部评分

发表于 2008-9-4 14:33:19 | 显示全部楼层 来自: 中国江苏无锡
原帖由 maoyangmy 于 2008-9-3 09:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif
3 [$ ^7 _+ y* i有没有什么方法, 一次性将多条直线变为多段线???

3 O) e" X% j* j4 u* W/ G0 G+ W
5 K; D' c6 V0 S0 B5 R9 E2 w我觉得楼主可能是想问有没有快捷的方法..不是指用  \  Q% V0 e7 @9 ?  s1 f3 i
PEDIT的命令..

" ?4 H* J5 O# A1 f( U4 B, o4 X- ~8 I2 j1 O- U0 `+ e, t4 x! B
快捷方法.吗.我觉得应该写个小程序..或者用其它工具..* R( X, `. x/ W$ H7 G; H

& Z9 V; \) ?0 p: q/ T运行一下命令.只要选定线.就OK了..所以我觉得...应该找个工具给楼主..
* H  v) T- Y0 i
4 b: v' C  B9 q* _事实上这样的工具我也需要.../ ]3 `7 h. Y: ?" M* b0 Q; X

! m# I. ]9 w; d; Z7 Z7 G问题是:有时,我们作的线段.可能由于精度问题(没有使用精确作图)没有相接.
& E. W+ e$ G+ V) F所以最好还要设定一个误差值..这样一来.没有相接的线,就自动连接到一起..% x& p* x6 \- {( E" q  P
) T) m" E+ L% g/ F* R# @7 e# ?+ \
这样.有时作简图的时候,就方便多了..
发表于 2008-9-5 20:58:24 | 显示全部楼层 来自: 中国浙江宁波

合并多段线为“多段线”的操作步骤

我也是今天刚从论坛学来的,只不过验证整理详细编辑一下,公布出来,大家享用!
& c* L$ ^2 ?0 T4 k' h& @3 y% u使相互连接的不是“多段线”的普通豢瞻孜桓岸喽蜗摺钡牟僮鞑街
发表于 2008-9-7 21:22:10 | 显示全部楼层 来自: 中国江苏无锡
收集到的一个
" f: \( S# {' n  R/ I; |(defun l_to_pl (ssa / ss1 lines ent n)
5 B5 q& d" s+ I! E6 e; @) f  (defun l_to_pl:main (/ ent ss1 n)& Y  @/ N$ Q: ?6 J! R3 G
  (setq ent (ssname lines 0))
3 s6 O  v) c) r7 I% X. Q+ _0 |# p  (if (member (cdr (assoc 0 (entget ent)))
) ?- l/ l6 {) b6 w; ~) p) y( }       '("POLYLINE" "LWPOLYLINE" )
8 T* r- x% w$ V: P      )
( v& P* h6 K' G" L; h. }6 K8 J- u    (if (/= 1 (logand (cdr (assoc 70 (entget ent))) 1))
, K/ t2 m7 b1 T# c* `( J      (command "._pedit" ent "j" lines "" "" )
) K3 E2 T: j7 v& h# d6 T! s    )
6 r. q2 \4 W) b! E: |. t8 ]    (command "._pedit" ent "y" "j" lines "" "" )$ }6 u: p2 M; s' m
  ), q6 y: D% M1 g& N2 U  [1 N
  (setq lines (ssdel ent lines)); W& o1 D) o! b3 v
  (setq ss1 (ssadd))0 f8 j8 M# A, M
  (repeat (setq n (sslength lines))
) R4 ~& M+ z: D; D    (setq ent (ssname lines (setq n (1- n))))9 o. u& T( {! K4 A1 z
    (if (entget ent)
) M# C5 c$ R0 R) Q: J      (setq ss1 (ssadd ent ss1))
( C; k& n' B, p/ r- ^    )
8 i5 J: o6 ^9 r6 A# `  )
5 P- x! G: B' M6 M/ F- f  (setq lines ss1)6 U- v! L) u; Y- m+ n9 e$ A4 u
  (while ( >(sslength lines) 0) (l_to_pl:main))
, Z; i# v/ q5 v  }1 C6 t3 z9 x% x6 A)
# s+ Z8 {# {: {% ~& ?' S. o- F  (command "._undo" "be" )
& V% l% t0 j& R7 ^3 L' o  (setq ss1 (ssadd))+ ~! E1 I+ w; d# O2 d4 q/ i3 {
  (repeat (setq n (sslength ssa)): Q4 A' i1 c2 M+ @; G$ X5 T
    (setq ent (ssname ssa (setq n (1- n))))6 I( z' [4 a+ b" H& D0 P8 P
    (if (and (entget ent)
; L, X& j7 U* Y7 x( M4 ?      (member (cdr (assoc 0 (entget ent))); {/ a0 a7 G  q8 U8 ?! W
      '("LINE" "ARC" "POLYLINE" "LWPOLYLINE" )5 S+ @. D7 e. G3 h- {( ~, l2 d
      )
; [, K0 k/ i; _9 o )
) W6 b6 k6 o3 G      (setq ss1 (ssadd ent ss1))# I/ W6 e! Y* {5 l5 w  ^3 Z
    )+ S) Q4 c- z& D1 O7 P
  )" W* p* u# S" o& F
  (setq lines ss1)
& B9 ^8 b/ ^0 B  (l_to_pl:main)
$ ^' g9 x" E9 f% B* P9 W  (command "._undo" "e" )/ B4 ~9 C% w: _# a  z9 E/ z
)
' J! j1 u" y2 G' R6 ?
7 ^' a1 t, r! `9 V(defun c:lp (/ a), {6 O. P3 K8 `+ F
  (setq a (ssget ))
  U$ G- \! z2 c7 x  (l_to_pl a)3 j, _' Q- R8 ]" D
;;;(l_to_pl lines)
, e4 F; @( K/ }+ c) S& x;;;(while (> (sslength (setq lines (l_to_pl lines))) 0) (progn))
' F5 V9 Q/ X" D) ~)

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 应助

查看全部评分

发表于 2008-9-7 21:28:30 | 显示全部楼层 来自: 中国浙江温州
原帖由 www1974 于 2008-9-7 21:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
6 L" m1 K9 h6 ^9 P7 v收集到的一个 " Z( _8 W; q3 Q6 v" K3 D
(defun l_to_pl (ssa / ss1 lines ent n)- Q( r+ G& r8 q6 G3 U+ b: M
  (defun l_to_pl:main (/ ent ss1 n)0 G! l" \' A( L% D9 L" e7 A
  (setq ent (ssname lines 0))
8 w2 i! c. F% N# P3 j7 H  (if (member (cdr (assoc 0 (entget ent))); i. L# `; J0 W! W, }
              '("POLYLINE" "LWPOLYL ...
+ g( [& K3 F1 Z4 P( Y
楼上的分明是在灌水,找罚。8 p& s, C% c9 f3 i
2楼的厉害,用“合并”工具合并成!
$ M7 ]: f; a- j$ O$ L$ t
) S' {) f& I" K- ~. P- A[ 本帖最后由 CHNLOONG 于 2008-9-7 21:33 编辑 ]
发表于 2008-9-7 21:40:41 | 显示全部楼层 来自: 中国江苏无锡
原帖由 CHNLOONG 于 2008-9-7 21:28 发表 http://www.3dportal.cn/discuz/images/common/back.gif
9 H6 [& M- W/ P+ Q
) Q1 u3 m' k" q8 s# M' \1 U6 ?楼上的分明是在灌水,找罚。
5 ~+ B9 @0 c/ d9 q$ U9 l0 a3 C2楼的厉害,用“合并”工具合并成!

3 g8 Q9 v$ p& b+ U: p为人要谦虚,看不懂不要瞎说!
" P+ R. T8 p; l6 B; M8 O, s在ACAd中加载,后运行命令lp。

L2PL.rar

476 Bytes, 下载次数: 46

发表于 2010-3-16 16:02:59 | 显示全部楼层 来自: 中国北京
二楼的确实好用 多谢~~~~~~~~~~~~~~~~
发表于 2010-5-12 19:05:55 | 显示全部楼层 来自: 中国江西赣州
pedit命令学好了就可以弄了
发表于 2012-8-8 12:30:32 | 显示全部楼层 来自: 中国上海
6,8楼用lsp实现,更方便,pe命令需要按m,j,比较麻烦。就如同cad04复制需要按m一样,pe按m也不爽,这个绝对要赞
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表