批量交点打断（秒杀）

【KAIXIN】

w245272914 发表于 2011-12-15 13:53
KAIIXIN 我来看你来了。

  谢谢！

328302216

有没有把断的合并成一条直线的程序啊！！比如两条直线首尾相连的合并成一条

【KAIXIN】

328302216 发表于 2011-12-15 15:17
有没有把断的合并成一条直线的程序啊！！比如两条直线首尾相连的合并成一条

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 /> )

qq229918602

厉害。。。支持

缘份呐

不行呀，我下不了呀

longer1000

有这个功能用就可以

flytoday

【KAIXIN】

flytoday 发表于 2011-12-16 11:15

你没仔细用程序，有提示打断不了多段线！

不过解决办法是用分解功能可以分解。

2. ;打碎多段线线
   
3. (defun c:KK ()
   
4.   (if (setq ss (ssget "X" '((0 . "*POLYLINE"))))
   
5.     (command "_explode" ss "")
   
6.   )
   
7. )
   

;打碎多段线线<br /> (defun c:KK ()<br />   (if (setq ss (ssget "X" '((0 . "*POLYLINE"))))<br />     (command "_explode" ss "")<br />   )<br /> )<br />

flytoday

【KAIXIN】 发表于 2011-12-16 11:23
你没仔细用程序，有提示打断不了多段线！

不过解决办法是用分解功能可以分解。

太强大了~~~~~~~~

【KAIXIN】

flytoday 发表于 2011-12-16 13:24
太强大了~~~~~~~~

谢谢！比起版主们我差远了！

好的东西你适当的支持下我就行！