[求助]：如何用LISP去掉属性块的属性而块不变

橄榄滋味

CAD中有条命令eattedit可以将属性块的属性删除，但发现必须要留下至少一个属性。现在想用LISP将它属性全部删除，并且保留除属性外的一切内容不变，甚至块名。提出原因：有些图纸上字符信息是属性块，当被不喜欢属性块的人使用时，就想去掉属性，但保留块其它内容不变，例如块中的表格，标记等。

aeo

2. 
   
3. (defun c:test( / e ins)
   
4.    (setq ins(entget(setq e(car(entsel)))))
   
5.    (setq ins(subst '(66 . 0)(assoc 66 ins)ins))
   
6.    (entmake ins)
   
7.    (entdel e)
   
8.    (princ)
   
9. )
   

<br /> (defun c:test( / e ins)<br />    (setq ins(entget(setq e(car(entsel)))))<br />    (setq ins(subst '(66 . 0)(assoc 66 ins)ins))<br />    (entmake ins)<br />    (entdel e)<br />    (princ)<br /> )<br />

雨箭风刀

和aeo版主探讨一下。
用entmake生成了新块，但不是改块。原有图面的同名块不能更新。如果更新其他同名块，是不是会有很多属性变成了“孤儿”，因此更新的时候是不是也要删除属性
我的建议是：
方法1：
将块属性设为不可见 (visible    flase)
方法2:
直接删除所以同名块的属性。

橄榄滋味

首先谢谢2楼，这样做的结果已经满足我的要求。至于3楼说的方法1，虽然可以将块属性设为不可见，但是在鼠标双击块时，还是会看到属性和属性值，我不希望有这样的效果，至于方法2直接删除属性是很好的，可是怎样才能做到呢？我发现很多的修改，都是删除旧的，重新创建新的，表面看来是修改，实际上不是。“将圆变为多义线”的程序就是这样的，删除旧的圆，创建了个内外半径相同的“圆环”(dount)。再次谢谢2楼和3楼，如果有机会，可以通过email探讨一些问题mzrevol@sina.com

eachy

以前好像贴过一个这样的程序，再贴一次。

命令: kilatt