liu22737 发表于 2005-9-30 21:12:00

求助：怎样删除扩展信息

<P>我尝试了下面的方法，结果不行</P>
<P>(entmod(vl-remove (assoc -3 (entget&nbsp; ent&nbsp;(list "*"))) (entget ent (list "*"))))</P>

王咣生 发表于 2005-9-30 21:30:00

<P>(defun c:test ()<BR>&nbsp; (setq e (car (entsel)))<BR>&nbsp; (setq es (entget e))<BR>&nbsp; (setq es1 (entget e '("*")))<BR>&nbsp; (setq app (caadr (assoc -3 es1)))<BR>&nbsp; (if app<BR>&nbsp;&nbsp;&nbsp; (progn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq xd (list -3 (list app)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq es (append es (list xd)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entmod es)<BR>&nbsp;&nbsp;&nbsp; )<BR>&nbsp; );if<BR>)</P>
<P>先读出扩展数据的应用程序名,然后由该应用程序名构建个不包括数据项子表的表,</P>
<P>再与(entget e)的表相连,然后entmod,也就是用空的表刷新原来的表</P>

liu22737 发表于 2005-9-30 22:19:00

re

<P>多谢二楼高手指点。</P>
页: [1]
查看完整版本: 求助：怎样删除扩展信息