[分享]：在arx直接使用lisp函数的方法

fylinwater

从AutoDesk问来的，埃 原来是vlisp学得不好

2. 
   
3. You can directly call lisp function from ObjectARX application using
   
4. acedInvoke(...).
   
5. 
   
6. See example:
   
7. 
   
8. =========LISP code start==============
   
9. (defun myfun()
   
10.   (setq myfunret 2)
    
11. )
    
12. ;
    
13. ; If you want to be able to invoke this function from an external ObjectARX
    
14. ; application, you can use vl-acad-defun to make the function accessible.
    
15. ;
    
16. (vl-acad-defun 'myfun)
    
17. =========LISP code end===============
    
18. 
    
19. =========C++ code start==============
    
20. int call_lisp_function(void)
    
21. {
    
22.     resbuf *rb_in = acutBuildList(RTSTR,"myfun",RTNONE);
    
23.     resbuf *rb_out = NULL;
    
24.     int rc = acedInvoke(rb_in,&rb_out);
    
25.     acutRelRb(rb_in); acutRelRb(rb_out);
    
26.     acedGetSym("myfunret",&rb_out);
    
27.     return (RSRSLT) ;
    
28. }
    
29. 
    
30. =========C++ code end===============
    

<br /> You can directly call lisp function from ObjectARX application using<br /> acedInvoke(...).<br /> <br /> See example:<br /> <br /> =========LISP code start==============<br /> (defun myfun()<br />   (setq myfunret 2)<br /> )<br /> ;<br /> ; If you want to be able to invoke this function from an external ObjectARX<br /> ; application, you can use vl-acad-defun to make the function accessible.<br /> ;<br /> (vl-acad-defun 'myfun)<br /> =========LISP code end===============<br /> <br /> =========C++ code start==============<br /> int call_lisp_function(void)<br /> {<br />     resbuf *rb_in = acutBuildList(RTSTR,"myfun",RTNONE);<br />     resbuf *rb_out = NULL;<br />     int rc = acedInvoke(rb_in,&rb_out);<br />     acutRelRb(rb_in); acutRelRb(rb_out);<br />     acedGetSym("myfunret",&rb_out);<br />     return (RSRSLT) ;<br /> }<br /> <br /> =========C++ code end===============<br />

ishou

Very Good![/COLOR]

wykdy

一直在找lisp调用arx的程序,却在这里找到相反的.
fylinwater兄能不能给一个在lisp调用arx的程序,3x!

fylinwater

LISP 里调用arx的函数需要arx在编译前定义好 输出为全局函数，否这不好调用。 如果输出可以直接当lisp内部函数一样用。 本版搜索lisp肯定可以找到具体方法。

bluewood_cn

如果 lisp 函数带有 参数怎么调用？？

feng3428

好，正找ARX与LISP相互调用的范例，谢了

LZFCOMPUTER

如果LISP函数带参数可以在acutBuildList构建

lpcn

长知识，谢了

cutechun

Lisp 调用ARX程序方法看下全局函数：
acedDefunconst char * sname,short funcno);

short funcno 是一个函数序号，调用时可用acedGetFunCode取得；要在acrxEntryPoint中响应kInvkSubrMsg消息 ．