[求助]：arx能调用lisp定义的命令吗？

lgw

arx能调用lisp定义的命令吗（例如：defun定义的）？

fylinwater

2000以后就不知道了
是不是有间接的方法也没想到

fylinwater

2000 前是不能的  
（原来在回帖的时候写在标题上的话是不显示出来的啊）

XDSoft

最初由 lgw 发布
[B]arx能调用lisp定义的命令吗（例如：defun定义的）？ [/B]

使用：sendStringToExecute往命令行发送字符串让ACAD执行

virtual Acad::ErrorStatus
sendStringToExecute(
    AcApDocument* pAcTargetDocument,
    const char* pszExecute,
    bool bActivate = true,

    bool bWrapUpInactiveDoc = false) = 0;

pAcTargetDocument        Document to send input to
pszExecute        String to use as input
bActivate        Boolean indicating whether to activate the target document
bWrapUpInactiveDoc        Boolean indicating whether to queue current active document to complete in next OnIdle() when switching active documents.

This function sends a string to the command line to be executed in the provided target document.

XDSoft

最初由 fylinwater 发布
[B]2000 前是不能的  
（原来在回帖的时候写在标题上的话是不显示出来的啊） [/B]

在R14也可以的，原理就是往命令行发送字符串，没有现成的API，可以自己写个，获得命令行窗口句柄，往上发消息。

fylinwater

我搞错了
我指的是调用lisp定义的带参数的函数

XDSoft

最初由 fylinwater 发布
[B]我搞错了
我指的是调用lisp定义的带参数的函数 [/B]

一样的啊，都是发字符串到命令行，比如你把 "(abc 1 2 3)"发到命令行就可以了啊。ARX不知道做什么，只是把他们发到命令行，让ACAD解释而已。

土土土

ObjectARX applications cannot call AutoLISP functions
但是AutoLisp能调用Arx而且可以同调用Lisp自已的function一样交互数据.

XDSoft

最初由 fylinwater 发布
[B]我搞错了
我指的是调用lisp定义的带参数的函数 [/B]

真正意义上是ARX可以让AUTOCAD LISP解释器去执行命令行的交互，“间接”的调用LISP函数，当然也可以获得LISP函数的返回值，在ARX程序里面使用ads_getsysm()获得LISP变量符号值。

获得符号值的前提是这个ARX函数必须是ADSRX定义的外部函数，既不是通过AcEdCommandStack::addCommand定义的命令，而是通过ads_defun定义的外部函数，既type 函数名得到的类型是：EXRXSUBR
如：命令: (type sldna)
EXRXSUBR

XDSoft

最初由 fylinwater 发布
[B]我搞错了
我指的是调用lisp定义的带参数的函数 [/B]

  在ObjectARX编程中，可以使用ads_command()或者ads_cmd()函数来执行AutoCAD的命令（包括AutoLISP函数、
AutoCAD的内部命令以及注册的ARX应用程序）；但也可以通过向AutoCAD发送消息的形式来执行上面的操作，
尤其是对于独立于AutoCAD运行的应用程序。例如在启动AutoCAD后进行的诸如加载菜单等初始化工作，就必须
向AutoCAD发送消息才能进行。

  在AutoCAD 2000（包括14.0版本）中，通过Windows/NT平台向AutoCAD发送消息所采用的消息标识于12.0版本
  有所不同。其中，AutoCAD 12.0（WINDOWS版本）使用定制的WM_ACAD消息，而AutoCAD2000使用WIN32 API本身
  提供的WM_COPYDATA消息。

  发送WM_COPYDATA消息只能采用SendMessage()函数（或者相应的MFC类成员函数），其原型声明如下：

1. 
   
2. LRESULT SendMessage(HWND hWnd, //目的窗口句柄
   
3.                       UINT Msg,  //发送的消息
   
4.                       WPARAM wParam, //第一个消息函数，发送消息的窗口句柄
   
5.                       LPARAM lParam, //第二个消息函数
   
6.                      );
   

复制代码

  发送WM_COPYDATA消息时，必须构造一个COPYDATASTRUCT结构变量作为消息的第二个参数，既lParam。
COPYDATASTRUCT结构如下：

1. 
   
2.   typedef struct tagCOPYDATASTRUCT{
   
3.      DWORD dwData;
   
4.      DWORD cbData;
   
5.      PVOID lpData;
   
6.   }COPYDATASTRUCT;
   

复制代码

  在向AutoCAD2000发送WM_COPYDATA消息时，dwData域必须置为1且为32位；lpData 域必须指向将要发送
  的以空字符（null）结束的命令字符串，该域可以为空（null）；cbData 域值指定该命令字符串的长度。
  如果dwData域值不为1，或者lpData指向的命令字符串不以NULL结束，则AutoCAD 主程序将不会处理该消息。

  下面的函数可以向AutoCAD 2000的主程序发送一条字符串命令：

1. 
   
2.    void SendCommandToAutoCAD(HWND hWndAcad,CString cmd)
   
3.    {
   
4.       if (!hWndAcad)
   
5.          return;
   
6.       COPYDATASTRUCT cmdMsg;
   
7.       cmdMsg.dwData=(DWORD)1;
   
8.       cmdMsg.cbData=(DWORD)_tcslen(cmd)+1;
   
9.       cmdMsg.lpData=cmd.GetBuffer(cmd.GetLength()+1);
   
10.       SendMssage(hWndAcad,WM_COPYDATA,(WPARAM)hWndAcad,(LPARAM)&cmdMsg);
    
11.    }
    

复制代码

  ADSRX函数 asdw_acadMainWnd()返回 AutoCAD 2000主框架窗口的句柄，其值等于acedGetAcadFrame()->m_hWnd
  注意：只有动态链接MFC库时两者才相等（在Project|Settings|General中设置）；否则，即时编译能通过，
acedGetAcadFrame()->m_hWnd的值也是错误的，并且毫无意义。

  注意：在上述任何情况下，函数asdw_acadMainWnd()的返回值总是正确的。

  当然，上述函数代码可以添加到任何基于MFC类库ARX 编程工作中，不过，对于非MFC程序，则需要将传递字符串
  命令的参数从CString改为LPSTR(因为没有用MFC,所以CString不能用），并且对命令字符串的操作也要相应修改。

XDSoft

最初由 fylinwater 发布
[B]我搞错了
我指的是调用lisp定义的带参数的函数 [/B]

另外一个让ACAD执行字符串的方法比较简单，使用ARX未公开的函数ads_queueexpr()....
使用这个函数前，要声明：
extern "C" int ads_queueexpr(const char*);
见下面的ADN教学

SendStringToExecute does not work when called during kLoadDwgMsg  
ID    45277  
Applies to:    AutoCAD 2000

Date    6/22/2000  

This document is part of    ObjectARX   AcDb (AutoCAD Database)   Calling Commands   MDI-MDE   Opening Drawings   AcEd     


Question
Why does an "eNoDocument" error occur when executing an AutoLISP expression
while in the kLoadDwgMsg handler and when using sendStringToExecute?
Answer
Although sendStringToExecute is the preferred way to execute an AutoLISP
expression or commands on AutoCAD 2000, this function does not work during the
kLoadDwgMsg. This is because the AutoCAD command line is not yet fully ready at
this point. (Note that your application receives a kLoadDwgMsg when it is loaded
into AutoCAD in the middle of a session, and at that time sendStringToExecute
will work. However, kLoadDwgMsg is also sent to your application when a new
document is created and sendStringToExecute will not work in this scenario.)

The workaround is to use the ads_queueexpr function in this context. (Search the
ObjectARX online help for more information on ads_queueexpr.)

Example:
extern "C" int ads_queueexpr(const char*);

void OnkLoadDwgMsg()
{
        ads_queueexpr("(command \"line\" \"0,0\" \"1,1\" \"\")\n");