[编程申请]：求自动把若干线段首尾相连的程序

lshpool · 发表于 2004-3-31 08:51:28

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

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

×

求自动把若干线段首尾相连的程序

JOSDENNIS · 发表于 2004-4-4 13:50:29

快還工具里不是有pljoin功能嗎?　這個功能應就如你所說了吧．

自由的鱼 · 发表于 2004-4-4 19:47:13

取端点坐标重绘不行吗？

li809 · 发表于 2005-2-17 20:48:14

2004后命令是什么(pljoin)

luob72 · 发表于 2005-3-10 21:33:31

我这里有一个，也许可以解决你的问题，不过我是在2005上用的。

siyangyang · 发表于 2005-3-10 23:04:02

不用下，很多都可以实现

shuaier · 发表于 2005-3-16 21:44:07

晓东工具箱里就有

spshchen · 发表于 2005-3-23 07:01:32

如果把普通的线和曲线连成一条线方便吗》？

qiaqiadeng · 发表于 2006-6-26 11:39:19

完全满足楼主要求：
(defun C:gr () ;(/ cxo bxo  ss l n co e e1 e2 e3 e4 e5 e6 r1 r2)
  (setvar "cmdecho" 0)
  (if (setq www (getint "\n请输入合并后的线宽<40>："))
(setq www www)
(setq www 40)
  )
  (setq ss (ssget))
  (setq l 0
n (sslength ss)
  )
  (while (< l n)
(setq e  (ssname ss l)
   e1 (entget e)
   e2 (cdr (assoc 0 e1))
)
(if (or (= "LINE" e2) (= "ARC" e2))
   (command "pedit" e "Y" "J" ss "" "")
)
(if (= "POLYLINE" e2)
   (command "pedit" e "0" "J" ss "" "")
)
(setq l (+ l 1))
  )
  (command "pedit" "l" "w" www "")
  (princ)
)

lshpool · 发表于 2006-6-27 01:26:22

不能解决线段不闭合的情况呀,如果不闭合,并且有圆弧,线段与圆弧相离,延长也不能闭合,能不能找到最近点让他闭合,最好能支持块中的图元

hhzcfx · 发表于 2006-12-1 09:13:21

最初由 luob72 发布
[B]我这里有一个，也许可以解决你的问题，不过我是在2005上用的。 [/B]

我用的2007里就有此功能了

西爱弟 · 发表于 2007-2-18 23:36:26

最简单用PEDIT作一个宏就行了

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

[编程申请]：求自动把若干线段首尾相连的程序

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

相关帖子