天气与日历 切换到窄版

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

ObjectArx组操作封装

[复制链接]
  • TA的每日心情
    开心
    前天 12:35
  • 签到天数: 56 天

    [LV.5]常住居民I

    199

    主题

    159

    回帖

    1863

    积分

    管理员

    积分
    1863
    发表于 2024-5-4 10:48:40 | 显示全部楼层 |阅读模式
    1.         static void MyGroupMyCommand7() {
    2.                 // Put your command code here
    3.                 acutPrintf(TEXT("\nHello world! make groupname"));

    4.                 MyGroupMyCommand6();
    5.                 // 创建带组名实体,并删除指定组名实体
    6.                 //提示用户选择多个实体
    7.                 TCHAR* prompts[2] = { _T("\n请选择实体"),_T("删掉一个实体") };
    8.                 ads_name ss;
    9.                 if (RTNORM != acedSSGet(_T(":$"), prompts, NULL, NULL, ss))
    10.                         return;

    11.                 Adesk::Int32 lLen;
    12.                 acedSSLength(ss, &lLen);
    13.                 AcDbObjectId id;
    14.                 AcDbGroup* pGroup = new AcDbGroup;
    15.                 for (Adesk::Int32 i = 0; i < lLen; i++)
    16.                 {
    17.                         ads_name ent;
    18.                         if (RTNORM == acedSSName(ss, i, ent))
    19.                         {
    20.                                 if (Acad::eOk == acdbGetObjectId(id, ent))
    21.                                 {
    22.                                         pGroup->append(id);
    23.                                 }
    24.                         }
    25.                 }

    26.                 AcDbDictionary* pGroupDict = NULL;
    27.                 acdbHostApplicationServices()->workingDatabase()->getGroupDictionary(pGroupDict, AcDb::kForWrite);
    28.                 // 提示用户输入group的名称
    29.                 TCHAR sGroupName[40];
    30.                 if (acedGetString(NULL, TEXT("\n输入用户坐标系的名称:"), sGroupName) != RTNORM)
    31.                         return;

    32.                 CString sGroupName = _T("test2");        //匿名组的名称为“*”
    33.                 AcDbObjectId idGroup;
    34.                 Acad::ErrorStatus es;
    35.                 es = pGroupDict->setAt(sGroupName, pGroup, idGroup);
    36.                 pGroup->close();
    37.                 pGroupDict->close();
    38.         }
    复制代码

     

     

     

     

    ObjectArx组操作封装
    哎...膜结构车棚,签到来了1...
    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    QQ|Archiver|手机版|中国膜结构网_中国空间膜结构协会

    GMT+8, 2024-6-2 08:49 , Processed in 0.057512 second(s), 22 queries .

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

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