[求助]：如何将实体的DXF组码表中的一项删除形成新的表？

light_dream

如何将实体的DXF组码表中的一项删除形成新的表？比如组码6表示线形名，如果该组码不存在，则表示线形为BYLAYER,所以我想把该项组码删掉，使实体的线形和所在层的线形一致。不知大虾们有何高见？

lijiao

行与不行，最好自己试验一下。

前生

(cons 62 "bylayer")

ll_j

最初由 light_dream 发布
[B]如何将实体的DXF组码表中的一项删除形成新的表？比如组码6表示线形名，如果该组码不存在，则表示线形为BYLAYER,所以我想把该项组码删掉，使实体的线形和所在层的线形一致。不知大虾们有何高见？ [/B]

2. 
   
3. (setq oldl (entget ent)
   
4.       newl nil
   
5. )
   
6. (if (assoc 6 oldl)
   
7.   (progn
   
8.     (mapcar
   
9.       '(lambda(x)
   
10.          (if (/= (car x) 6)
    
11.            (setq newl(cons x newl))
    
12.          )
    
13.        )
    
14.       oldl
    
15.     )
    
16.     (setq newl (reverse newl))
    
17.   )
    
18.   (setq newl oldl)
    
19. )
    

<br /> (setq oldl (entget ent)<br />       newl nil<br /> )<br /> (if (assoc 6 oldl)<br />   (progn<br />     (mapcar<br />       '(lambda(x)<br />          (if (/= (car x) 6)<br />            (setq newl(cons x newl))<br />          )<br />        )<br />       oldl<br />     )<br />     (setq newl (reverse newl))<br />   )<br />   (setq newl oldl)<br /> )<br />

lsjjm

为什么不使用更简捷的(vl-remove 项 表) 函数呢?
(vl-remove (assoc 6 ed) DXF组码表)