天气与日历 切换到窄版

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

实用的ObjectARX插件 修改颜色

[复制链接]

该用户从未签到

主题

0

回帖

2912

积分

管理员

积分
2912
发表于 2024-6-22 09:46:18 | 显示全部楼层 |阅读模式
acDocManager->lockDocument(acDocManager->curDocument());
ads_name ss, en;
if (acedSSGet(NULL, NULL, NULL, NULL, ss) != RTNORM)
{
    return;
}
int colorindex;
acedSetColorDialog(colorindex, true, 1);
long len;
if (RTNORM == acedSSLength(ss, &len))
{
    for (int i = 0; i < len; i++)
    {
        acedSSName(ss, i, en);
        AcDbObjectId id;
        acdbGetObjectId(id, en);
        AcDbEntity *pEnt;
        acdbOpenObject(pEnt, id, AcDb::kForWrite);
        AcCmColor colors;
        colors.setColorIndex(colorindex);

        if (pEnt->isKindOf(AcDbBlockReference::desc()))
        {
            AcDbBlockReference *pBlk = AcDbBlockReference::cast(pEnt);
            ChangeColor(pBlk, colors);
        }
        pEnt->setColor(colors);
        pEnt->close();
    }
}
acedSSFree(ss);
acDocManager->unlockDocument(acDocManager->curDocument());

static void ChangeColor(AcDbBlockReference *pBlk, AcCmColor col)
{
    AcDbObjectId blkId = pBlk->blockTableRecord();
    AcDbBlockTableRecord *pBlkRcd;
    acdbOpenObject(pBlkRcd, blkId, AcDb::kForWrite);
    AcDbBlockTableRecordIterator *pItr;
    pBlkRcd->newIterator(pItr);
    for (pItr->start(); !pItr->done(); pItr->step())
    {
        AcDbEntity *pEnt1;
        pItr->getEntity(pEnt1, AcDb::kForWrite);
        pEnt1->setColor(col);
        if (pEnt1->isKindOf(AcDbBlockReference::desc()))
        {
            AcDbBlockReference *pBlk1 = AcDbBlockReference::cast(pEnt1);
            ChangeColor(pBlk1, col);
        }
        pEnt1->close();
    }
    delete pItr;
    pBlkRcd->close();

    AcDbObjectIterator *attIt = pBlk->attributeIterator();
    for (attIt->start(); !attIt->done(); attIt->step())
    {
        AcDbAttribute *pAtt = NULL;
        AcDbObjectId attrObjId;
        attrObjId = attIt->objectId();
        Acad::ErrorStatus es = acdbOpenObject(pAtt, attrObjId, AcDb::kForWrite);
        if (es == Acad::eOk)
        {
            pAtt->setColor(col);
            pAtt->close();
        }
    }
    delete attIt;
    pBlk->setColorIndex(0);
}

 

 

 

 

实用的ObjectARX插件 修改颜色
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-1 11:27 , Processed in 0.118091 second(s), 28 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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