请教：lsp获得的选择集，arx能调用吗？求思路

风树

求思路。。
求思路。。
求思路。。
求思路。。

Gu_xl

可以的！用向导定义一个外部函数，和Lisp通讯即可！

1.         static int ads_test(void)
   
2.         {
   
3.                 //----- Remove the following line if you do not expect any argument for this ADS function
   
4.                 struct resbuf *pArgs =acedGetArgs () ;
   
5. 
   
6.                 // TODO: add your code here
   
7.                 if (pArgs == NULL)
   
8.                 {
   
9.                         acdbFail(_T("参数太少"));
   
10.                                 return RTERROR;
    
11.                 }
    
12.                 if (pArgs->restype != RTPICKS)
    
13.                 {
    
14.                         acdbFail(_T("参数错误"));
    
15.                         return RTERROR;
    
16.                 }
    
17.                 //ss 为Lisp传递进来的选择集
    
18.                 ads_name ss;
    
19.                 ads_name_set(pArgs->resval.rlname,ss);
    
20.                 //添加对ss进行处理的后续代码
    
21.          ....
    
22. 
    
23.                 // TODO: Replace the following line by your returned value if any
    
24.                 acedRetVoid () ;
    
25. 
    
26.                 return (RSRSLT) ;
    
27.         }

        static int ads_test(void)<br />         {<br />                 //----- Remove the following line if you do not expect any argument for this ADS function<br />                 struct resbuf *pArgs =acedGetArgs () ;<br /> <br />                 // TODO: add your code here<br />                 if (pArgs == NULL)<br />                 {<br />                         acdbFail(_T("参数太少"));<br />                                 return RTERROR;<br />                 }<br />                 if (pArgs->restype != RTPICKS)<br />                 {<br />                         acdbFail(_T("参数错误"));<br />                         return RTERROR;<br />                 }<br />                 //ss 为Lisp传递进来的选择集<br />                 ads_name ss;<br />                 ads_name_set(pArgs->resval.rlname,ss);<br />                 //添加对ss进行处理的后续代码<br />          ....<br /> <br />                 // TODO: Replace the following line by your returned value if any<br />                 acedRetVoid () ;<br /> <br />                 return (RSRSLT) ;<br />         }

在Lisp中用如下方式调用:
(test (ssget))

风树

Gu_xl 发表于 2013-10-3 22:26
可以的！用向导定义一个外部函数，和Lisp通讯即可！

在Lisp中用如下方式调用:

谢谢哦，我看看 ，但不懂lsp，研究一下

wwwliuyu

Gu_xl 发表于 2013-10-3 22:26
可以的！用向导定义一个外部函数，和Lisp通讯即可！

在Lisp中用如下方式调用:

你这方法不是ARX调用lisp，而是lisp调用arx定义的外部函数，只是传递个选择集而已，ARX应该使用acedInvoke函数调用LISP或使用acedGetSym函数来获取LISP变量的值。

风树

wwwliuyu 发表于 2013-10-6 20:38
你这方法不是ARX调用lisp，而是lisp调用arx定义的外部函数，只是传递个选择集而已，ARX应该使用acedInvok ...

谢谢提供思路哦