多义线拐点打断

画图工

一些想要这样的程序.
1.选择多义线,执行一个命令,多义线在各个拐点分别断开.

炫翔

:o这个可以直接用炸开命令

aeo

:lol:lol:lol:Q:Q:funk::funk:;P;P

1. 
   

复制代码

2. 
   
3. (defun c:epp( / i j l-b l-e pl pn pts pts1 x ss olderr)
   
4.    ;;by Aeo ---- bbs.xdcad.org
   
5.     (prompt "\n选择需炸开成单段的PL线: ")
   
6.     (setq j 0)
   
7.     (setq olderr *error* *error* '((msg)(setq *error* olderr)(command "undo""end")))
   
8.     (command "undo""group")
   
9.     (if (setq ss(ssget '((0 . "LWPOLYLINE"))))
   
10.         (while(< j (sslength ss))
    
11.             (setq pl(ssname ss j)
    
12.                   j (1+ j)
    
13.                   pn(entget pl '("*"))
    
14.                   l-b(vl-remove-if '(lambda(x)(if (= 10(car x))(setq i t)) i) pn )
    
15.                   l-b(vl-remove-if '(lambda(x)(member (car x)'(-1 5 330 90 70)))l-b )
    
16.                   l-b(append l-b '((90 . 2)(70 . 0)))
    
17.                   pts(vl-remove-if-not '(lambda(x)(member (car x)'(10 40 41 42)))pn )
    
18.                   pts(if(= 1(cdr(assoc 70 pn)))(append pts (list(car pts)))pts)
    
19.                   l-e(reverse(vl-remove-if '(lambda(x)(if (= 42(car x))(setq i nil)) (not i)) (reverse pn) ))
    
20.             )
    
21.             (while (>(length pts )4)  
    
22.                 (setq pts1(mapcar '(lambda (x y)x) pts '(0 0 0 0 0)))
    
23.                 (setq pts(cddddr pts))
    
24.                 (if(>(distance(car pts1)(last pts1))1e-6) ;去掉0长度，可能会去掉无限接近圆的弧线
    
25.                     (entmakex (append l-b pts1 l-e))
    
26.                 )
    
27.             )
    
28.             (entdel pl)
    
29. 
    
30.     ))  
    
31.     (command "undo""end")
    
32.     (setq *error* olderr)
    
33.     (princ "\nOK")(princ)
    
34. )
    
35. 
    

<br /> (defun c:epp( / i j l-b l-e pl pn pts pts1 x ss olderr)<br />    ;;by Aeo ---- bbs.xdcad.org<br />     (prompt "\n选择需炸开成单段的PL线: ")<br />     (setq j 0)<br />     (setq olderr *error* *error* '((msg)(setq *error* olderr)(command "undo""end")))<br />     (command "undo""group")<br />     (if (setq ss(ssget '((0 . "LWPOLYLINE"))))<br />         (while(< j (sslength ss))<br />             (setq pl(ssname ss j)<br />                   j (1+ j) <br />                   pn(entget pl '("*"))<br />                   l-b(vl-remove-if '(lambda(x)(if (= 10(car x))(setq i t)) i) pn )<br />                   l-b(vl-remove-if '(lambda(x)(member (car x)'(-1 5 330 90 70)))l-b )<br />                   l-b(append l-b '((90 . 2)(70 . 0)))<br />                   pts(vl-remove-if-not '(lambda(x)(member (car x)'(10 40 41 42)))pn )<br />                   pts(if(= 1(cdr(assoc 70 pn)))(append pts (list(car pts)))pts)<br />                   l-e(reverse(vl-remove-if '(lambda(x)(if (= 42(car x))(setq i nil)) (not i)) (reverse pn) ))<br />             )<br />             (while (>(length pts )4)  <br />                 (setq pts1(mapcar '(lambda (x y)x) pts '(0 0 0 0 0)))<br />                 (setq pts(cddddr pts))<br />                 (if(>(distance(car pts1)(last pts1))1e-6) ;去掉0长度，可能会去掉无限接近圆的弧线<br />                     (entmakex (append l-b pts1 l-e))<br />                 ) <br />             )<br />             (entdel pl)<br /> <br />     ))  <br />     (command "undo""end")<br />     (setq *error* olderr)<br />     (princ "\nOK")(princ)<br /> )<br /> <br />

entmake 方法,pl线端点打断，

命令： epp , 自己改名字吧

st788796

拐要有个规则，什么算拐点？
有了规则才可以用entget表再更新和新建