设为首页 |收藏本站 |帮助 |加入VIP |积分充值

QQ登录

只需一步，快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步，快速开始

返回
发新贴
展开

通知     

查看: 9347|回复: 10
收起左侧

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

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

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

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

x
有没有什么方法, 一次性将多条直线变为多段线???
回复

举报

csace
发表于 2008-9-3 09:58:20 | 显示全部楼层 来自： 中国广东广州
请看下面：
  n( V/ Y# f5 ?" E& h$ M# I 多段线.gif

评分

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

查看全部评分

回复 支持 反对

举报

sealive_leafage
发表于 2008-9-3 20:41:53 | 显示全部楼层 来自： 中国浙江宁波
命令：PEDIT，选一条直线，输入选项选J，选择多条直线，就行了！
1 L$ z+ W2 Q. U) Q- {- r4 X9 C- L# v+ b! v, }
[ 本帖最后由 sealive_leafage 于 2008-9-3 20:43 编辑 ]

评分

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

查看全部评分

回复 支持 反对

举报

votasee
发表于 2008-9-4 14:33:19 | 显示全部楼层 来自： 中国江苏无锡
原帖由 maoyangmy 于 2008-9-3 09:43 发表 http://www.3dportal.cn/discuz/images/common/back.gif8 z6 _8 C% u) M2 `; q
有没有什么方法, 一次性将多条直线变为多段线???
3 E) W, W9 V  J' Y

+ v2 e# r! b- ^5 L* f3 r我觉得楼主可能是想问有没有快捷的方法..不是指用
$ v) F6 p) r3 d: s) wPEDIT的命令..4 G( }6 Z: P/ F9 n$ e
, V" k' h: E  z
快捷方法.吗.我觉得应该写个小程序..或者用其它工具..0 T" j4 J4 Q3 ~1 s) k  v
; v8 A- C; x2 O: H1 g
运行一下命令.只要选定线.就OK了..所以我觉得...应该找个工具给楼主..
, _$ a1 E7 T) |
0 m' l# K. p  y* g9 x  S& J事实上这样的工具我也需要...
$ Q/ x2 ]- s) E# {5 O6 t
6 n8 t3 \* m' x: j  W, y: |问题是:有时,我们作的线段.可能由于精度问题(没有使用精确作图)没有相接.
! G# G& C+ {! G# i: M' j# x6 q所以最好还要设定一个误差值..这样一来.没有相接的线,就自动连接到一起..
+ F+ U: e: x, p9 J  [, a) A8 ]
- R$ w' P# p% Z( V5 Y( q这样.有时作简图的时候,就方便多了..
回复 支持 反对

举报

shzyd
发表于 2008-9-5 20:58:24 | 显示全部楼层 来自： 中国浙江宁波

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

我也是今天刚从论坛学来的，只不过验证整理详细编辑一下，公布出来，大家享用！
; r( u1 X+ j" X+ G0 O$ `) q( r  w" Z使相互连接的不是“多段线”的普通豢瞻孜桓岸喽蜗摺钡牟僮鞑街
回复 支持 反对

举报

www1974
发表于 2008-9-7 21:22:10 | 显示全部楼层 来自： 中国江苏无锡
收集到的一个 9 O8 F4 H2 \$ M4 X+ s. E
(defun l_to_pl (ssa / ss1 lines ent n)
% y! L& G2 O2 m" d0 Z) d  (defun l_to_pl:main (/ ent ss1 n). J9 C' v. a* ~8 A) Z0 H  c
  (setq ent (ssname lines 0)): Z2 ^/ `! {9 c6 o/ V
  (if (member (cdr (assoc 0 (entget ent)))
$ B# R( M9 H+ p8 C$ C/ C( j- o       '("POLYLINE" "LWPOLYLINE" )" B! `- A) R7 R9 y  ?
      )
, r9 M. x" v# b! q+ r    (if (/= 1 (logand (cdr (assoc 70 (entget ent))) 1))' v: U9 @6 Q1 v! t: I& |/ B6 r1 P: Y
      (command "._pedit" ent "j" lines "" "" )2 Y2 [4 ?' z& R( T
    )9 L7 [/ d% |" i% c3 [7 V
    (command "._pedit" ent "y" "j" lines "" "" )2 p4 Y$ M* u# x) J2 L- e; M1 `
  )- Z6 q- m# N5 B' V; s* O( E' ^
  (setq lines (ssdel ent lines))
: P' _$ A# \. k( i" m; G$ l" Y1 b, p  (setq ss1 (ssadd))& C& t4 `9 |2 Y. o/ W' v2 l/ d
  (repeat (setq n (sslength lines))9 j2 K3 O- K" w" Y/ W$ d0 a
    (setq ent (ssname lines (setq n (1- n))))! J9 ?# P- D8 H+ G) I- m% \
    (if (entget ent): X+ f" s5 R1 `- f+ J' L, E
      (setq ss1 (ssadd ent ss1))
) O7 @5 P! v5 D/ C1 F    )
; b% [# R( j0 n1 v. N  )
- z0 r: K2 u( {6 @4 P  (setq lines ss1)
& u3 E5 v1 N( m; l% P* @/ J$ ^  (while ( >(sslength lines) 0) (l_to_pl:main))
# \- Y9 c) }. [9 O8 t6 @# c)
7 ^( G7 N( }0 [" t3 X/ _# L  (command "._undo" "be" )
/ d" Q6 g; W" [0 ^  (setq ss1 (ssadd))3 L& c" |  j* n. ^8 g! U2 t
  (repeat (setq n (sslength ssa))
0 Y2 o; X+ y* Z1 `. ?    (setq ent (ssname ssa (setq n (1- n))))
. [; |5 ~  E! o7 U9 N    (if (and (entget ent)
; i5 W" U5 n' i3 k0 H      (member (cdr (assoc 0 (entget ent))): U2 r( w9 W: W- d4 S' a8 [6 F& O4 b
      '("LINE" "ARC" "POLYLINE" "LWPOLYLINE" )$ E) y8 O7 R" I  Y/ h# m7 c& O
      )" x9 W) x# j- f% y1 D" C
)- ?' Q$ g; k6 S4 k3 x: o
      (setq ss1 (ssadd ent ss1))
. j4 v7 i6 s! H% X6 X    )2 O# ^! y# J8 K) I' b) R
  )# K# u/ Q5 E  c; C$ B3 ^, N
  (setq lines ss1)- N0 ^* A" o( t5 i
  (l_to_pl:main)
$ }1 \) Q% X0 t4 g# k% j  (command "._undo" "e" ); m+ ]3 h% W" d' d, J1 W
)
4 M1 S. g, h% H  A( c5 k
! s1 m- }/ {$ G" t; k* v(defun c:lp (/ a). D7 P2 o' y/ d4 h
  (setq a (ssget ))
( [) H) K% K# b- A  (l_to_pl a)
+ j/ M; v+ E# I( Q; k1 x: Z;;;(l_to_pl lines)
& S; l0 \0 D! U, D;;;(while (> (sslength (setq lines (l_to_pl lines))) 0) (progn)). K' v+ ~$ e$ ?; V' Y! ]+ u1 i
)

评分

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

查看全部评分

回复 支持 反对

举报

CHNLOONG
发表于 2008-9-7 21:28:30 | 显示全部楼层 来自： 中国浙江温州
原帖由 www1974 于 2008-9-7 21:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif1 e$ _2 P( }1 m' }$ o7 {* s% I
收集到的一个 # W/ Z& U6 [! k: N* A( e
(defun l_to_pl (ssa / ss1 lines ent n)
& K$ e( F2 X) I3 R  (defun l_to_pl:main (/ ent ss1 n)
7 ]+ ]  x4 e5 M* S9 {6 r  (setq ent (ssname lines 0))8 ]3 p  n/ k+ h/ V9 g6 c. K) W" Z
  (if (member (cdr (assoc 0 (entget ent)))
. ]7 k$ Z% P* {8 v0 S              '("POLYLINE" "LWPOLYL ...

' q9 L( P) ?% g  K, @2 I; f楼上的分明是在灌水，找罚。
3 h/ z$ {) C! E2楼的厉害，用“合并”工具合并成！0 `7 c# L& W% p4 }; y

6 N6 N# i& f# Z$ z2 O[ 本帖最后由 CHNLOONG 于 2008-9-7 21:33 编辑 ]
回复 支持 反对

举报

www1974
发表于 2008-9-7 21:40:41 | 显示全部楼层 来自： 中国江苏无锡
原帖由 CHNLOONG 于 2008-9-7 21:28 发表 http://www.3dportal.cn/discuz/images/common/back.gif$ W# v. v0 M1 w$ K' c

1 u& @" p1 U0 [4 s! E+ M楼上的分明是在灌水，找罚。
" h: b6 j, I, s# X3 b2楼的厉害，用“合并”工具合并成！

6 A7 E! p; p8 S4 \# {/ n为人要谦虚，看不懂不要瞎说！* F! B2 q, ~2 }: w8 D
在ACAd中加载，后运行命令lp。

L2PL.rar

476 Bytes, 下载次数: 46
回复 支持 反对

举报

sitookudy
发表于 2010-3-16 16:02:59 | 显示全部楼层 来自： 中国北京
二楼的确实好用 多谢~~~~~~~~~~~~~~~~
回复 支持 反对

举报

blc007
发表于 2010-5-12 19:05:55 | 显示全部楼层 来自： 中国江西赣州
pedit命令学好了就可以弄了
回复 支持 反对

举报

5cllovely
发表于 2012-8-8 12:30:32 | 显示全部楼层 来自： 中国上海
6,8楼用lsp实现，更方便，pe命令需要按m，j，比较麻烦。就如同cad04复制需要按m一样，pe按m也不爽，这个绝对要赞
回复 支持 反对

举报

发表回复
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

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

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