想问一下，如何lisp与arx进行数据传递，你采用什么方法！？

fzg_2000 · 发表于 2004-3-9 17:33:00

想问一下，如何lisp与arx进行数据传递（交互），你采用什么方法！？
我试图用函数（如acedRetReal等函数）的方法来实现
但始终无法运行
你们有什么好的方法！？
版主，好，你能建议一下吗！？

goldenshin · 发表于 2004-3-10 16:28:00

放上来帮你看看

goldenshin · 发表于 2004-3-10 16:34:00

比如说你在Lisp 中调用
(Setq a (myarx 10))
在Arx中,
1. 定义一个命令myarx
2.在命令myarx中,提取到一个参数10(注意类型RTSHORT)
3.做你的运算,如10*5,返回50
可以用acedRT返回;
最后,Lisp中a就得到50了.

fzg_2000 · 发表于 2004-3-10 18:56:00

根据你所说的，那参数可要一个一个传递
比喻我要传一个数列，代码如下：
int fzg2()    //fzg2为ads_defun定义的命令
{
   resbuf* pArg = acedGetArgs();
CGearDialog Dlg;
short Z;
double c,Ha,M,a,bb,ds;
   Z=Dlg.m_nZ;
.......
res_list=acutBuildList(RTSHORT,Z,
   RTREAL,c,
   RTREAL,Ha,
   RTREAL,M,
   RTREAL,ds,
   RTREAL,bb,0);
   if(res_list!=NULL){
   acdbFail("创建表失败!\n");
   return 0;}
   acedRetList(res_list);
   acutRelRb(res_list);
// TODO: Implement the command
return RTNORM;
}
在lisp里
(setq mylist (list '0,'0,'0,'0,'0,'0))
(setq aa1 (fzg2 mylist))
setq Z (nth 0 aa1)
c (nth 1 aa1)
Ha(nth 2 aa1)
M (nth 3 aa1)
ds(nth 4 aa1)
bb(nth 5 aa1)
错误是; 错误: 无效的数据类型或数据溢出: 0,（autocad命令行提示）
不解，尽请赐教！