获取设置环境变量

//功能： 设置int型环境变量
Acad::ErrorStatus SetCADIntVar(CString sMode,int nRet)
{
 Acad::ErrorStatus es=Acad::eOk;

 resbuf *pNewRb=acutBuildList(RTSHORT,nRet,0);
 acedSetVar(sMode,pNewRb);
 acutRelRb(pNewRb);

 return es;
}
//功能： 获取int型环境变量
Acad::ErrorStatus GetCADIntVar(CString sMode,int &nRet)
{
 Acad::ErrorStatus es=Acad::eOk;

 resbuf *pRb=acutBuildList(RTSHORT,23,0);
 acedGetVar(sMode,pRb);
 if(pRb==NULL)
 {
  acutRelRb(pRb);
  return Acad::eNullHandle;
 }
 nRet=pRb->resval.rint;
 acutRelRb(pRb);

 return es;
}