天气与日历 切换到窄版

 找回密码
 立即注册
中国膜结构网
十大进口膜材评选 十大国产膜材评选 十大膜结构设计评选 十大膜结构公司评选
查看: 124|回复: 0

ARX 创建组实例(新建组,选择实体添加到组,输入层,修改组所在的层)

[复制链接]
  • TA的每日心情
    开心
    昨天 06:36
  • 签到天数: 15 天

    [LV.4]偶尔看看III

    105

    主题

    11

    回帖

    1308

    积分

    管理员

    积分
    1308
    QQ
    发表于 2024-5-2 22:45:56 | 显示全部楼层 |阅读模式
    1. static void TESTgrpcmd()
    2. {
    3. CString strGrp;
    4. if(acedGetString(0,采用T("\n输入组名"),strGrp.GetBuffer(10)) != RTNORM)
    5. {
    6. return;
    7. }
    8. strGrp.ReleaseBuffer();
    9. ads采用name ss;
    10. if(acedSSGet(NULL,NULL,NULL,NULL,ss) != RTNORM)
    11. {
    12. return;
    13. }
    14. CString strLayer;
    15. if(acedGetString(0,采用T("\n输入层名称"),strLayer.GetBuffer(10)) != RTNORM)
    16. {
    17. acedSSFree(ss);
    18. return;
    19. }
    20. 创建组,改变层
    21. AcDbGroup* pGrp = new AcDbGroup(strGrp);
    22. long len ;
    23. acedSSLength(ss,&len);
    24. AcDbObjectId idObj;
    25. ads采用name enName;
    26. AcDbEntity* pEnt;
    27. ErrorStatus es;
    28. for(int i = 0;i < len;i ++)
    29. {
    30. if(acedSSName(ss,i,enName) != RTNORM)
    31. {
    32. continue;
    33. }
    34. acdbGetObjectId(idObj,enName);
    35. pGrp->append(idObj);
    36. }
    37. pGrp->setLayer(strLayer);
    38. 把组添加到词典中
    39. AcDbDictionary* pGrpDic;
    40. acdbHostApplicationServices()->workingDatabase()->getGroupDictionary(pGrpDic,AcDb::kForWrite);
    41. AcDbObjectId idGrp;
    42. pGrpDic->setAt(strGrp,pGrp,idGrp);
    43. 释放内存
    44. pGrp->close();
    45. pGrpDic->close();
    46. acedSSFree(ss);
    47. }
    复制代码

     

     

     

     

    ARX 创建组实例(新建组,选择实体添加到组,输入层,修改组所在的层)
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|中国膜结构网|中国膜结构协会|进口膜材|国产膜材|ETFE|PVDF|PTFE|设计|施工|安装|车棚|看台|污水池|中国膜结构网_中国空间膜结构协会

    GMT+8, 2024-11-1 07:17 , Processed in 0.155132 second(s), 28 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

    快速回复 返回顶部 返回列表