框选两线相连并合并成一条直线

【KAIXIN】

Andyhon 发表于 2011-12-12 16:40
您试试 IntelliJoin.Lsp
http://www.google.com/search?q=%22IntelliJoin.Lsp

  谢谢！已经搞定，用JOIN的加强.........

ahwx0814

如果线段不多的话，可以使用join加强版

2.                                         ;
   
3. (defun ss-sslist (ss / n en enlis)
   
4.   (setq n (sslength ss))
   
5.   (repeat n
   
6.     (setq en (ssname ss (setq n (1- n))))
   
7.     (setq enlis (cons en enlis))
   
8.   )
   
9. )
   
10. (defun c:test (/ ss)
    
11.   (setvar "CMDECHO" 0)
    
12.   (command "undo" "be")
    
13.   (setq ss (ssget))
    
14.   (setq ss (ss-sslist ss))
    
15.   (foreach x ss
    
16.     (mapcar '(lambda (y)
    
17.                (command "join" x y "")
    
18.              )
    
19.             ss
    
20.     )
    
21.   )
    
22.   (command "undo" "e")
    
23.   (setvar "CMDECHO" 1)
    
24.   (princ)
    
25. )
    

                                        ;<br /> (defun ss-sslist (ss / n en enlis)<br />   (setq n (sslength ss))<br />   (repeat n<br />     (setq en (ssname ss (setq n (1- n))))<br />     (setq enlis (cons en enlis))<br />   )<br /> )<br /> (defun c:test (/ ss)<br />   (setvar "CMDECHO" 0)<br />   (command "undo" "be")<br />   (setq ss (ssget))<br />   (setq ss (ss-sslist ss))<br />   (foreach x ss<br />     (mapcar '(lambda (y)<br />                (command "join" x y "")<br />              )<br />             ss<br />     )<br />   )<br />   (command "undo" "e")<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

【KAIXIN】

ahwx0814 发表于 2011-12-12 16:57
如果线段不多的话，可以使用join加强版

谢谢！学习了这个

198526

经简
学习了

甲子元

怎样实现的？请告之，源码

weimeng555

最近刚好需要这个功能的插件，但是需要的是求批量多根直线求交点，每跟直线两端都能找到交点的功能