[ARX程序]：请问XDSOFT老师！

chsqchne

请问如何在ARX程序中实现加载我的LISP程序，是不是用ads_command函数，调用AppLoad，如何用？

XDSoft

最初由 chsqchne 发布
[B]请问如何在ARX程序中实现加载我的LISP程序，是不是用ads_command函数，调用AppLoad，如何用？ [/B]

一个方法，你可以用“字符串发送到命令行”，把“(load "x:\\abc.lsp")发送到命令行，让LISP解释程序执行，用这个做关键字搜索下论坛，论坛以前讨论过。

chsqchne

在主题"如何让ARX调用LISP函数－兼谈如何发送字符串到命令行让ACAD执行"提到可以使用ads_command()或者ads_cmd()函数来执行AutoCAD的命令（包括AutoLISP函数、
AutoCAD的内部命令以及注册的ARX应用程序），是不是可以在ARX程序中调用？
如ads_command("load","x:\\abc.lsp");

XDSoft

最初由 chsqchne 发布
[B]在主题"如何让ARX调用LISP函数－兼谈如何发送字符串到命令行让ACAD执行"提到可以使用ads_command()或者ads_cmd()函数来执行AutoCAD的命令（包括AutoLISP函数、
AutoCAD的内部命令以及注册的ARX应用程序），是不是?.. [/B]

LOAD不是ACAD命令，是LISP函数，所以你不能这么做。

chsqchne

是否把如下代码放在ARX中，放在何处？然后为hWndAcad=_hdllInstance；cmd="(load "x:\\abc.lsp") ；我把它放在命令文件中，然后在命令函数内调用。
Link时发现多个错误，其中'SCtring' : undeclared identifier。请问要怎样才好？

  void SendCommandToAutoCAD(HWND hWndAcad,CString cmd)
  {
   if (!hWndAcad)
     return;
   COPYDATASTRUCT cmdMsg;
   cmdMsg.dwData=(DWORD)1;
   cmdMsg.cbData=(DWORD)_tcslen(cmd)+1;
   cmdMsg.lpData=cmd.GetBuffer(cmd.GetLength()+1);
   SendMssage(hWndAcad,WM_COPYDATA,(WPARAM)hWndAcad,(LPARAM)&cmdMsg);
  }

XDSoft

最初由 chsqchne 发布
[B]是否把如下代码放在ARX中，放在何处？然后为hWndAcad=_hdllInstance；cmd="(load "x:\\abc.lsp") ；我把它放在命令文件中，然后在命令函数内调用。
Link时发现多个错误，其中'SCtring' : undeclared identifier。请... [/B]

SCtring这个应该是CString才对

chsqchne

请问包含那些头文件。

noname

你调试一下，就可以看出少不少头文件：）））

chsqchne

可能是少了，我的头文件包含:
#include <aced.h>
#include <dbents.h>
#include <dbsymtb.h>
#include <adslib.h>
#include <string.h>
#include <geassign.h>
编译时，还是出错：
E:\Program Files\Microsoft Visual Studio\MyProjects\cmd\cmdCommands.cpp(13) : error C2061: syntax error : identifier 'CString'
E:\Program Files\Microsoft Visual Studio\MyProjects\cmd\cmdCommands.cpp(301) : error C2061: syntax error : identifier 'CString'
E:\Program Files\Microsoft Visual Studio\MyProjects\cmd\cmdCommands.cpp(307) : error C2065: 'cmd' : undeclared identifier
E:\Program Files\Microsoft Visual Studio\MyProjects\cmd\cmdCommands.cpp(308) : error C2228: left of '.GetBuffer' must have class/struct/union type
E:\Program Files\Microsoft Visual Studio\MyProjects\cmd\cmdCommands.cpp(308) : error C2228: left of '.GetLength' must have class/struct/union type
E:\Program Files\Microsoft Visual Studio\MyProjects\cmd\cmdCommands.cpp(309) : error C2065: 'SendMssage' : undeclared identifier

chsqchne

头文件包含:
#include "StdAfx.h"
#include "StdArx.h"
#include <aced.h>
#include "dbents.h"
#include  "dbsymtb.h"
#include  "adslib.h"
#include  "string.h"
#include  "geassign.h"

XDSoft

最初由 chsqchne 发布
[B]头文件包含:
#include "StdAfx.h"
#include "StdArx.h"
#include <aced.h>
#include "dbents.h"
#include  "dbsymtb.h"
#include  "adslib.h"
#include  "string.h"
#include  "geassign.h" [/B]

你生成的ARX模板用了MFC了吗？

CString是MFC里面的类。

chsqchne

是的，请问还要包含头文件吗？

XDSoft

最初由 chsqchne 发布
[B]是的，请问还要包含头文件吗？ [/B]

用MFC生成的ARX框架，默认就包括CString类了，不行，你手工INCLUDE下，试试。

chsqchne

用CString不可以，我想我可以改CString为LPSTR，可不可以？只是COPYDATASTRUCT结构变量， SendCommandToAutoCAD函数不知道需要那些头文件。