[求助]请问如何去除图元的扩展数据？

yxyfy

请问如何去除图元的扩展数据?也就是去除图元的数据列表的(-3)项?

ljttjl

使用subst函数置换-3组码即可，例如：

(setq a (entget (car (entsel)) '("jmz")))

(entmod (subst '(-3 ("jmz")) (assoc -3 a) a))

注意新项当中只有-3组码和应用程序名，其它无任何数据，进行置换数据。即可去掉扩展数据。