[求助]：在ARX里如何加载LISP程序？急救!!

雅明

在ARX里如何加载LISP程序？请版主指点。 非常感谢!!!
acedInvoke 函数好像不行。
我想如下所例：
    ^c^c(if (not c:blib)(load "cm-196"));blib
        以上是CAD菜单文件加载LISP程序，在Command 里输入：
(if (not c:blib)(load "cm-196")) 同样可以加载，再输入：blib 命令就可能运行程序。

easypower

把你的lsp用acad.lsp加载，
           然后通过下面的程序执行命令。
                     AcApDocument* pAcTargetDocument = NULL;
        pAcTargetDocument = acDocManager->curDocument();

        acDocManager->activateDocument(pAcTargetDocument);
        acDocManager->sendStringToExecute(pAcTargetDocument,_T("blib "),false);

雅明

非常感谢楼上的解答!!!

ishou

Introduce  a usefull function to you:

1. 
   
2. [COLOR=Blue]sendCommand (char *cmd_line)
   
3. {
   
4.     COPYDATASTRUCT  cmdDATA;
   
5.     HWND  hwnd;
   
6. 
   
7.     hwnd = adsw_acadMainWnd();
   
8. 
   
9.     cmdDATA.dwData = 1;
   
10.     cmdDATA.cbData = strlen(cmd_line)+1;
    
11.     cmdDATA.lpData = cmd_line;
    
12. 
    
13.     SendMessage(hwnd, WM_COPYDATA, (WPARAM) 0, (LPARAM) &cmdDATA);
    
14. }
    
15. [/COLOR]
    

复制代码

sendCommand ( "(load \"mylist\") " );  // will load lisp file:  mylist.lsp
[/COLOR]
sendCommand() can also do many other things, such as:

sendCommand( "LINE ");           // will start  Command  'LINE'
sendCommand( "\3\3[/COLOR]LINE ");   // Command-->  ^C^C[/COLOR]LINE

LoveArx

最初由 雅明 发布
[B]在ARX里如何加载LISP程序？请版主指点。 非常感谢!!!
acedInvoke 函数好像不行。
我想如下所例：
    ^c^c(if (not c:blib)(load "cm-196"));blib
        以上是CAD菜单文件加载LISP程序，在Command 里输入：
... [/B]

ADESK提供了一个未写到文档里面的函数，发送字符串在命令行执行。

使用的时候，如下声明下：

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

论坛以前介绍过的，你可以搜索下 ads_queueexpr 看看。这个是我认为最好的解决方法。

雅明

再次非常感谢楼上几位朋友的详细解答！！使我收获不少！