[求助]用lisp如何删除文字样式中-3组码????

crtrccrt

用lisp如何删除文字样式中-3组码?
文字样式原定义为宋体,部分组码如下:
(3 . SimSun.ttf)
(4 . )
(-3 (ACAD (1000 . SimSun) (1071 . 34306)))
将3和4组码替换后,部分组码如下:
(3 . tssdeng.shx)
(4 . tssdchn.shx)
(-3 (ACAD (1000 . SimSun) (1071 . 34306)))
用lisp如何删除文字样式中-3组码?

liu22737

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=42670&replyID=&skin=1

crtrccrt

2楼的连接是解决实体的扩展信息.实体扩展信息的删除可以使用删除再生成的办法,即(entmake (entget ent))   和(entdel ent) [ent为实体],使用中的文字样式能删除吗??,对于未使用的文字样式可以使用删除和重新生成的办法,使用中的文字样式呢?????