[ARX程序]：能在ARX中调用lISP程序吗？

xiner

如题.如果能的话，那么该如何调用呢，请各位高手大虾们指点指点。

masterhe

我在001时回答过这个问题
LPCTSTR lpszCmd=_T("(Alert(\"Go go go!\")) ");
法一:
extern "C" int ads_queueexpr(char*);
无回显
例:
ads_queueexpr(lpszCmd);
法二:
发送WM_COPYDATA信息给ACAD主窗口

1. 
   
2. void SendCommandToAutoCAD(CString strCmd)
   
3. {
   
4.   COPYDATASTRUCT cmdMsg;
   
5.   cmdMsg.dwData = (DWORD)1;
   
6.   cmdMsg.cbData = (DWORD)strCmd.GetLength() + 1;
   
7.   cmdMsg.lpData = (LPVOID)(LPCTSTR)strCmd;                  
   
8.   acedGetAcadFrame()->SendMessage(WM_COPYDATA, 0, (LPARAM)&cmdMsg);
   
9. }
   

复制代码

有回显
例:
SendCommandToAutoCAD(lpszCmd);
法三:针对AutoCAD R2000以上版本
virtual Acad::ErrorStatus
AcApDocManager::sendStringToExecute(
    AcApDocument* pAcTargetDocument,
    const char* pszExecute,
    bool bActivate = true,

    bool bWrapUpInactiveDoc = false) = 0;
无回显
例:
acDocManager->sendStringToExecute(curDoc(),lpszCmd);

土土土

1、用acedDefun来定义Arx命令,这样lisp在调用arx命令时,Arx就能通过acedGetFunCode得知Lisp要的是哪个命令
2、acedGetArgs()得到来自Lisp的ResBuf,反之可用AcEdRetList 向Lisp返回一个resbuf表
3、acedRetInt\acedRetStr...等函数可以向Lisp返回各种类型的数据
总之,Arx与Lisp之间是可以很好地交互的,包括运行过程中的参数传送;

missmoney

struct resbuf *arglist, *rslt=NULL;

        arglist = acutBuildList(RTSTR, "acad_colordlg",
                RTSHORT, color,RTNIL, 0 ); //RTNIL,

acedInvoke(arglist, &rslt);
我只对lisp自己的函数调用过，不知道自己的函数行不行呵呵