ObjectARX设置Lisp函数变量

admin1

ObjectARX设置Lisp函数变量

resbuf *vv=NULL;
  ret = acedGetSym(_T("abcdef"), &vv);
  if (ret == RTNORM && vv) {
    if (vv->restype == RTSHORT) {
      acutPrintf(_T("当前值 %d\n"), vv->resval.rint);
      vv->resval.rint = 23;
      ret = acedPutSym(_T("abcdef"), vv);
    }
    acutRelRb(vv);
  } else {
    acutPrintf(_T("abcdef 没有定义\n"));
  }

acedPutSym可以直接用，变量不存在的时候会自动定义，约等于lisp的setq。