大侠们进来看看，稀疏多段线节点能做到吗？

wanhongron

还是经常用矢量图刻绘，节点太密，想稀疏一下，大概意思是每隔5个节点就删掉4个保留1个，这样刻绘起来下刀没那么密，还请大侠们多多指教！

cable2004

2. (defun c:tt()
   
3.    (setq ss (ssget '((0 . "LWPOLYLINE"))))
   
4.    (if ss
   
5.    (foreach e1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   
6.      (setq e (entget e1)
   
7.            h (reverse (member (assoc 39 e) (reverse e)))
   
8.            l (LM:LWVertices e)
   
9.            z (assoc 210 e)
   
10.            i -1 lst nil)
    
11.      (foreach a l (if (= 0 (rem (setq i (1+ i)) 4)) (setq lst (cons a lst))))
    
12.      (entmod (append h(apply 'append (reverse lst))(list z)))
    
13. ))
    
14.    (princ)
    
15. )
    
16. ;; LW Vertices  -  Lee Mac
    
17. ;; Returns a list of lists in which each sublist describes
    
18. ;; the position, starting width, ending width and bulge of the
    
19. ;; vertex of a supplied LWPolyline
    
20. (defun LM:LWVertices ( e )
    
21.     (if (setq e (member (assoc 10 e) e))
    
22.         (cons
    
23.             (list
    
24.                 (assoc 10 e)
    
25.                 (assoc 40 e)
    
26.                 (assoc 41 e)
    
27.                 (assoc 42 e)
    
28.             )
    
29.             (LM:LWVertices (cdr e))
    
30. )))
    
31. 
    
32. (vl-load-com) (princ)

(defun c:tt()<br />    (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />    (if ss<br />    (foreach e1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))<br />      (setq e (entget e1)<br />            h (reverse (member (assoc 39 e) (reverse e)))<br />            l (LM:LWVertices e)<br />            z (assoc 210 e)<br />            i -1 lst nil)<br />      (foreach a l (if (= 0 (rem (setq i (1+ i)) 4)) (setq lst (cons a lst))))<br />      (entmod (append h(apply 'append (reverse lst))(list z)))<br /> ))<br />    (princ) <br /> )<br /> ;; LW Vertices  -  Lee Mac<br /> ;; Returns a list of lists in which each sublist describes<br /> ;; the position, starting width, ending width and bulge of the<br /> ;; vertex of a supplied LWPolyline<br /> (defun LM:LWVertices ( e )<br />     (if (setq e (member (assoc 10 e) e))<br />         (cons<br />             (list<br />                 (assoc 10 e)<br />                 (assoc 40 e)<br />                 (assoc 41 e)<br />                 (assoc 42 e)<br />             )<br />             (LM:LWVertices (cdr e))<br /> )))<br /> <br /> (vl-load-com) (princ)

wanhongron

cable2004侠真是好人，每次提问题都帮热心解决，小妹无以为报，感激不尽！！！

wanhongron

鲜花赠大侠！

wanhongron

各位大侠，还有个小小的建议，按这个程序有可能会出现最后的端点被删除，如多段线有12个端点，每隔4个删除1个，那么最后1个刚好就被删除了，能增加一个判断保证最后的端点不被删除吗？

wanhongron

还是要烦请cable2004侠出马。。

hmseu

谢谢cable2004

qazxswk

cable2004 发表于 2015-8-2 18:07

这个效率很高呀。