[求助]：请问如何删除已建立的扩展数据项目？

xcajcj

请问各位朋友：如何删除已建立的扩展数据项目：1000、1040、1070 ？

aeo

把entget得到的表里的1000、1040、1070 删除,再entmod

ll_j

重新建立-3组扩展数据表，不包含要删除的项目，然后替换。全部扩展数据的删除是使用空的-3组（如“(-3 . ("APPNAME"))”）去替换包含项目的-3组。

xcajcj

谢谢各位：昨晚已经通过编程实现了删除扩展数据。方法是，获取要删除的应用名标识，把它后面的所有数据项清除，只保留应用标识名(注册名)，然后更新实体数据，那么ACAD就会把只有应用标识名(注册名)而没有数据的“一组扩展实体数据”删除掉。
再次谢谢晓东CAD空间的朋友们。

陌生人

直接用（entget e) 得到的实体表entmod 试过么？

ll_j

最初由 陌生人 发布
[B]直接用（entget e) 得到的实体表entmod 试过么？ [/B]

不行！必须用相同名称的-3组码替代。

1. 
   
2. 命令: (entmod (entget (car (entsel))))
   
3. 选择对象: ((-1 . <图元名: 40078d58>) (0 . "LINE") (330 . <图元名: 40078cf8>) (5
   
4. . "2B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
   
5. "AcDbLine") (10 209.29 84.5816 0.0) (11 298.08 152.908 0.0) (210 0.0 0.0 1.0))
   
6. 
   
7. 命令: (entget (car (entmode))  '("*"))
   
8. 选择对象: ((-1 . <图元名: 40078d58>) (0 . "LINE") (330 . <图元名: 40078cf8>) (5
   
9. . "2B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
   
10. "AcDbLine") (10 209.29 84.5816 0.0) (11 298.08 152.908 0.0) (210 0.0 0.0 1.0)
    
11. [B](-3 ("AS" (1002 . "{") (1010 299.902 154.311 0.0) (1002 . "}"))))[/B]
    

复制代码