如何根据组名将组里的所有实体删除，以及清除组

admin

1. AcDbDictionary *pGroupDict = NULL;
2. Acad::ErrorStatus es;
3. acdbHostApplicationServices()->workingDatabase()->getGroupDictionary(pGroupDict,AcDb::kForWrite);
4. AcDbObjectId groupId;
5. es =pGroupDict->getAt("Test",groupId);
6. if (Acad::eOk == es)
7. {
8. pGroupDict->close();
9. }
10. AcDbGroup *pGroup = NULL;
11. es = acdbOpenObject(pGroup, groupId, AcDb::kForWrite);
12. if ( Acad::eOk == es)
13. {
14. AcDbObjectIdArray arrIds;
15. pGroup->allEntityIds(arrIds);  //得到组中所有实体的ID
16. if (!arrIds.isEmpty())
17. {
18. AcDbEntity *pEnty = NULL;
19. Acad::ErrorStatus es;
20. int j;
21. for (j = 0; j < arrIds.length(); j++)
22. {
23. es = acdbOpenObject(pEnty, arrIds.at(j), AcDb::kForWrite);
24. if (Acad::eOk == es)
25. {
26. pEnty->erase();  //删除组中包含的实体
27. pEnty->close();
28. }
29. }
30. }
31. pGroup->erase();//删除组
32. pGroup->close();
33. }

复制代码