[原创]：一个批量连接线段的小程序

gysjy · 发表于 2009-10-27 19:21:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

在我们的cad绘图中常常需要将多条线段连接成一条线。用pedit中的j命令可以实现这一功能要求。而本程序可以框选图元，批量连接所选的线段：
[PHP](defun c:nn(/ ss s)
  (princ "\n 本程序用来批量连接线段。gysjy 2009.10.27")
  (setq ss (ssget '((-4 . "<OR")
                  (0 . "LINE")(0 . "ARC")
                  (-4 . "<AND")(0 . "LWPOLYLINE")(70 . 0)(-4 . "AND>")
               (-4 . "OR>")))
  )
  (while ss
(setq s (ssname ss 0))
(if (or (= "LINE" (cdr (assoc 0 (entget s))))
         (= "ARC" (cdr (assoc 0 (entget s))))
      )
   (command "pedit" s "y" "j" "p" "" "x")
   (command "pedit" s "j" "p" "" "x")
)
(setq ss (ssget "p"))
  )
  (princ)
)[/PHP]

dabingrain · 发表于 2009-10-28 17:14:26

很好，解决了大问题，平时都是一个一个做

zxmn551315 · 发表于 2009-11-3 10:39:27

很好的程序啊，一直想找

同心 · 发表于 2009-11-14 23:22:48

程序很好用

chenjh777 · 发表于 2009-11-16 14:29:02

很好，谢谢

cityrat2000 · 发表于 2009-12-15 10:30:40

很不错的程序

xoyo88 · 发表于 2009-12-15 11:50:27

好，用一下

ghl_729 · 发表于 2009-12-16 08:39:25

楼主的程序很好用啊

静静的思考 · 发表于 2009-12-18 17:10:18

果然很好呀，一直在找呀

JackTool · 发表于 2013-5-1 14:13:08

简单实用，谢谢LZ的程序

sunshinejwt · 发表于 2016-12-23 23:27:13

楼主的这个是把线段连接好后变成了多义线，炸开后还是分来的线段，我想要一个只连接首尾相连的两端线才连接在一起，在同一条直线上，但是是分开的就不连接。

账号		自动登录	找回密码
密码			立即注册

[原创]：一个批量连接线段的小程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子