[求助]：HELP! 尺寸标注中文字颜色的设定（有代码和图片）

Echoyin

我想通过ARX程序来更改尺寸标注中文字的颜色，代码如下：

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. //改变文字颜色
   
6. void ChangeTxtColor()
   
7. {
   
8.         ads_name ssDim,EntityName;
   
9.         AcDbEntity *pEnt;
   
10.         struct resbuf pRb;
    
11.         AcDbObjectId objId,DmStyId;
    
12.         AcGePoint3d DmLPt,TxtPt,EPt1,EPt2,TmpPt;
    
13. 
    
14.         AcDbDimStyleTableRecord *pDmTblRcd;
    
15.         Acad::ErrorStatus es;
    
16.        
    
17. 
    
18.         //获取选择集过滤List(由实体名称过滤)
    
19.         char sbuf[50]; // Buffers to hold strings
    
20.         pRb.restype = 0;        //实体名称
    
21.         strcpy(sbuf, "Dimension");
    
22.         strupr(sbuf);
    
23.         pRb.resval.rstring = sbuf;
    
24.         pRb.rbnext = NULL;
    
25. 
    
26.         //选取尺寸标注
    
27.         int ss= ads_ssget("X",NULL,NULL,&pRb,ssDim);
    
28.        
    
29.         //取得选择集中实体个数
    
30.         long NumOfEntity;
    
31.         ss = ads_sslength(ssDim,&NumOfEntity);
    
32.        
    
33.         //取得当前系统中标注样式的颜色
    
34.         int dimclr;
    
35.         gGlobal.GetVar("DIMCLRT",&dimclr);
    
36.         int ncolor=0;
    
37. 
    
38.         //设置文字颜色(系统)
    
39.         if(acedSetColorDialog(ncolor,TRUE,dimclr))
    
40.         {
    
41.                 gGlobal.SetVar("DIMCLRT",ncolor);
    
42.         }
    
43. 
    
44.         //遍历选择集中的实体
    
45.         for(long i = 0 ; i < NumOfEntity; i++)
    
46.         {
    
47.                 ads_ssname(ssDim,i,EntityName);
    
48.        
    
49.                 acdbGetObjectId(objId,EntityName);
    
50.                
    
51.                 if(acdbOpenObject(pEnt,objId,AcDb::kForRead)!=Acad::eOk)
    
52.                 {
    
53.                         ads_printf("\n打开实体时出错!");
    
54.                         return;
    
55.                 }
    
56.        
    
57.                 AcDbDimension *pDim;
    
58.                 pDim=AcDbDimension::cast(pEnt);
    
59. 
    
60.                 //取得标注的风格ID
    
61.                 DmStyId = pDim->dimensionStyle();
    
62.                 acdbOpenObject(pDmTblRcd,DmStyId,AcDb::kForWrite);
    
63.                
    
64.                 //设置文字颜色
    
65.                 AcCmColor Color = pDmTblRcd->dimclrt();
    
66.        
    
67.                 Color.setColorIndex(ncolor);
    
68.                 pDmTblRcd->setDimclrt(Color);
    
69. 
    
70.                 pDmTblRcd->close();
    
71.                 pEnt->close();
    
72.                
    
73.         }       
    
74.        
    
75. }
    
76. 以上代码只能更改单个标注中文字的颜色，效果如下图，请高手指点。。。。。~~~如何能更改多个（所有）选定尺寸标注中文字的颜色和系统文字样式
    
77.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> //改变文字颜色<br /> void ChangeTxtColor()<br /> {<br />         ads_name ssDim,EntityName;<br />         AcDbEntity *pEnt;<br />         struct resbuf pRb;<br />         AcDbObjectId objId,DmStyId;<br />         AcGePoint3d DmLPt,TxtPt,EPt1,EPt2,TmpPt;<br /> <br />         AcDbDimStyleTableRecord *pDmTblRcd;<br />         Acad::ErrorStatus es;<br />         <br /> <br />         //获取选择集过滤List(由实体名称过滤)<br />         char sbuf[50]; // Buffers to hold strings <br />         pRb.restype = 0;        //实体名称<br />         strcpy(sbuf, "Dimension");<br />         strupr(sbuf);<br />         pRb.resval.rstring = sbuf; <br />         pRb.rbnext = NULL; <br /> <br />         //选取尺寸标注<br />         int ss= ads_ssget("X",NULL,NULL,&pRb,ssDim);<br />         <br />         //取得选择集中实体个数<br />         long NumOfEntity;<br />         ss = ads_sslength(ssDim,&NumOfEntity);<br />         <br />         //取得当前系统中标注样式的颜色<br />         int dimclr;<br />         gGlobal.GetVar("DIMCLRT",&dimclr);<br />         int ncolor=0;<br /> <br />         //设置文字颜色(系统)<br />         if(acedSetColorDialog(ncolor,TRUE,dimclr))<br />         {<br />                 gGlobal.SetVar("DIMCLRT",ncolor);<br />         }<br /> <br />         //遍历选择集中的实体<br />         for(long i = 0 ; i < NumOfEntity; i++)<br />         {<br />                 ads_ssname(ssDim,i,EntityName);<br />         <br />                 acdbGetObjectId(objId,EntityName);<br />                 <br />                 if(acdbOpenObject(pEnt,objId,AcDb::kForRead)!=Acad::eOk)<br />                 {<br />                         ads_printf("\n打开实体时出错!");<br />                         return;<br />                 }<br />         <br />                 AcDbDimension *pDim;<br />                 pDim=AcDbDimension::cast(pEnt);<br /> <br />                 //取得标注的风格ID<br />                 DmStyId = pDim->dimensionStyle();<br />                 acdbOpenObject(pDmTblRcd,DmStyId,AcDb::kForWrite);<br />                 <br />                 //设置文字颜色<br />                 AcCmColor Color = pDmTblRcd->dimclrt();<br />         <br />                 Color.setColorIndex(ncolor);<br />                 pDmTblRcd->setDimclrt(Color);<br /> <br />                 pDmTblRcd->close();<br />                 pEnt->close();<br />                 <br />         }        <br />         <br /> }<br /> 以上代码只能更改单个标注中文字的颜色，效果如下图，请高手指点。。。。。~~~如何能更改多个（所有）选定尺寸标注中文字的颜色和系统文字样式<br />   [/FONT]<br />

sy_sl

对整个数据库做一个遍历器

Echoyin

是吗？
我已经在程序中遍历所有实体进行更改颜色了。但结果是所有尺寸的颜色都更改了（Color属性已经改过来了），但只有第一个尺寸的颜色在图中显示变化了。

binbin

给个提示：标注是一个匿名块

panhaizhou

这个是什么东西啊，我用了这么久都没有用到过

Echoyin

修正后的代码：

2. 
   
3.   [FONT=courier new]
   
4. //改变文字颜色
   
5. void ChangeTxtColor()
   
6. {
   
7.         ads_name ssDim,EntityName;
   
8.         AcDbEntity *pEnt;
   
9.         struct resbuf pRb;
   
10.         AcDbObjectId objId,DmStyId;
    
11.         AcGePoint3d DmLPt,TxtPt,EPt1,EPt2,TmpPt;
    
12. 
    
13.         AcDbDimStyleTableRecord *pDmTblRcd;
    
14.         //Acad::ErrorStatus es;
    
15. 
    
16. 
    
17.         //获取选择集过滤List(由实体名称过滤)
    
18.         char sbuf[50]; // Buffers to hold strings
    
19.         pRb.restype = 0;        //实体名称
    
20.         strcpy(sbuf, "Dimension");
    
21.         strupr(sbuf);
    
22.         pRb.resval.rstring = sbuf;
    
23.         pRb.rbnext = NULL;
    
24. 
    
25.         //选取尺寸标注
    
26.         int ss= ads_ssget("X",NULL,NULL,&pRb,ssDim);
    
27.        
    
28.         //取得选择集中实体个数
    
29.         long NumOfEntity;
    
30.         ss = ads_sslength(ssDim,&NumOfEntity);
    
31.        
    
32.         //取得当前系统中标注样式的颜色
    
33.         int dimclr = 0;
    
34.         //gGlobal.GetVar("DIMCLRT",&dimclr);
    
35.         int ncolor = 0;
    
36. 
    
37.         //设置文字颜色(系统)
    
38.         if(acedSetColorDialog(ncolor,TRUE,dimclr))
    
39.         {
    
40.                 gGlobal.SetVar("DIMCLRT",ncolor);
    
41.         }
    
42. 
    
43.         //遍历选择集中的实体
    
44.         for(long i = 0 ; i < NumOfEntity; i++)
    
45.         {
    
46.                 ads_ssname(ssDim,i,EntityName);
    
47.        
    
48.                 acdbGetObjectId(objId,EntityName);
    
49.                
    
50.                 if(acdbOpenObject(pEnt,objId,AcDb::kForWrite)!=Acad::eOk)
    
51.                 {
    
52.                         ads_printf("\n打开实体时出错!");
    
53.                         return;
    
54.                 }
    
55.        
    
56.                 AcDbDimension *pDim;
    
57.                 pDim = AcDbDimension::cast(pEnt);
    
58. 
    
59.                 //取得标注的风格ID
    
60.                 DmStyId = pDim->dimensionStyle();
    
61.                 acdbOpenObject(pDmTblRcd,DmStyId,AcDb::kForWrite);
    
62.                
    
63.                 //设置文字颜色
    
64.                 AcCmColor Color;
    
65.                 Color.setColorIndex(ncolor);
    
66.                 pDmTblRcd->setDimclrt(Color);
    
67.                
    
68.                 pEnt->close();
    
69.                 pDmTblRcd->close();
    
70.                
    
71.         }
    
72. }
    
73. 不过好像还是只能更改一个标注的文字颜色。。。
    
74. 
    
75.   [/FONT]
    

<br />   [FONT=courier new]<br /> //改变文字颜色<br /> void ChangeTxtColor()<br /> {<br />         ads_name ssDim,EntityName;<br />         AcDbEntity *pEnt;<br />         struct resbuf pRb;<br />         AcDbObjectId objId,DmStyId;<br />         AcGePoint3d DmLPt,TxtPt,EPt1,EPt2,TmpPt;<br /> <br />         AcDbDimStyleTableRecord *pDmTblRcd;<br />         //Acad::ErrorStatus es;<br /> <br /> <br />         //获取选择集过滤List(由实体名称过滤)<br />         char sbuf[50]; // Buffers to hold strings <br />         pRb.restype = 0;        //实体名称<br />         strcpy(sbuf, "Dimension");<br />         strupr(sbuf);<br />         pRb.resval.rstring = sbuf; <br />         pRb.rbnext = NULL; <br /> <br />         //选取尺寸标注<br />         int ss= ads_ssget("X",NULL,NULL,&pRb,ssDim);<br />         <br />         //取得选择集中实体个数<br />         long NumOfEntity;<br />         ss = ads_sslength(ssDim,&NumOfEntity);<br />         <br />         //取得当前系统中标注样式的颜色<br />         int dimclr = 0;<br />         //gGlobal.GetVar("DIMCLRT",&dimclr);<br />         int ncolor = 0;<br /> <br />         //设置文字颜色(系统)<br />         if(acedSetColorDialog(ncolor,TRUE,dimclr))<br />         {<br />                 gGlobal.SetVar("DIMCLRT",ncolor);<br />         }<br /> <br />         //遍历选择集中的实体<br />         for(long i = 0 ; i < NumOfEntity; i++)<br />         {<br />                 ads_ssname(ssDim,i,EntityName);<br />         <br />                 acdbGetObjectId(objId,EntityName);<br />                 <br />                 if(acdbOpenObject(pEnt,objId,AcDb::kForWrite)!=Acad::eOk)<br />                 {<br />                         ads_printf("\n打开实体时出错!");<br />                         return;<br />                 }<br />         <br />                 AcDbDimension *pDim;<br />                 pDim = AcDbDimension::cast(pEnt);<br /> <br />                 //取得标注的风格ID<br />                 DmStyId = pDim->dimensionStyle();<br />                 acdbOpenObject(pDmTblRcd,DmStyId,AcDb::kForWrite);<br />                 <br />                 //设置文字颜色<br />                 AcCmColor Color;<br />                 Color.setColorIndex(ncolor);<br />                 pDmTblRcd->setDimclrt(Color);<br />                 <br />                 pEnt->close();<br />                 pDmTblRcd->close();<br />                 <br />         }<br /> }<br /> 不过好像还是只能更改一个标注的文字颜色。。。<br /> <br />   [/FONT]<br />

HillMan

你的程序没有问题，我在我的机器上测试了，你可以看一下这个ARX文件！
命令：dimcolor

修改内容：

你的程序没有问题，我在我的机器上测试了，你可以看一下这个ARX文件！
命令：dimcolor

修改内容：
//设置文字颜色(系统)
if(acedSetColorDialog(ncolor,TRUE,dimclr))
{
gGlobal.SetVar("DIMCLRT",ncolor);
}

修改为：

//设置文字颜色(系统)
if(acedSetColorDialog(ncolor,TRUE,dimclr))
{
struct resbuf *val = new struct resbuf;
val->restype = RTSHORT;
val->rbnext = NULL;
val->resval.rint = ncolor;
acedSetVar("DIMCLRT",val);
}

XDSoft

最初由 Echoyin 发布
[B]修正后的代码：
[CODE]
  
//改变文字颜色
void ChangeTxtColor()
{
        ads_name ssDim,EntityName;
        AcDbEntity *pEnt;
        struct resbuf pRb;
        AcDbObjectId objId,DmStyId;
        AcGePoint3d... [/B]

尺寸实体的表现依据的是“标注样式”，你可以修改尺寸实体引用的“标注样式”里面的dimclrt系统变量的值，来修改尺寸的文字颜色，这样修改，所有引用这个样式的标注实体都一起改。

如果你就想改变一个指定标注实体的文字颜色，那么你可以给这个标注实体加扩展记录，orveride （超越）dimclrt 值，来只影响这一个实体。

Echoyin

谢谢斑竹和园长先~
1.园长，我想修改的是系统的颜色，而且当前所有标注的文字颜色也要求改变。用的是

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. //设置文字颜色(系统)
   
6.         if(acedSetColorDialog(ncolor,TRUE,dimclr))
   
7.         {
   
8.                 gGlobal.SetVar("DIMCLRT",ncolor);
   
9.         }
   
10. 。。。
    
11. 
    
12. //取得标注的风格ID
    
13.                 DmStyId = pDim->dimensionStyle();
    
14.                 acdbOpenObject(pDmTblRcd,DmStyId,AcDb::kForWrite);
    
15.                
    
16.                 //设置文字颜色
    
17.                 AcCmColor Color;
    
18.                 Color.setColorIndex(ncolor);
    
19.                 pDmTblRcd->setDimclrt(Color);
    
20. 。。。
    
21. 
    
22. 
    
23.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> //设置文字颜色(系统)<br />         if(acedSetColorDialog(ncolor,TRUE,dimclr))<br />         {<br />                 gGlobal.SetVar("DIMCLRT",ncolor);<br />         }<br /> 。。。<br /> <br /> //取得标注的风格ID<br />                 DmStyId = pDim->dimensionStyle();<br />                 acdbOpenObject(pDmTblRcd,DmStyId,AcDb::kForWrite);<br />                 <br />                 //设置文字颜色<br />                 AcCmColor Color;<br />                 Color.setColorIndex(ncolor);<br />                 pDmTblRcd->setDimclrt(Color);<br /> 。。。<br /> <br /> <br />   [/FONT]<br />

代码“//取得标注的风格ID”以后部分就是你所说的第一种方法，即当前所有引用这个样式的标注实体都一起改。而且如果只用

1. 
   
2.   [FONT=courier new]
   
3. //设置文字颜色(系统)
   
4.         if(acedSetColorDialog(ncolor,TRUE,dimclr))
   
5.         {
   
6.                 gGlobal.SetVar("DIMCLRT",ncolor);
   
7.         }
   
8. 
   
9.   [/FONT]
   

复制代码

则只能更改系统文字颜色（此后增加的标注文字颜色会变），而当前文字颜色不变的，其属性里面文字颜色也不变。


2. 斑竹，我的gGlobal.SetVar("DIMCLRT",ncolor)是自己封装的函数，如果你只改了这一个地方的话，那我们的程序应该是一样的。而且该程序在2000下实现没有问题，标注文字的颜色都更改过来了，但在R14下面如果选中多个标注的话，只有第一个文字的颜色更改了，其余的在属性里面也可以看到颜色更改了，但就是不能直接实现，要到属性里面去确认一下颜色才都改过来。。。[CODE]