[求助]：晓东 可以给个用ARX生产LISP函数的例子吗？

fylinwater

晓东 可以给个用ARX生产LISP函数的例子吗？
论坛里没有找到详细的东西，
最多就如下
土土土       
1、用acedDefun来定义Arx命令,这样lisp在调用arx命令时,Arx就能通过acedGetFunCode得知Lisp要的是哪个命令
2、acedGetArgs()得到来自Lisp的ResBuf,反之可用AcEdRetList 向Lisp返回一个resbuf表
3、acedRetInt\acedRetStr...等函数可以向Lisp返回各种类型的数据
总之,Arx与Lisp之间是可以很好地交互的,包括运行过程中的参数传送;

但实际怎么处理呢？

XDSoft

最初由 fylinwater 发布
[B]晓东 可以给个用ARX生产LISP函数的例子吗？
论坛里没有找到详细的东西，
最多就如下
土土土       
1、用acedDefun来定义Arx命令,这样lisp在调用arx命令时,Arx就能通过acedGetFunCode得知Lisp要的是哪个命令
2、acedG... [/B]

你说的实际是指什么？

上面的3点，哪个你不理解？ 举个具体的例子吧

fylinwater

比如用arx写个  （myprinc  str）：   （myprinc "TEST") => "你输入的是TEST"
可以贴个完整的例子吗？ 最好是工程

XDSoft

最初由 fylinwater 发布
[B]比如用arx写个  （myprinc  str）：   （myprinc "TEST") => "你输入的是TEST"
可以贴个完整的例子吗？ 最好是工程 [/B]

1. 
   
2. int examle()
   
3. {
   
4.      resbuf *rb=ads_getargs();
   
5.      
   
6.      if (!rb)
   
7.         return RTNORM;
   
8. 
   
9.      if (rb->restype!=RTSTR)
   
10.         return RTNORM;
    
11. 
    
12.      char * str=rb->resval.rstring;
    
13. 
    
14.      rb=rb->rbnext;
    
15.      if (rb)
    
16.          return RTNORM;
    
17. 
    
18.      .....................  // 上面进行了参数处理，如果没有参数或者，参数不是字符串或者多于1个参数，函数返回NIL
    
19. 
    
20.       return RTNORM;
    
21. }
    
22. 
    

复制代码

fylinwater

编译有问题

E:\DDproject\MYwork\showtip\Main.cpp(106) : error C2065: 'RTNORM' : undeclared identifier
E:\DDproject\MYwork\showtip\Main.cpp(108) : error C2065: 'RTSTR' : undeclared identifier

我在一个函数里添加acedDefun("aaa" , examle());
同时把上面的代码防入同一个文件
这样对吗？
是不是缺少了哪个头文件？ 帮助里找不到定义这两个常量的文件名

XDSoft

最初由 fylinwater 发布
[B]编译有问题

E:\DDproject\MYwork\showtip\Main.cpp(106) : error C2065: 'RTNORM' : undeclared identifier
E:\DDproject\MYwork\showtip\Main.cpp(108) : error C2065: 'RTSTR' : undeclared identifier

我?.. [/B]

把ADS.H, ADSCODE.H等INCLUDE进去。

技巧是提示你什么没有，你可以用WIN的搜索功能，搜索ARX 的INC目录，文件选*.h, 包括文字填这个标识符如：RTNORM，就可以找到需要的头文件了，一般ARX联机帮助里面都能找到。

fylinwater

程序是通过了 功能还没实现，我在ARX入口出添加了acedDefun("aaa" , examle());
又在examle()里添加了acutPrintf( "test\n" );
结果在加载arx时 命令行有“test”  而(aaa "test" ) 什么也不发生 返回值NIL
唉  都快没信心了

XDSoft

最初由 fylinwater 发布
[B]程序是通过了 功能还没实现，我在ARX入口出添加了acedDefun("aaa" , examle());
又在examle()里添加了acutPrintf( "test\n" );
结果在加载arx时 命令行有“test”  而(aaa "test" ) 什么也不发生 返回值NIL
唉  ?.. [/B]

你在命令行输入： !aaa
看看外部函数是否已经定义了。如果没有定义，返回NIL。

另：把你写的代码，完整贴论坛来吧。

fylinwater

1. 
   
2. void cmdFilterChangesOn();
   
3. void cmdFilterChangesOff();
   
4. int examle();
   
5. AsdkInputPointFilter myFilter;
   
6. 
   
7. 
   
8. 
   
9. 
   
10. void cmdShowInfoChanges()
    
11. {
    
12.    
    
13.         acedDefun("aaa" , examle());  //为什么不亮显？
    
14.          
    
15. 
    
16. 
    
17.     if ( NULL != curDoc()->inputPointManager()->currentPointFilter() )
    
18.     {
    
19.                  myFilter.disableChanges();
    
20.         curDoc()->inputPointManager()->revokePointFilter();   
    
21.                 acutPrintf( "实体信息查询功能关闭.\n" );
    
22.     }
    
23.         else
    
24.         {       
    
25.                 curDoc()->inputPointManager()->registerPointFilter( &myFilter );
    
26.                 myFilter.enableChanges();
    
27. 
    
28.                 acutPrintf( "实体信息查询功能打开.\n" );
    
29.         }
    
30. }
    
31. 
    
32. 
    
33. extern "C" __declspec( dllexport )
    
34. AcRx::AppRetCode acrxEntryPoint( AcRx::AppMsgCode msg, void *p )
    
35. {
    
36.     switch ( msg )
    
37.     {
    
38.     case AcRx::kInitAppMsg:
    
39.         acrxRegisterAppMDIAware( p );
    
40.         acrxUnlockApplication( p );
    
41.         acedRegCmds->addCommand( "AsdkInputPoint", "InfoChanges", "DD_INFO", ACRX_CMD_TRANSPARENT, cmdShowInfoChanges );
    
42.         
    
43.                
    
44.                 cmdShowInfoChanges();
    
45.                
    
46.                 break;
    
47. 
    
48.     case AcRx::kUnloadAppMsg:
    
49.         acedRegCmds->removeGroup( "AsdkInputPoint" );
    
50.         cmdShowInfoChanges();
    
51. 
    
52.         break;
    
53.     }
    
54.     return AcRx::kRetOK;
    
55. }
    
56. 
    
57. 
    
58. 
    
59. 
    
60. int examle()
    
61. {
    
62.          acutPrintf( "------------\nddddddddddd\n" );
    
63.      resbuf *rb=ads_getargs();
    
64.     acutPrintf( "输入了1\n" );  
    
65.      if (!rb)
    
66.         return RTNORM ;
    
67. 
    
68.      if (rb->restype!=RTSTR)
    
69.         return RTNORM;
    
70.      acutPrintf( "输入了2\n" );
    
71.      char * str=rb->resval.rstring;
    
72.        acedRetStr(str);
    
73.      rb=rb->rbnext;
    
74.      if (rb)
    
75.          return RTNORM;
    
76. 
    
77.       // 上面进行了参数处理，如果没有参数或者，参数不是字符串或者多于1个参数，函数返回NIL
    
78.        acutPrintf( str );
    
79.       return RTNORM;
    
80. }
    
81. 
    

复制代码

测试结果：
命令: testarx      //加载ARX
------------
ddddddddddd
输入了1
实体信息查询功能打开.

命令:
命令: !aaa
#<SUBR @0290044c <EXRXSUBR>>

命令: (aaa "d"  )
nil
看样子if (!rb)
        return RTNORM ;
就导致函数结束了

XDSoft

你还没有搞清楚ADSRX的模板结构

!aaa 提示你定义了吗？ 还是返回NIL？

1. 
   
2. // 首先，定义一个结构，第一个域为字符串，表示外部函数的名称；
   
3. // 第二个域为函数指针，指向返回值为int型值的函数
   
4. struct func_entry { char *func_name;
   
5. int (*func) ();
   
6. };
   
7. 
   
8. 
   
9. // 在此定义由外部函数名称和对应的用户函数名称所构成的结构数组
   
10. static struct func_entry func_table[] = {
    
11.         {"aaa",example},
    
12. 
    
13. };
    

复制代码

1. 
   
2. extern "C" AcRx::AppRetCode
   
3. acrxEntryPoint(AcRx::AppMsgCode msg, void* pkt)
   
4. {
   
5.         switch (msg) {
   
6.         case AcRx::kInitAppMsg:
   
7.                 InitModule(_hdllInstance, DLL_PROCESS_ATTACH, NULL);
   
8.                 acrxUnlockApplication(pkt);
   
9. #if(ADS>14)
   
10.                 acrxDynamicLinker->registerAppMDIAware(pkt);
    
11. #endif
    
12.                 initApp();
    
13.                 break;
    
14.         case AcRx::kLoadDwgMsg:
    
15.         [color=blue]        OnkLoadDwgMsg();[/color]
    
16.                 break;
    
17. ......
    

复制代码

2. 
   
3. static int OnkLoadDwgMsg(void)
   
4. {
   
5.         // TODO: add your message handler code here
   
6.         // FUNCLOAD  --  定义此应用程序的两个外部函数
   
7.         int i;
   
8.         for (i = 0; i < ELEMENTS(func_table); i++) {
   
9.                 if (!ads_defun(func_table[i].func_name, (short)i))
   
10.                         return RTERROR;
    
11.         }
    
12.        
    
13.         // end of message handler
    
14. }
    

<br /> static int OnkLoadDwgMsg(void)<br /> {<br />         // TODO: add your message handler code here<br />         // FUNCLOAD  --  定义此应用程序的两个外部函数<br />         int i;<br />         for (i = 0; i < ELEMENTS(func_table); i++) {<br />                 if (!ads_defun(func_table[i].func_name, (short)i))<br />                         return RTERROR;<br />         }<br />         <br />         // end of message handler<br /> }<br />

fylinwater

我昨天帖的代码编译执行后
命令: (aaa "d")
nil
命令: !aaa
#<SUBR @0290044c <EXRXSUBR>>
说明函数已经生成了吧

晓东：arx 帮助里好像找不到ads_defun函数  
但有acedDefun
int acedDefun(
    const char* sname,
    short funcno);
Include File：acedads.h
但是没有说明这两个参数是什么意思 怎么使用
使用ADS函数好像复杂多了
/////
原来有个很好的方法就是用ARXWIZARD工具直接定义
可以生成现成的代码