[原创]图层合并

yfy2003

将一个图层的所有对象转移到另一个图层，并删除原图层。

1. AcDbObjectId eId;
2. AcDbObject *pObj;
3. AcDbEntity *pE;ads_name ss;
4. ads_name ent;
5. ads_point pt;
6. long len;
7. char * layer_tc1;
8. char * layer_tc2;
9. struct resbuf eb;
10. struct resbuf blc;  
11. int rc = acedEntSel("\n选择被合并图层实体:",ent,pt);
12. switch(rc)
13. {
14.   case RTERROR :
15.     acutPrintf("\n未选中实体! ");
16.   break;  case RTCAN :
17.     acutPrintf("\n取消! ");
18.   break;  case RTNORM :      
19.     acdbGetObjectId(eId,ent);
20.     acdbOpenObject(pE, eId, AcDb::kForRead, false);
21.     layer_tc1 = pE->layer();//查询实体所在的图层   
22.     pE->close();    int rcc = acedEntSel("\n选择合并图层实体:",ent,pt);
23.     switch(rcc)
24.     {
25.       case RTERROR :
26.         acutPrintf("\n未选中实体! ");
27.       break;      case RTCAN :
28.         acutPrintf("\n取消! ");
29.       break;      case RTNORM :            
30.         acdbGetObjectId(eId,ent);
31.         acdbOpenObject(pE, eId, AcDb::kForRead, false);
32.         layer_tc2 = pE->layer();        
33.         pE->close();        eb.restype = 8;//层名
34.         eb.resval.rstring = layer_tc1;
35.         eb.rbnext = NULL;
36.         acedSSGet("X",NULL,NULL,&eb,ss);
37.         free(eb.resval.rstring);        acedSSLength(ss,&len);
38.         for(int i=0; i<len; i++)
39.         {
40.           acedSSName(ss,i,ent);
41.           acdbGetObjectId(eId,ent);
42.           acdbOpenObject(pE, eId, AcDb::kForWrite, false);
43.           pE->setLayer(layer_tc2);
44.           pE->close();   
45.         }
46.         acedSSFree(ss);        blc.restype = RTSTR;
47.         blc.resval.rstring = "0";
48.         acedSetVar("CLAYER",&blc);//设置当前图层为0层   
49.         AcDbLayerTable * pLayerTbl;//定义层表指针
50.         acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pLayerTbl, AcDb::kForWrite);
51.          
52.         AcDbLayerTableRecord * pLayerTblRcd; //定义层表记录指针
53.         if ( Acad::eOk == pLayerTbl->getAt(layer_tc1 , pLayerTblRcd , AcDb::kForWrite))
54.         {
55.           pLayerTblRcd->erase(true);//删除图层
56.         }        
57.         pLayerTblRcd->close();
58.         pLayerTbl->close();
59.         free(layer_tc2);
60.       break;
61.     }
62.     free(layer_tc);      
63.   break;
64. }      

复制代码

ketxu

Now laymrg has been built-in command. Thanks for sharing ^^

sunny_8848

要是能直接在图层特性管理器对话框操作就更好了

czb203

感谢楼主分享 下载试试!

liub1979

为什么这么烦琐,可能是我看不明白吧!选中一层所有的对象,往另一层一放,在purge不完事了哈哈见笑!

meflying

就是 用LISP写出来,就这么简单 (defun test(O_Lay D_Lay)
(command "_.change" (ssget "x" (list (cons 8 O_Lay))) "" "p" "la" D_Lay "")
(command "_.purge" "la" O_Lay "n")
)

yfy2003

liub1979发表于2004-5-20 19:24:00为什么这么烦琐,可能是我看不明白吧!选中一层所有的对象,往另一层一放,在purge不完事了哈哈见笑!

图层和实体太多了就不好办了！ 还是用程序比较好。

liub1979

好象是等高线吧!你的程序咋用,简单的说明一下 : ) "因为不象3楼那么好懂"

jxphklibin

如果图层锁定了，能起作用吗？

faith66

学习了,谢谢

自贡黄明儒

3楼的程序非常简洁,高手!

letch

能否编写成一个小插件 使用

风流少年时

什么东西啊。