ObjectARX 操作图层代码

LoveArx · 发表于 2016-11-1 08:05:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

//添加图层  
static void TESTaddlayercmd(){  
        CString strLayerName;  
        if(acedGetString(Adesk::kFalse,_T("\n输入层名称"),strLayerName.GetBuffer()) != RTNORM){  
                return;  
        }  

        ////获得当前图形的层表  
        AcDbLayerTable* pLayerTbl;  
        acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForWrite);  

        ////是否已经包含制定的层表记录  
        if(pLayerTbl->has(strLayerName)){  
                pLayerTbl->close();  
                return;  
        }  

        ////创建新的层表记录  
        AcDbLayerTableRecord* pLayerTblRcd;  
        pLayerTblRcd = new AcDbLayerTableRecord();  
        pLayerTblRcd->setName(strLayerName);  

        ////将新创建的层表记录添加到层表中  
        AcDbObjectId layerTblRcdId;  
        pLayerTbl->add(layerTblRcdId,pLayerTblRcd);  
        acdbHostApplicationServices()->workingDatabase()->setClayer(layerTblRcdId);  
        pLayerTblRcd->close();  
        pLayerTbl->close();  
}  

//修改图层颜色============================  

static void TESTlayercolorcmd(){  
        CString strLayerName;  
        if(acedGetString(Adesk::kFalse,_T("\n输入图层的名称:"),strLayerName.GetBuffer()) != RTNORM){  
                return;  
        }  
        ////获得当前的图层列表  
        AcDbLayerTable* pLayerTbl;  
        acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForRead);  
        ////判断是否包含指定名称的层表记录  
        if(!pLayerTbl->has(strLayerName)){  
                pLayerTbl->close();  
                return;  
        }  

        ////获得制定层表记录的指针  
        AcDbLayerTableRecord* pLayerTblRcd;  
        pLayerTbl->getAt(strLayerName,pLayerTblRcd,AcDb::kForWrite);  

        ////弹出颜色对话框  
        AcCmColor oldColor = pLayerTblRcd->color();  
        int nCurColor = oldColor.colorIndex();//旧的颜色  
        int nNewColor = oldColor.colorIndex();//用户选择的颜色  
        if(acedSetColorDialog(nNewColor,Adesk::kFalse,nCurColor)){  

                AcCmColor color;  
                color.setColorIndex(nNewColor);  
                pLayerTblRcd->setColor(color);  
        }  
        pLayerTblRcd->close();  
        pLayerTbl->close();  
}  

//删除图层  
static void TESTdellayercmd(){  
        CString strLayerName;  
        if(acedGetString(Adesk::kFalse,_T("\n输入图层名称"),strLayerName.GetBuffer()) != RTNORM){  
                return;  
        }  

        ////获得当前的图层列表  
        AcDbLayerTable* pLayerTbl;  
        acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForRead);  
        ////判断是否包含指定名称的层表记录  
        if(!pLayerTbl->has(strLayerName)){  
                pLayerTbl->close();  
                return;  
        }  
        ////获得制定层表记录的指针  
        AcDbLayerTableRecord* pLayerTblRcd;  
        pLayerTbl->getAt(strLayerName,pLayerTblRcd,AcDb::kForWrite);  
        pLayerTblRcd->erase();  


        pLayerTblRcd->close();  
        pLayerTbl->close();  
}

////导出层的信息到文本文件中
[it618postdisplay>0]

static void TESTexportlayercmd(){  
        //创建要导出的文本文件  
        CStdioFile f;  
        CFileException e;  
        CString pFileName;  
        pFileName = _T("D:\\layer.txt");  
        if(!f.Open(pFileName.GetString(),CFile::modeCreate|CFile::modeWrite,&e)){  
                acutPrintf(_T("\n创建文件失败"));  
                return;  
        }  

        ////获得层表指针  
        AcDbLayerTable *pLayerTbl;  
        AcDbLayerTableRecord* pLayerTblRcd;  
        acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForRead);  
        ////使用遍历器访问每条层表记录  
        AcDbLayerTableIterator* pItr;  
        pLayerTbl->newIterator(pItr);  
        for(pItr->start();!pItr->done();pItr->step()){  
                pItr->getRecord(pLayerTblRcd,AcDb::kForRead);  
                ////输出图层的信息  
                CString strLayerInfo;  
                TCHAR* layerName;  
                pLayerTblRcd->getName(layerName);  

                ////名称  
                strLayerInfo = layerName;  
                free(layerName);  
                strLayerInfo.Append(_T(","));  
                ////颜  
                CString strColor;  
                AcCmColor color = pLayerTblRcd->color();  
                strColor.Format(_T("%d"),color.colorIndex());  
                strLayerInfo.Append(strColor);  
                ////线型  
                CString strLineType;  
                AcDbLinetypeTableRecord* pLinetypeTblRcd;  
                acdbOpenObject(pLinetypeTblRcd,pLayerTblRcd->linetypeObjectId(),AcDb::kForRead);  
                TCHAR* linetypeName;  
                pLinetypeTblRcd->getName(linetypeName);  
                pLinetypeTblRcd->close();  
                strLineType = linetypeName;  
                free(linetypeName);  

                strLayerInfo.Append(strLineType);  
                strLayerInfo.Append(_T(","));  

                ////线宽  
                CString strLineWeight;  
                AcDb::LineWeight lineWeight = pLayerTblRcd->lineWeight();  
                strLineWeight.Format(_T("%d"),lineWeight);  
                strLayerInfo.Append(strLineWeight);  

                /////写文件  
                f.WriteString(strLayerInfo);  
                f.WriteString(_T("\n"));  
                pLayerTblRcd->close();  
        }  

        delete pItr;  
        pLayerTbl->close();  
}

[/it618postdisplay]

shuaier · 发表于 2016-11-1 11:18:54

看下功能如何！

zjy2999 · 发表于 2016-11-1 16:41:51

学习！！！！！！！！！！！！！！！！！！！！

abc498091367 · 发表于 2016-11-5 21:32:58

啥也不说了，感谢楼主分享哇！

用途 · 发表于 2016-11-12 20:53:25

谢谢楼主学习学习

28952996 · 发表于 2016-11-16 15:11:37

我来测试一下，行不行，看看到底怎么样

why1025 · 发表于 2016-11-20 00:27:22

11111111111111111

炫翔 · 发表于 2016-12-21 14:13:52

看看思路

w15994259099 · 发表于 2016-12-22 15:55:44

学习大师的代码，谢谢!

lhg · 发表于 2017-1-8 14:33:24

啥也不说了，感谢楼主分享哇！

w15994259099 · 发表于 2017-1-9 14:21:09

图层的导入/导出，在不同设计单位交流时，很有价值。稍用修改，就可在进行不同图层替换。

1425361224 · 发表于 2017-2-27 18:19:33

我来学习学习怎么样？

buleant · 发表于 2017-3-20 00:39:27

新手来看一下。

czike · 发表于 2017-7-5 10:49:27

谢谢楼主的代码分享

wenwu@wu · 发表于 2017-7-19 10:59:37

非常值得学习

账号		自动登录	找回密码
密码			立即注册

[每日一码] ObjectARX 操作图层代码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。