[求助]：请问如何在arx中调用lisp写的程序呢？

saintlzh

如题

rave

最初由 saintlzh 发布
[B]如题 [/B]

在arx中可以调用形如 C:XXX 的lisp函数

1. 
   
2. struct resbuf *result = NULL, *list;
   
3. list = acutBuildList(RTSTR, "c:CXXXX",/*RTXXX, param1...*/ RTNONE);
   
4. if (list != NULL) {
   
5.     int stat = acedInvoke(list, &result);
   
6.     acutRelRb(list);
   
7. }
   
8. if (result != NULL)
   
9. {
   
10.     // Do somthing
    
11.     acutRelRb(result);
    
12. }

复制代码

binbin

void AEC_Road()
{
        CString sCMD = "(load \"AEC_ROAD\" )" ;
        sCMD += "\n";

        AcApDocument* pAcTargetDocument = NULL;
        pAcTargetDocument = acDocManager->curDocument();

        CView * pView = acedGetAcadDwgView();
        if(pView != NULL)
        {
                pView->SetFocus();
        }

        acDocManager->activateDocument(pAcTargetDocument);
        acDocManager->sendStringToExecute(pAcTargetDocument,sCMD,false);
        acDocManager->sendStringToExecute(pAcTargetDocument,_T("draw_road "),false);
}

rave

最初由 binbin 发布
[B]void AEC_Road()
{
        CString sCMD = "(load \"AEC_ROAD\" )" ;
        sCMD += "\n";

        AcApDocument* pAcTargetDocument = NULL;
        pAcTargetDocument = acDocManager->curDocument();

        CView * pView = acedGetA... [/B]

sendStringToExecute方法不可取，有两个缺陷
一、不能取得lisp函数的返回值
二、sendStringToExecute不保证执行顺序，换句话说，有可能在执行 (load "AEC_ROAD" )  之前执行“draw_road”

binbin

我同意是得不到返回值.但第二点我不解!

看看vba的写法

Dim objVLAX As New VLAX, retval As String
    retval  = objVLAX.EvalLispExpression "(defun ax() )"
;-----------------------------------------------------------------

Private VL As Object
Private VLF As Object

Private Sub Class_Initialize()

    Set VL = AcadApplication.GetInterfaceObject("VL.Application.1")
    Set VLF = VL.ActiveDocument.Functions

End Sub


Public Function EvalLispExpression(lispStatement As String)

    Dim sym As Object, ret As Object, retval
   
    Set sym = VLF.Item("read").funcall(lispStatement)
    On Error Resume Next
    retval = VLF.Item("eval").funcall(sym)
    If Err Then
        EvalLispExpression = ""
    Else
        EvalLispExpression = retval
    End If

End Function

rave

sendStringToExecute只是简单的将字符串送到命令行然后立即返回，至于是否执行，执行对错sendStringToExecute并不检测。
因此在一个函数中，用sendStringToExecute同时发送多个命令给Acad是不可取的。
如果真要用sendStringToExecute, 可以结合AcApDocManager::inputPending来保证命令得到执行。
AcApDocManager::inputPending可以得到待处理的字符数目。

binbin

哦,多谢rave

lpcn

AcApDocManager::inputPending怎莫用，能不能讲一下

asky333

AcApDocManager::inputPending可以得到待处理的字符数目。
只能知道等待处理的字符数,还是不能保证字符串的执行啊.