新手，版主帮忙，万分感谢！！！！

h2023197

我用了版主的程序，还有点问题！
lisp程序：
(defun myarx()
(setq myarxret 50)
)
(vl-acad-defun 'myarx)
C++代码：
resbuf *rb_in1=acutBuildList(RTSTR,"myarx",RTNONE);
resbuf *rb_out1=NULL;
int rd=acedInvoke(rb_in1,&rb_out1);
int x=acedGetSym("myarxret",&rb_out1);
acutPrintf("\n x=%d\n",x,rb_out1->resval.rreal);
为什么运行结果是：
x=5100

王咣生

1. lsp程序: (defun myfun()
(setq myfunret 44)
)
(vl-acad-defun 'myfun) 2. arx程序 static void acedInvoke_ink(void)
{
// Add your code for command acedInvoke._ink here
resbuf *rb_in = acutBuildList(RTSTR, "myfun", RTNONE);
resbuf *rb_out = NULL; int rc = acedInvoke(rb_in, &rb_out);
acutRelRb(rb_in); acedGetSym("myfunret", &rb_out); int ret = rb_out->resval.rint; acutRelRb(rb_out);
acutPrintf("\n ret = %d", ret);
} 我试过了,没问题

h2023197

谢谢版主，我明白了，真是万分感谢！！！