删除图形上多余节点（同一直线上的多余节点及重复的节点）

我来看MM的

多谢多位论坛高手的指导，慢慢才把这个功能给磨出来。小弟是个初学者，可能写的不够简洁，希望大家给点意见，看看可不可以简化。
代码中有参考greatlmy 楼主，在http://bbs.mjtd.com/forum.php?mo ... &fromuid=202795发的表处理函数。先说声谢谢了。

2. (defun c:sd(/ om ss l_length i j n mm z data new_list last_list m_list en en_data old_pt_num f_list b_list pt1 pt2 pt_1 pt_2 pt_3
   
3.               pt_num ang1 ang2 ang_d new_en_data new_pt_num)
   
4.   (SETVAR "CMDECHO" 0)
   
5.   (setq om (getvar "osmode"))                            ;取得对象捕捉的位码
   
6.   (setvar "osmode" 0)                                    ;关掉对象捕捉
   
7.   (setq ss (ssget  '((0 . "LWPOLYLINE"))));选择多个对象
   
8.   (setq l_length 0)
   
9.   (repeat (sslength ss)
   
10.     (setq i 0
    
11.           j 0
    
12.           n 0
    
13.           z 0
    
14.           mm 0
    
15.           data (list '(0 0))
    
16.           new_list (list '(0 0))
    
17.           last_list (list '(0 0))
    
18.           m_list (list '(0 0))
    
19.     )
    
20.     (setq en (ssname ss l_length));获取第“l_length”个对象的对象名
    
21.     (setq en_data (entget en));获取对象列表
    
22.     (setq old_pt_num (assoc 90 en_data))
    
23.   (if (> (cdr old_pt_num) 2)
    
24.    (progn
    
25.    
    
26.     (setq b_list (list(car (reverse en_data))));获取对象数据中最后一个列表数据（群码 210）
    
27.    
    
28.     ;;;获取新的列表格式为每个节点坐标及40、41、42群码为一个列表，与其他节点的列表合为一个列表
    
29.     (while (/= (nth j en_data) nil)
    
30.       (if (=(car(nth j en_data)) 10)
    
31.         (progn
    
32.          (setq data (append (list(list (nth j en_data) (nth (+ j 1) en_data) (nth (+ j 2) en_data) (nth (+ j 3) en_data))) data))
    
33.          (setq z (+ z 1))
    
34.          (if (= z 1)
    
35.            (setq f_list (carnth j en_data));获取对象数据中第一个节点坐标前的列表数据
    
36.          );end if
    
37.         );end progn
    
38.       );end if
    
39.       (setq j (+ j 1))
    
40.      );end while
    
41.     (setq data (cdr(reverse data)))
    
42.    
    
43.    ;;;判断两点是否相同，是则将相同点的列表删除
    
44.     (while (/= (nth i data) nil)
    
45.       (setq pt1  (cdr (car (nth i data))))
    
46.       (if (/= (nth (+ i 1) data) nil)
    
47.          (setq pt2  (cdr (car (nth (+ i 1) data))))
    
48.          (setq pt2  (cdr (car (nth 0 data))))      
    
49.        );end if
    
50.       (if (or (>= (distance pt1 pt2) 0.0001) (/= (cdr (car (reverse (nth i data )))) 0 ))
    
51.         (setq new_list (append (list (nth i data )) new_list))
    
52.        );end if
    
53.       (setq i (+ i 1))
    
54.     );end while
    
55.     (setq new_list (cdr(reverse new_list)))
    
56.    
    
57.     ;;;删除同一条线上的点
    
58.     (while (/= (nth n new_list) nil)
    
59.       (setq pt_1 (cdr (car (nth n new_list))))
    
60.       (if (/= (nth (+ n 1) new_list) nil)
    
61.         (setq pt_2 (cdr (car (nth (+ n 1) new_list))))
    
62.         (setq pt_2 (cdr (car (nth 0 new_list))))
    
63.       );end if
    
64.       (if (/= (nth (+ n 2) new_list) nil)
    
65.         (setq pt_3 (cdr (car (nth (+ n 2) new_list))))
    
66.         (if (/= (nth (+ n 1) new_list) nil)
    
67.           (setq pt_3 (cdr (car (nth 0 new_list))))
    
68.           (setq pt_3 (cdr (car (nth 1 new_list))))
    
69.         );end if
    
70.       );end if
    
71.       (setq ang1 (angle pt_2 pt_1))
    
72.       (setq ang2 (angle pt_2 pt_3))
    
73.       (setq ang_d (- ang2 ang1))
    
74.       (if (and (>= (abs ang_d) 0.001) (>= (abs (- (abs ang_d) pi)) 0.001))
    
75.         (if (/= (nth (+ n 1) new_list) nil)
    
76.          (setq last_list (append (list (nth (+ n 1) new_list)) last_list))
    
77.          (setq last_list (append (list (nth 0 new_list)) last_list))
    
78.         );end if  
    
79.       );end if
    
80.       (setq n (+ n 1))
    
81.     );end while
    
82.     (setq last_list (cdr(reverse last_list)))
    
83.     (setq last_list (append (list(car (reverse last_list))) (reverse (cdr (reverse last_list)))));获得最终节点列表
    
84.     (setq pt_num (length last_list));获取最后节点坐标的个数
    
85.    
    
86.     ;;;将各节点与40、41、42合成的列表分开并与其他节点列表合为统一个列表，格式为对象数据的列表格式
    
87.     (while (/= (nth mm last_list) nil)
    
88.       (setq nn 0)
    
89.       (while (/= (nth nn (nth mm last_list)) nil)
    
90.         (setq m_list (append (list(nth nn (nth mm last_list))) m_list))
    
91.         (setq nn (+ nn 1))
    
92.       );end while
    
93.         (setq mm (+ mm 1))
    
94.      );end while
    
95.     (setq m_list (cdr(reverse m_list)))
    
96.    
    
97.     ;;;对象更新
    
98.     (setq new_en_data (append f_list m_list b_list))
    
99.     (setq new_pt_num (cons 90 pt_num))
    
100.     (setq new_en_data (subst new_pt_num old_pt_num new_en_data))
     
101.     (entmod new_en_data)
     
102.     (setq l_length (+ l_length 1))
     
103.    );end progn
     
104.   );end if  
     
105. );end repeat
     
106.    (setvar "osmode" om)
     
107.    (alert "多余节点删除完毕！")
     
108. )
     
109. 
     
110. (defun carnth (m l)                        
     
111. ; 表取头,保留表L前面I-1个元素，函数返回新表  
     
112. (if (= m (length l))
     
113.   l   
     
114. (progn
     
115.       (setq l (reverse l)
     
116.             m (- (length l) m 1)
     
117.             l (cdrnth m l)
     
118.       )
     
119.      (reverse l)
     
120.     )
     
121.   )
     
122. )
     
123. (defun cdrnth (m l)
     
124. ; 表取尾,去除表L后面I个元素，函数返回新表
     
125.         (repeat (1+ m) (setq l (cdr l)))
     
126. )
     

(defun c:sd(/ om ss l_length i j n mm z data new_list last_list m_list en en_data old_pt_num f_list b_list pt1 pt2 pt_1 pt_2 pt_3<br />               pt_num ang1 ang2 ang_d new_en_data new_pt_num)<br />   (SETVAR "CMDECHO" 0)<br />   (setq om (getvar "osmode"))                            ;取得对象捕捉的位码<br />   (setvar "osmode" 0)                                    ;关掉对象捕捉<br />   (setq ss (ssget  '((0 . "LWPOLYLINE"))));选择多个对象<br />   (setq l_length 0)<br />   (repeat (sslength ss)<br />     (setq i 0<br />           j 0<br />           n 0<br />           z 0<br />           mm 0<br />           data (list '(0 0))<br />           new_list (list '(0 0))<br />           last_list (list '(0 0))<br />           m_list (list '(0 0))<br />     )<br />     (setq en (ssname ss l_length));获取第“l_length”个对象的对象名<br />     (setq en_data (entget en));获取对象列表<br />     (setq old_pt_num (assoc 90 en_data))<br />   (if (> (cdr old_pt_num) 2)<br />    (progn<br />     <br />     (setq b_list (list(car (reverse en_data))));获取对象数据中最后一个列表数据（群码 210）<br />     <br />     ;;;获取新的列表格式为每个节点坐标及40、41、42群码为一个列表，与其他节点的列表合为一个列表<br />     (while (/= (nth j en_data) nil)<br />       (if (=(car(nth j en_data)) 10)<br />         (progn<br />          (setq data (append (list(list (nth j en_data) (nth (+ j 1) en_data) (nth (+ j 2) en_data) (nth (+ j 3) en_data))) data))<br />          (setq z (+ z 1))<br />          (if (= z 1)<br />            (setq f_list (carnth j en_data));获取对象数据中第一个节点坐标前的列表数据<br />          );end if<br />         );end progn <br />       );end if<br />       (setq j (+ j 1))<br />      );end while<br />     (setq data (cdr(reverse data)))<br />     <br />    ;;;判断两点是否相同，是则将相同点的列表删除<br />     (while (/= (nth i data) nil)<br />       (setq pt1  (cdr (car (nth i data))))<br />       (if (/= (nth (+ i 1) data) nil)<br />          (setq pt2  (cdr (car (nth (+ i 1) data))))<br />          (setq pt2  (cdr (car (nth 0 data))))      <br />        );end if<br />       (if (or (>= (distance pt1 pt2) 0.0001) (/= (cdr (car (reverse (nth i data )))) 0 ))<br />         (setq new_list (append (list (nth i data )) new_list))<br />        );end if<br />       (setq i (+ i 1))<br />     );end while<br />     (setq new_list (cdr(reverse new_list)))<br />     <br />     ;;;删除同一条线上的点<br />     (while (/= (nth n new_list) nil)<br />       (setq pt_1 (cdr (car (nth n new_list))))<br />       (if (/= (nth (+ n 1) new_list) nil)<br />         (setq pt_2 (cdr (car (nth (+ n 1) new_list))))<br />         (setq pt_2 (cdr (car (nth 0 new_list))))<br />       );end if<br />       (if (/= (nth (+ n 2) new_list) nil)<br />         (setq pt_3 (cdr (car (nth (+ n 2) new_list))))<br />         (if (/= (nth (+ n 1) new_list) nil)<br />           (setq pt_3 (cdr (car (nth 0 new_list))))<br />           (setq pt_3 (cdr (car (nth 1 new_list))))<br />         );end if<br />       );end if<br />       (setq ang1 (angle pt_2 pt_1))<br />       (setq ang2 (angle pt_2 pt_3))<br />       (setq ang_d (- ang2 ang1))<br />       (if (and (>= (abs ang_d) 0.001) (>= (abs (- (abs ang_d) pi)) 0.001))<br />         (if (/= (nth (+ n 1) new_list) nil)<br />          (setq last_list (append (list (nth (+ n 1) new_list)) last_list))<br />          (setq last_list (append (list (nth 0 new_list)) last_list))<br />         );end if  <br />       );end if<br />       (setq n (+ n 1))<br />     );end while<br />     (setq last_list (cdr(reverse last_list)))<br />     (setq last_list (append (list(car (reverse last_list))) (reverse (cdr (reverse last_list)))));获得最终节点列表<br />     (setq pt_num (length last_list));获取最后节点坐标的个数<br />     <br />     ;;;将各节点与40、41、42合成的列表分开并与其他节点列表合为统一个列表，格式为对象数据的列表格式<br />     (while (/= (nth mm last_list) nil)<br />       (setq nn 0)<br />       (while (/= (nth nn (nth mm last_list)) nil)<br />         (setq m_list (append (list(nth nn (nth mm last_list))) m_list))<br />         (setq nn (+ nn 1))<br />       );end while<br />         (setq mm (+ mm 1))<br />      );end while<br />     (setq m_list (cdr(reverse m_list)))<br />     <br />     ;;;对象更新<br />     (setq new_en_data (append f_list m_list b_list))<br />     (setq new_pt_num (cons 90 pt_num))<br />     (setq new_en_data (subst new_pt_num old_pt_num new_en_data))<br />     (entmod new_en_data)<br />     (setq l_length (+ l_length 1))<br />    );end progn<br />   );end if  <br /> );end repeat<br />    (setvar "osmode" om)<br />    (alert "多余节点删除完毕！")<br /> )<br /> <br /> (defun carnth (m l)                        <br /> ; 表取头,保留表L前面I-1个元素，函数返回新表  <br /> (if (= m (length l)) <br />   l    <br /> (progn<br />       (setq l (reverse l)<br />             m (- (length l) m 1)<br />             l (cdrnth m l)<br />       ) <br />      (reverse l)<br />     )<br />   )<br /> )<br /> (defun cdrnth (m l) <br /> ; 表取尾,去除表L后面I个元素，函数返回新表<br />         (repeat (1+ m) (setq l (cdr l)))<br /> )<br />

evayleung

这功能好，经常软件生成的剪力墙是一段段的，连成线后又是很多多余的节点，这个刚好适用，谢谢分享

GDFGFGF

很给力，只是运行是捕捉会自动关调，能不能在调试下

半夜星星

如果是一条直线的多义线，就删除图形了，出错了

spp_wall

能上个图更好

shxm112233

试试看看！！！

spp_wall

能不能改成缓和曲线的多余节点

lingduwx

顶你了楼主，非常好用，只是感觉"多余节点删除完毕"这个提示能否只在命令行显示即可，那样就更好了

我来看MM的

lingduwx 发表于 2013-12-19 10:02
顶你了楼主，非常好用，只是感觉"多余节点删除完毕"这个提示能否只在命令行显示即可，那样就更好了

你可以自行将后面那句：(alert "多余节点删除完毕！")删除，换成princ格式的提示就行了。看个人习惯了

zyhandw

不错，顶了！

lingduwx

我来看MM的 发表于 2013-12-19 13:20
你可以自行将后面那句：(alert "多余节点删除完毕！")删除，换成princ格式的提示就行了。看个人习惯了

...

谢谢，搞定了

434939575

这个很好用。感谢。但对于对于单段有多余点PLINE线没处理结果删除线了。

lsjj

當他是練習吧
直接用overkill就可以了