设为首页收藏本站

中国膜结构网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

膜结构车棚
膜结构车棚膜结构资质国产膜材 膜结构网中国膜结构协会
查看: 128|回复: 0

清除嵌套匿名块

[复制链接]
  • TA的每日心情
    开心
    2021-6-19 14:40
  • 签到天数: 1539 天

    [LV.Master]伴坛终老

    发表于 2021-2-8 01:04 | 显示全部楼层 |阅读模式
    Acad::ErrorStatus Grazie::purge()
    {
        Acad::ErrorStatus es;
        AcDbObjectIdArray ids;
        AcDbObjectId id;

        CString nome=L"";
        AcDbObjectId tblRecId;

        AcDbDatabase *pDbUse=acdbHostApplicationServices()->workingDatabase();
        ids.setLogicalLength(0).setPhysicalLength(0);

        AcDbBlockTable *pBlockTable;
        es=acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable, AcDb::kForWrite);

        AcDbBlockTableIterator* tblIter;
        es = pBlockTable->newIterator(tblIter);
        if (es == Acad::eOk)
        {
          // walk table and just collect all the objIds
          // of the entries
            for (; !tblIter->done(); tblIter->step())
            {
                AcDbBlockTableRecord* blkRec;
                es = tblIter->getRecord(blkRec, AcDb::kForWrite);
                if (es == Acad::eOk)
                {
                    //if(blkRec->isKindOf(AcDbBlockReference::desc()))
                    {
                        if (blkRec->isAnonymous())
                        {
                            ACHAR* locName;
                            blkRec->getName(locName);
                            id=blkRec->id();
                            ids.append(id);
      
                        }
                    }
                    blkRec->close();
                }
            }
            delete tblIter;
        }
        pBlockTable->close();

        es=pDbUse->purge(ids);

        es = pBlockTable->newIterator(tblIter);
        if (es == Acad::eOk)
        {
          // walk table and just collect all the objIds
          // of the entries
            for (; !tblIter->done(); tblIter->step())
            {
                AcDbBlockTableRecord* blkRec;
                es = tblIter->getRecord(blkRec, AcDb::kForWrite);
                if (es == Acad::eOk)
                {
                    //if(blkRec->isKindOf(AcDbBlockReference::desc()))
                    {
                        if (blkRec->isAnonymous())
                        {
                            ACHAR* locName;
                            blkRec->getName(locName);
                            id=blkRec->id();
                            if(ids.find(id)>=0)
                            {
                                nome=L"";
                                nome=locName;
    //                            if(nome.Find(L"*D")==0 || nome.Find(L"*U")==0)
                                    es=blkRec->erase();
                            }
                        }
                    }
                    blkRec->close();
                }
            }
            delete tblIter;
        }
        pBlockTable->close();
        ids.setLogicalLength(0).setPhysicalLength(0);

        return es;

    }
    1. [code][code]        int i, nCount = ids.length();
    2.         for (i = 0; i < nCount; ++i)
    3.         {
    4.                 AcDbBlockTableRecord* blkRec=NULL;
    5.                 if ( (es=acdbOpenObject(blkRec, ids[i], AcDb::kForWrite)) == Acad::eOk )
    6.                 {
    7.                         es = blkRec->erase();
    8.                         blkRec->close();               
    9.                 }
    10.         }
    复制代码
    [/code][/code]

                ACHAR* locName;
                blkRec->getName(locName);
    回复


    http://www.mjgw.org/ 专业从事膜结构设计、制作加工、施工安装的膜结构工程服务,能够为客户提供专业的膜结构整体解决方案。做中国最好的膜结构综合服务平台。欢迎大家联系电话:198-7840-1958,QQ:463017170.
    相关关键词:膜结构车棚,膜结构车棚覆盖,膜结构车棚公司,膜结构车棚多少钱,膜结构车棚厂家,膜结构车棚价格,社区膜结构车棚,膜结构车棚膜布厂家 ,膜结构车棚哪家好,膜结构车棚多少钱一米,膜结构车棚报价,膜结构车棚哪里有,膜结构车棚定制,膜结构车棚安装,膜结构车棚设计,膜结构车棚电话,膜结构车棚加工,膜结构车棚膜布价格,膜结构车棚批发,膜结构车棚制造商,膜结构车棚生产厂家,膜结构车棚设计,膜结构车棚施工,膜结构车棚多少钱一平米,膜结构车棚订制,张拉膜车棚,张拉膜车棚覆盖,张拉膜车棚公司,张拉膜车棚多少钱,张拉膜车棚厂家,张拉膜车棚价格,社区张拉膜车棚,张拉膜车棚膜布厂家 ,张拉膜车棚哪家好,张拉膜车棚多少钱一米,张拉膜车棚报价,张拉膜车棚哪里有,张拉膜车棚定制,张拉膜车棚安装,张拉膜车棚设计,张拉膜车棚电话,张拉膜车棚加工,张拉膜车棚膜布价格,张拉膜车棚批发,张拉膜车棚制造商,张拉膜车棚生产厂家,张拉膜车棚设计,张拉膜车棚施工,张拉膜车棚多少钱一平米,张拉膜车棚订制,常用膜材品牌:德国杜肯、法国法拉利、德国海德斯、德国米乐、日本平岗、韩国秀博、比利时希运、美国赫虏伯、中国科宝、上海慧遥。

    使用道具 举报

    您需要登录后才可以回帖 登录 | 立即注册

    本版积分规则

    关闭

    推荐膜材品牌上一条 /6 下一条

    进口膜材 国产膜材 pvdf膜材ptfe膜材ETFE膜材
    最好的膜结构公司 一级膜结构资质 膜结构一级资质
    膜结构设计-膜结构十大品牌-etfe设计-充气膜结构
    诺科膜结构
    遨都膜结构设计
    中国膜结构网
    中国空间膜结构

    QQ|申请友链|手机版|中国膜结构论坛