[求助]：在ARX中调用LISP程序，生成对象时，(entlast)出错！

netbee

最近准备用ARX来作界面，所以在ARX中就会调用原有的LISP程序。但出错了。。。

在ARX中调用LISP程序时，
在LISP程序中，调用了（VL－CMDF）函数生成一对象，却无法用(entlast)捕获，返回为nil。

1. 
   
2. void RunLispAxis()
   
3. {
   
4.         int stat;
   
5.         struct resbuf *result=NULL,*list;
   
6.         list=acutBuildList(RTSTR,"c:Axis",0);
   
7.         if(list!=NULL)
   
8.         {        stat=acedInvoke(list,&result);
   
9.         acutRelRb(list);
   
10.         }
    
11.         if(result!=NULL)
    
12.                 acutRelRb(result);
    
13.         else
    
14.                 acutPrintf("\n调用失败！\n");
    
15. 
    
16. }
    

复制代码

LISP中程序段：

2. 
   
3. ;;;........................
   
4.                 (vl-cmdf  "_.line" pt1 pt2"")
   
5.             (setq ss (ssadd (entlast) ss)
   
6.                   a  (cddr a)
   
7.             ) ;_ 结束setq
   
8. ;;;........................
   

<br /> ;;;........................<br />                 (vl-cmdf  "_.line" pt1 pt2"")<br />             (setq ss (ssadd (entlast) ss)<br />                   a  (cddr a)<br />             ) ;_ 结束setq<br /> ;;;........................<br />

请各位大侠，在ARX需要设定什么呢？？

netbee

没有找到根本原因
不过用下面的方法暂时解决了。

1. 
   
2. void RunCmdFun(LPCTSTR LispFun)
   
3. {
   
4.   CString sCMD =LispFun;
   
5.   sCMD += "\n";
   
6. 
   
7.   AcApDocument* pAcTargetDocument = NULL;
   
8.   pAcTargetDocument = acDocManager->curDocument();
   
9. 
   
10.   CView * pView = acedGetAcadDwgView();
    
11.   if(pView != NULL)
    
12.   {
    
13.     pView->SetFocus();
    
14.   }
    
15.   acDocManager->activateDocument(pAcTargetDocument);
    
16.   acDocManager->sendStringToExecute(pAcTargetDocument,sCMD,false);
    
17. }
    

复制代码

调用：RunCmdFun("NBTC_RectAxis");