CAD输入函数

acedGetInt 获取一个整数值
acedGetReal 获取一个实数值
acedGetString 获取一个字符串
acedGetAngle 获取一个角度值
acedGetKword 获取一个关键字
acedInitGet  对acedGetXXXX函数进行初始化
acedGetFileD  从文件对话框中选取一个文件
acedGetPoint 拾取一个点
acedEntSel 拾取一个单一实体
acedNEntSel 拾取一个单一的套实体
acutSSGet 拾取多个实体
acutPrintf 在AutoCAD的文本区显示信息

int stat,iValue;
double rValue;
TCHAR kWord[133];

acedInitGet(RSG_NONEG | RSG_NOZERO,L"");
if(acedGetInt(L"/nEnter an integer value:",&iValue) != RTNORM)
  return;

rValue=12.0;
acedInitGet(RSG_NOZERO,L"PI A B C");
stat=acedGetReal(L"/nEnter a real value[PI/A/B/C]<C>:",&rValue);
switch(stat)
{
  case RTCAN:
    return;
  case RTKWORD:
      if(acedGetInput(kWord) != RTNORM)
         return;
      if(!_tcscmp(L"PI",kWord))
          rValue=3.14;
      else if(!_tcscmp(L"A",kWord))
          rValue=10;
      else if(!_tcscmp(L"B",kWord))
          rValue=11;
      else if(!_tcscmp(L"C",kWord))
          rValue=12;
          break;
   case RTNONE:
      acutPrint();
      break;
   case RTNORM:
      break;
   default:
      return;

}