//AutoCad2012新增类 获取所有变量名和值 AcRxVariablesDictionary *dic=AcRxVariablesDictionary::get(); const AcArray<AcString> aaa= dic->getAllNames(); for (int i=0; i<aaa.length(); i++) { acutPrintf(_T("\n变量名=%s;"),aaa.at(i)); struct resbuf rb; Acad::ErrorStatus es= dic->getVariable(aaa.at(i))->getValue(rb); if (Acad::eOk == es) { if (rb.restype == RTSTR) { acutPrintf(_T(" 值=%s"),rb.resval.rstring); } else if (rb.restype == RTREAL) { acutPrintf(_T(" 值=%0.4lf"),rb.resval.rreal); } else if (rb.restype == RTSHORT) { acutPrintf(_T(" 值=%d"),rb.resval.rint); } else if (rb.restype == RTLONG) { acutPrintf(_T(" 值=%d"),rb.resval.rlong); } } }