改变CAD的字体的大小！！急急！！

zyzf

各位老大：
     请问在程序中怎么样才能改变CAD中字体的大小！
     怎样通过比例因子改变字体的大小呢？？？
  
有没有类似的列子，请贴出来或发给我:zhouanddan@163.com
感激不尽！！

victory

long entname[2];
double pt[3];
if(acedEntSel("\nSpecify a Text:",entname,pt)!=RTNORM)
   return;
AcDbObjectId EntID;
AcDbobject *pObj;
acdbGetObjectId(EntID,entname);
acdbOpenObject(pObj,EntID,AcDb::kForRead);
if(!pObj->isKindOf(AcDbText::desc()))//判断选择的是不是文字
{
   pObj->close();
   return;
}
pObj->close();
AcDbText pText;
acdbOpenobject(pText,EntID,AcDb::kForWrite);
pText->setHeight(3);//设置大小
pText->setWidthFactor(0.77);//设置比例因子
pText->close();