批量打开封闭的多段线，AutoLISP实现

Lisphk

1. (defun c:openply (/ i s x)
   
2.   (if (setq s (ssget "_:L" '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))
   
3.     (repeat (setq i (sslength s))
   
4.       (setq i (1- i)
   
5.             x (entget (ssname s i))
   
6.             x (subst (cons 90 (1+ (cdr (assoc 90 x)))) (assoc 90 x) x)
   
7.             x (subst (cons 70 (logand (cdr (assoc 70 x)) (~ 1)))
   
8.                      (assoc 70 x)
   
9.                      x
   
10.               )
    
11.       )
    
12.       (entmod
    
13.         (append        (reverse (cdr (reverse x)))
    
14.                 (mapcar '(lambda (k) (assoc k x)) '(10 40 41 42 91))
    
15.                 (list (assoc 210 x))
    
16.         )
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

(defun c:openply (/ i s x)<br />   (if (setq s (ssget "_:L" '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))))<br />     (repeat (setq i (sslength s))<br />       (setq i (1- i)<br />             x (entget (ssname s i))<br />             x (subst (cons 90 (1+ (cdr (assoc 90 x)))) (assoc 90 x) x)<br />             x (subst (cons 70 (logand (cdr (assoc 70 x)) (~ 1)))<br />                      (assoc 70 x)<br />                      x<br />               )<br />       )<br />       (entmod<br />         (append        (reverse (cdr (reverse x)))<br />                 (mapcar '(lambda (k) (assoc k x)) '(10 40 41 42 91))<br />                 (list (assoc 210 x))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

ynhh

打开封闭的多段线
请教大师
这打开是不是应指定个位置才好

sicky111

谢谢分享。

coverne

加载试试看

yoyoho

谢谢分享!!!!!