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

只需一步，快速开始

登录 | 注册 | 找回密码

三维网首页›三维社区 › CAD讨论区 › AutoCAD › 『AutoCAD二次开发问题解答和经验分享』 › 有没有什么方法, 一次性将多条直线变为多段线???

通知

查看: 9485|回复: 10

收起左侧

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

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

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

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

x

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

回复

发表于 2008-9-3 09:58:20 | 显示全部楼层来自：中国广东广州

请看下面：

多段线.gif

评分

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

查看全部评分

回复支持反对

sealive_leafage

发表于 2008-9-3 20:41:53 | 显示全部楼层来自：中国浙江宁波

命令：PEDIT，选一条直线，输入选项选J，选择多条直线，就行了！

[ 本帖最后由 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
& p3 E- g9 C, v' s2 d) ~+ j/ b有没有什么方法, 一次性将多条直线变为多段线???

我觉得楼主可能是想问有没有快捷的方法..不是指用
, `( z1 M, W# VPEDIT的命令..

快捷方法.吗.我觉得应该写个小程序..或者用其它工具..

运行一下命令.只要选定线.就OK了..所以我觉得...应该找个工具给楼主..

事实上这样的工具我也需要...

问题是:有时,我们作的线段.可能由于精度问题(没有使用精确作图)没有相接.
所以最好还要设定一个误差值..这样一来.没有相接的线,就自动连接到一起..

这样.有时作简图的时候,就方便多了..

回复支持反对

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

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

我也是今天刚从论坛学来的，只不过验证整理详细编辑一下，公布出来，大家享用！
使相互连接的不是“多段线”的普通豢瞻孜桓岸喽蜗摺钡牟僮鞑街

回复支持反对

发表于 2008-9-7 21:22:10 | 显示全部楼层来自：中国江苏无锡

收集到的一个

(defun l_to_pl (ssa / ss1 lines ent n)
  (defun l_to_pl:main (/ ent ss1 n)
  (setq ent (ssname lines 0))
  (if (member (cdr (assoc 0 (entget ent)))
   '("POLYLINE" "LWPOLYLINE" )
   )
(if (/= 1 (logand (cdr (assoc 70 (entget ent))) 1))
   (command "._pedit" ent "j" lines "" "" )
)
(command "._pedit" ent "y" "j" lines "" "" )
  )
  (setq lines (ssdel ent lines))
  (setq ss1 (ssadd))
  (repeat (setq n (sslength lines))
(setq ent (ssname lines (setq n (1- n))))
(if (entget ent)
   (setq ss1 (ssadd ent ss1))
)
  )
  (setq lines ss1)
  (while ( >(sslength lines) 0) (l_to_pl:main))
)
  (command "._undo" "be" )
  (setq ss1 (ssadd))
  (repeat (setq n (sslength ssa))
(setq ent (ssname ssa (setq n (1- n))))
(if (and (entget ent)
   (member (cdr (assoc 0 (entget ent)))
   '("LINE" "ARC" "POLYLINE" "LWPOLYLINE" )
   )
)
   (setq ss1 (ssadd ent ss1))
)
  )
  (setq lines ss1)
  (l_to_pl:main)
  (command "._undo" "e" )
)

(defun c:lp (/ a)
  (setq a (ssget ))
  (l_to_pl a)
;;;(l_to_pl lines)
;;;(while (> (sslength (setq lines (l_to_pl lines))) 0) (progn))
)

评分

参与人数 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
- d; ]/ z, m1 ?1 E% a+ M7 z# {收集到的一个 1 Z4 F+ w6 g- L- ?; L2 \/ M+ @
(defun l_to_pl (ssa / ss1 lines ent n)% Q# f& S1 O+ i1 |
  (defun l_to_pl:main (/ ent ss1 n)1 K9 E( B8 d$ a- B! v, M9 }
  (setq ent (ssname lines 0))& u' n7 c) E7 i% J- W0 g$ G3 S7 ]
  (if (member (cdr (assoc 0 (entget ent)))" |% j6 I* C3 A) y* q
            '("POLYLINE" "LWPOLYL ...

楼上的分明是在灌水，找罚。
2楼的厉害，用“合并”工具合并成！

[ 本帖最后由 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
( } b$ j* K0 |1 ?2 l& O4 C7 z8 L7 Z. i9 D& M( ^1 h
楼上的分明是在灌水，找罚。" R }$ v) q; Q6 V) _% b' K2 p
2楼的厉害，用“合并”工具合并成！

为人要谦虚，看不懂不要瞎说！
在ACAd中加载，后运行命令lp。

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 )

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