請教下高手ARX和LISP程序調用的問題

wocall

谢谢

lovelin

我也遇到这样的问题了,但没有一个高手会,你后面的LISP程序是这样的:

Command: (setq testboole t)

T

Command: (setq teststr "HELLO, WORLD")

"HELLO, WORLD"

Command: (setq sset1 (ssget))

<Selection set: 1>

而且这些东西必须先註册过.否则上面的代码不能用.

spaceh

版主都说过了，呵呵，引用一下： int call_lisp_function(void)
{
resbuf *rb_in = acutBuildList(RTSTR,"myfun",RTNONE);
resbuf *rb_out = NULL;
int rc = acedInvoke(rb_in,&rb_out);
acutRelRb(rb_in); acutRelRb(rb_out);
acedGetSym("myfunret",&rb_out);
return (RSRSLT) ;
}

wocall

谢谢!

h2023197

上次的问题怎么解决的？ 以下是上次的程序： const char * str;
str = "(defun dtr(a) (* a ( / Pi 180.0))) ";
acDocManager->sendStringToExecute(pAcTargetDocument,str,false); //向CAD发送LISP字符串
acDocManager->sendStringToExecute(pAcTargetDocument,"(vl-acad-defun 'dtr) ",false); //函数註册
int stat;
int x = 180;
struct resbuf *result = NULL;
struct resbuf *list;
list = acutBuildList(RTSTR, "dtr", RTSHORT, x, RTNONE);
if (list != NULL)
{ stat = acedInvoke(list, &result);
acutRelRb(list);
}
if (result != NULL)
{ acutPrintf("\nSuccess: dtr of %d is %f\n", x, result->resval.rreal);
acutRelRb(result);
}
else
acutPrintf("Test failed\n");
结果运行的结果是这样的:
第一次是这样的.
Command: ff Test failed
Command: (defun dtr(a) (* a ( / Pi 180.0))) DTR
Command: (vl-acad-defun 'dtr) 2085
以后运行结果是这样的:
Command: ff
Success: dtr of 180 is 3.141593
Command: (defun dtr(a) (* a ( / Pi 180.0))) DTR
Command: (vl-acad-defun 'dtr) 2085
问题:第一次执行失败,以后就对了,是不是LISP函数註册的问题呀?还是命令栈后进先出的问题,
总之第一次运行就不正确,你帮著看下有什么好的解决办法,谢谢!