【已解决】如何将AutoCAD图纸显示为黑白，是显示，非打印黑白

b27117

如题所示，之前搜索看到08年有大佬说是黑白显示器->黑白，但是没搞懂他意思

XDSoft

b27117 发表于 2018-4-11 09:04
并不是的，就是类似PS的去色效果，将彩图变成黑白的图，我目前的想法是遍历所有块表记录，然后将所有实体 ...

一个是你的方法，
一个是设置图层颜色为7，实体的颜色随层，
怎么的，你都得遍历实体。

遍历块表得到实体记录速度很快的，效率不低。你图形在大，能有多少实体，n次读取。
ARX遍历个几十万的实体，毫秒级时间。

LoveArx

楼主，你是说绘图窗口背景颜色是黑色吧？ 上个图多好明白啊。
使用COM接口
用

1. Acad::ErrorStatus XDComUtils::setModelSpaceDisplayColor(OLE_COLOR &color)
   
2. {
   
3.         IAcadApplication *pApp = NULL;
   
4.         IAcadPreferences *pPref = NULL;
   
5.         IAcadPreferencesDisplay *pPrefDisplay = NULL;
   
6. 
   
7.         pApp = (IAcadApplication *)acedGetAcadWinApp()->GetIDispatch(TRUE);
   
8.         pApp->get_Preferences(&pPref);
   
9.         Acad::ErrorStatus es = eNotImplemented;
   
10.         if (pPref!=NULL)
    
11.         {
    
12.                 pPref->get_Display(&pPrefDisplay);
    
13.                 if (pPrefDisplay!=NULL)
    
14.                 {
    
15.                         if (pPrefDisplay->put_GraphicsWinModelBackgrndColor(color)==S_OK)
    
16.                                 es = eOk;
    
17.                         pPrefDisplay->Release();
    
18.                 }else
    
19.                 {
    
20.                         return eNotImplemented;
    
21.                 }
    
22.                 pPref->Release();
    
23.         }else{
    
24.                 es = eNotImplemented;
    
25.         }
    
26.         pApp->Release();
    
27.         return es;
    
28. }
    

Acad::ErrorStatus XDComUtils::setModelSpaceDisplayColor(OLE_COLOR &color)<br /> {<br />         IAcadApplication *pApp = NULL;<br />         IAcadPreferences *pPref = NULL;<br />         IAcadPreferencesDisplay *pPrefDisplay = NULL;<br /> <br />         pApp = (IAcadApplication *)acedGetAcadWinApp()->GetIDispatch(TRUE);<br />         pApp->get_Preferences(&pPref);<br />         Acad::ErrorStatus es = eNotImplemented;<br />         if (pPref!=NULL)<br />         {<br />                 pPref->get_Display(&pPrefDisplay);<br />                 if (pPrefDisplay!=NULL)<br />                 {<br />                         if (pPrefDisplay->put_GraphicsWinModelBackgrndColor(color)==S_OK)<br />                                 es = eOk;<br />                         pPrefDisplay->Release();<br />                 }else<br />                 {<br />                         return eNotImplemented;<br />                 }<br />                 pPref->Release();<br />         }else{<br />                 es = eNotImplemented;<br />         }<br />         pApp->Release();<br />         return es;<br /> }<br />

b27117

LoveArx 发表于 2018-4-10 18:20
楼主，你是说绘图窗口背景颜色是黑色吧？ 上个图多好明白啊。
使用COM接口
用

并不是的，就是类似PS的去色效果，将彩图变成黑白的图，我目前的想法是遍历所有块表记录，然后将所有实体的颜色改成白色，记录在字典中，需要恢复的时候再遍历一遍把颜色改回去，但我想应该有高效率的做法，我这种效率太低

b27117

感谢上面朋友的回答，然后我分享一下我最后的做法，我最后发现SummerMark也是按照我的思路来的，所以就按我自己的思路去做了，遍历所有实体以后，先用XData记录当前颜色，设置colorIndex为254，对于属性块，需要将属性的colorIndex也设置为254才能达到去色效果；然后需要恢复的时候只需选择集选中带有XData的实体，将颜色取出来设置即可。

shqvc

我也是来学习的   正在学习中