分享个批量连线的练手功能

amwkto2011

2. [code=lisp](defun c:Tt(/ get len nn ns j )
   
3. (setq get (ssget))
   
4. (setq len (sslength get))
   
5. (repeat len
   
6.   (setq nn (ssname get (setq len (1- len))))
   
7.   (setq ns (cons nn ns))
   
8.   )
   
9.   (foreach j ns
   
10.   (mapcar '(lambda (x)(command "_.JOIN" j x "")) ns)
    
11.   )
    
12.   (princ)
    
13.   )
    
14. 
    
15. ;对mapcar lambda 也不是很会用，论坛几位网友指点下用法,勉强用一下，练练手
    
16. ;感谢他们的指点，就不点名了
    
17. ;有需要用到这功能的，就拿去吧，只是线对齐才有用，不对齐连不上
    
18. ;高手能优化一下，不对齐也能连上就更好了。

[code=lisp](defun c:Tt(/ get len nn ns j )<br /> (setq get (ssget))<br /> (setq len (sslength get))<br /> (repeat len<br />   (setq nn (ssname get (setq len (1- len))))<br />   (setq ns (cons nn ns))<br />   )<br />   (foreach j ns<br />   (mapcar '(lambda (x)(command "_.JOIN" j x "")) ns)<br />   )<br />   (princ)<br />   )<br /> <br /> ;对mapcar lambda 也不是很会用，论坛几位网友指点下用法,勉强用一下，练练手<br /> ;感谢他们的指点，就不点名了<br /> ;有需要用到这功能的，就拿去吧，只是线对齐才有用，不对齐连不上<br /> ;高手能优化一下，不对齐也能连上就更好了。

[/code]

Lispboy

每日插件里面有一个，不对齐的也能连，你参考下代码。

amwkto2011

Lispboy 发表于 2014-12-15 11:38
每日插件里面有一个，不对齐的也能连，你参考下代码。

好的，去看看

/db_自贡黄明儒_

哪个版本开始才有JOIN命令，不加个条件吗？

amwkto2011

/db_自贡黄明儒_ 发表于 2014-12-15 11:53
哪个版本开始才有JOIN命令，不加个条件吗？

我也不知道哪个版本才有JOIN的
黄大师帮忙优化下啊。

/db_自贡黄明儒_

amwkto2011 发表于 2014-12-15 11:54
我也不知道哪个版本才有JOIN的
黄大师帮忙优化下啊。

我一直用overkill,也少用高版本，所以也不知道这个什么时候钻出来的。

Lispboy

amwkto2011 发表于 2014-12-15 11:42
好的，去看看

相关的有两个，

http://www.xdcad.net/forum/thread-675839-1-1.html

http://www.xdcad.net/forum/thread-677704-1-1.html

amwkto2011

Lispboy 发表于 2014-12-15 12:06
相关的有两个，

http://www.xdcad.net/forum/thread-675839-1-1.html

谢谢了{:soso_e100:}

吴外安放

谢谢版主分享