From boitboy on 2013-12-22 14:24:20
获取设置环境变量
//功能： 设置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;
}
