求多条断开的线一次性闭合,请老师们帮忙解决,谢谢了
求多条断开的线一次性闭合,请老师们帮忙解决,谢谢了 但要保持原有的线位置等等不改变,谢谢 请各位大师出手相助! 你这个真的让人很难猜,如果一边是原图,一边是闭合后的,一看就明白。 自贡黄明儒 发表于 2016-7-28 14:48 static/image/common/back.gif你这个真的让人很难猜,如果一边是原图,一边是闭合后的,一看就明白。
谢谢关注!附图上来让老师帮忙,非常感谢,现在工作停下来就等这功能,太多断开的一条一条连接很费时间
批量用join连接吧 本帖最后由 dabingrain 于 2016-7-28 16:38 编辑
(defun C:JOIN(/ E E1 EN EN1 I N ssLine a b c)
(princ"\n请选择直线:")
(setq ssLine (ssget '((0 . "LINE"))))
(setq i 0)
(setq ssnum (1- (sslength ssline)))
(while (< i ssnum)
(setq e (ssname ssline i))
(setq j i)
(while (< j ssnum)
(setq e1 (ssname ssline (setq j (1+ j))))
(vl-cmdf "_join" e e1 "")
)
(setq i (1+ i))
)
(princ)
) dabingrain 发表于 2016-7-28 16:31 static/image/common/back.gif
感谢老师出手帮忙,目前测试了线路太多时无法实现,只有少量几条线才可以,另可否控制在断开5米以内才连接?有的线不应连接的但正好碰上在同一直线上,谢谢 请老师帮忙改改好吗 有好心人继续吗,谢谢你们了
页:
[1]
2