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

admin

1. //添加图层  
2. static void TESTaddlayercmd(){  
3.         CString strLayerName;  
4.         if(acedGetString(Adesk::kFalse,采用T("\n输入层名称"),strLayerName.GetBuffer()) != RTNORM){  
5.                 return;  
6.         }  
8.         ////获得当前图形的层表  
9.         AcDbLayerTable* pLayerTbl;  
10.         acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForWrite);  
12.         ////是否已经包含制定的层表记录  
13.         if(pLayerTbl->has(strLayerName)){  
14.                 pLayerTbl->close();  
15.                 return;  
16.         }  
18.         ////创建新的层表记录  
19.         AcDbLayerTableRecord* pLayerTblRcd;  
20.         pLayerTblRcd = new AcDbLayerTableRecord();  
21.         pLayerTblRcd->setName(strLayerName);  
23.         ////将新创建的层表记录添加到层表中  
24.         AcDbObjectId layerTblRcdId;  
25.         pLayerTbl->add(layerTblRcdId,pLayerTblRcd);  
26.         acdbHostApplicationServices()->workingDatabase()->setClayer(layerTblRcdId);  
27.         pLayerTblRcd->close();  
28.         pLayerTbl->close();  
29. }  
31. //修改图层颜色============================  
33. static void TESTlayercolorcmd(){  
34.         CString strLayerName;  
35.         if(acedGetString(Adesk::kFalse,采用T("\n输入图层的名称:"),strLayerName.GetBuffer()) != RTNORM){  
36.                 return;  
37.         }  
38.         ////获得当前的图层列表  
39.         AcDbLayerTable* pLayerTbl;  
40.         acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForRead);  
41.         ////判断是否包含指定名称的层表记录  
42.         if(!pLayerTbl->has(strLayerName)){  
43.                 pLayerTbl->close();  
44.                 return;  
45.         }  
47.         ////获得制定层表记录的指针  
48.         AcDbLayerTableRecord* pLayerTblRcd;  
49.         pLayerTbl->getAt(strLayerName,pLayerTblRcd,AcDb::kForWrite);  
51.         ////弹出颜色对话框  
52.         AcCmColor oldColor = pLayerTblRcd->color();  
53.         int nCurColor = oldColor.colorIndex();//旧的颜色  
54.         int nNewColor = oldColor.colorIndex();//用户选择的颜色  
55.         if(acedSetColorDialog(nNewColor,Adesk::kFalse,nCurColor)){  
57.                 AcCmColor color;  
58.                 color.setColorIndex(nNewColor);  
59.                 pLayerTblRcd->setColor(color);  
60.         }  
61.         pLayerTblRcd->close();  
62.         pLayerTbl->close();  
63. }  
65. //删除图层  
66. static void TESTdellayercmd(){  
67.         CString strLayerName;  
68.         if(acedGetString(Adesk::kFalse,采用T("\n输入图层名称"),strLayerName.GetBuffer()) != RTNORM){  
69.                 return;  
70.         }  
72.         ////获得当前的图层列表  
73.         AcDbLayerTable* pLayerTbl;  
74.         acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForRead);  
75.         ////判断是否包含指定名称的层表记录  
76.         if(!pLayerTbl->has(strLayerName)){  
77.                 pLayerTbl->close();  
78.                 return;  
79.         }  
80.         ////获得制定层表记录的指针  
81.         AcDbLayerTableRecord* pLayerTblRcd;  
82.         pLayerTbl->getAt(strLayerName,pLayerTblRcd,AcDb::kForWrite);  
83.         pLayerTblRcd->erase();  
86.         pLayerTblRcd->close();  
87.         pLayerTbl->close();  
88. }  
91. ////导出层的信息到文本文件中  
92. [it618postdisplay>0]
93. static void TESTexportlayercmd(){  
94.         //创建要导出的文本文件  
95.         CStdioFile f;  
96.         CFileException e;  
97.         CString pFileName;  
98.         pFileName = 采用T("D:\\layer.txt");  
99.         if(!f.Open(pFileName.GetString(),CFile::modeCreate|CFile::modeWrite,&e)){  
100.                 acutPrintf(采用T("\n创建文件失败"));  
101.                 return;  
102.         }  
104.         ////获得层表指针  
105.         AcDbLayerTable *pLayerTbl;  
106.         AcDbLayerTableRecord* pLayerTblRcd;  
107.         acdbHostApplicationServices()->workingDatabase()->getLayerTable(pLayerTbl,AcDb::kForRead);  
108.         ////使用遍历器访问每条层表记录  
109.         AcDbLayerTableIterator* pItr;  
110.         pLayerTbl->newIterator(pItr);  
111.         for(pItr->start();!pItr->done();pItr->step()){  
112.                 pItr->getRecord(pLayerTblRcd,AcDb::kForRead);  
113.                 ////输出图层的信息  
114.                 CString strLayerInfo;  
115.                 TCHAR* layerName;  
116.                 pLayerTblRcd->getName(layerName);  
118.                 ////名称  
119.                 strLayerInfo = layerName;  
120.                 free(layerName);  
121.                 strLayerInfo.Append(采用T(","));  
122.                 ////颜  
123.                 CString strColor;  
124.                 AcCmColor color = pLayerTblRcd->color();  

复制代码