[求助]：请大家来帮忙，有源代码和图片

Echoyin

C:/Documents and Settings/Administrator/My Documents/My Pictures/HELP.bmp

图中的钢筋编号是一个属性块（*.DWG），我想通过编程来实现对钢筋编号的缩放。

Echoyin

但我现在只能实现对圆的放缩，圆中的文字却没有变化，：（
实现的效果如图所示，主要源代码如下：
void Zoom()
{
    ads_name en;
    ads_point pt;
    ads_entsel("\n请选择实体",en,pt);

    //由实体名来获取对象标志符
  AcDbObjectId objId;
    acdbGetObjectId(objId,en);

    AcDbBlockReference *pBlockReference;
    acdbOpenObject(pBlockReference,objId,AcDb::kForWrite);
    Acad::ErrorStatus
    es=pBlockReference->setScaleFactors(AcGeScale3d(200,200,200));
   
    pBlockReference->close();

}

C:/Documents and Settings/Administrator/My Documents/My Pictures/Help2.bmp
请朋友们帮忙指点下我错在那里，谢谢了

Echoyin

补充下
以上编程环境是：Win2000(SrvSP3)，R14

Echoyin

我这个问题已经解决了，呵呵
代码如下，
//缩放钢筋编号
void Zoom()
{
//输入钢筋直径
int ss;
double dD=0;
ads_getreal("\n输入新的钢筋编号直径:",&dD);

while (true)
{
if(dD!=0)
{
ads_name en;
ads_point pt;
ss=ads_entsel("\n请选择要缩放的钢筋编号",en,pt);
if(ss!=RTNORM)
break;

//由实体名来获取对象标志符
AcDbObjectId objId;
acdbGetObjectId(objId,en);

AcDbEntity *pEnt;
acdbOpenAcDbEntity(pEnt,objId,AcDb::kForWrite);

//gCyz和gConfig为自己写的函数，GetLayerInfo是取得层名
char str[50];
gCyz_ArxBegin();
gConfig.GetLayerInfo(LBIAOZHU,NULL,str,NULL,NULL);
gCyz_ArxEnd();

//判断所选实体是否钢筋编号
if(strcmp(pEnt->layer(),str)==0)
{
AcGePoint3d InsertPnt;
InsertPnt.x = pt[X];
InsertPnt.y = pt[Y];
InsertPnt.z = 0;

AcGeMatrix3d scaler;
//5.0为*.DWG中圆的实际直径
double scale = dD/5.0;
scaler.setToScaling(scale,InsertPnt);
pEnt->transformBy(scaler);
pEnt->close();

}
else
{
ads_printf("\n没有选择或选择了不匹配实体");

}

}
else return;
}

}
以上是把插入的属性块当作一个实体来处理的，如果哪位朋友有更好的方法请指点下新人，谢谢了。