求多条断开的线一次性闭合,请老师们帮忙解决,谢谢了

蛧络诳泷

求多条断开的线一次性闭合,请老师们帮忙解决,谢谢了

蛧络诳泷

但要保持原有的线位置等等不改变,谢谢

蛧络诳泷

请各位大师出手相助!

自贡黄明儒

你这个真的让人很难猜，如果一边是原图，一边是闭合后的，一看就明白。

蛧络诳泷

自贡黄明儒 发表于 2016-7-28 14:48
你这个真的让人很难猜，如果一边是原图，一边是闭合后的，一看就明白。

谢谢关注!附图上来让老师帮忙,非常感谢,现在工作停下来就等这功能,太多断开的一条一条连接很费时间

dabingrain

批量用join连接吧

dabingrain

2. (defun C:JOIN(/ E E1 EN EN1 I N ssLine a b c)
   
3.   (princ  "\n请选择直线：")
   
4.   (setq ssLine (ssget '((0 . "LINE"))))
   
5.   (setq i 0)
   
6.   (setq ssnum (1- (sslength ssline)))
   
7.   (while (< i ssnum)
   
8.     (setq e (ssname ssline i))
   
9.     (setq j i)
   
10.     (while (< j ssnum)
    
11.       (setq e1 (ssname ssline (setq j (1+ j))))
    
12.       (vl-cmdf "_join" e e1 "")
    
13.     )
    
14.     (setq i (1+ i))
    
15.   )
    
16.   (princ)
    
17. )

(defun C:JOIN(/ E E1 EN EN1 I N ssLine a b c)<br />   (princ  "\n请选择直线：")<br />   (setq ssLine (ssget '((0 . "LINE"))))<br />   (setq i 0)<br />   (setq ssnum (1- (sslength ssline)))<br />   (while (< i ssnum)<br />     (setq e (ssname ssline i))<br />     (setq j i)<br />     (while (< j ssnum)<br />       (setq e1 (ssname ssline (setq j (1+ j))))<br />       (vl-cmdf "_join" e e1 "")<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )

蛧络诳泷

dabingrain 发表于 2016-7-28 16:31

感谢老师出手帮忙,目前测试了线路太多时无法实现,只有少量几条线才可以,另可否控制在断开5米以内才连接?有的线不应连接的但正好碰上在同一直线上,谢谢

蛧络诳泷

请老师帮忙改改好吗

蛧络诳泷

有好心人继续吗,谢谢你们了