从 Excel 加载 LISP

debgun · 发表于 2010-3-16 11:45:11

我试图让Excel VBA加载一个lisp例程，然后运行该例程。目前，我可以加载AutoCAD。有什么建议吗
以下是加载AutoCAD的代码。

Sub GetAutoCAD()
    On Error Resume Next
    Set AcadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("AutoCAD.Application")
    End If
    
    AppActivate AcadApp.Caption
    AcadApp.Visible = True
    AcadApp.Application.WindowState = acNorm
    AcadDoc.ActiveSpace = acModelSpace
    
    
    If AcadApp.Documents.Count = 0 Then
        AcadApp.Documents.Add
    End If
 
End Sub

谢谢！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

dgorsman · 发表于 2010-3-16 14:44:24

最好使用AutoCAD作为应用程序，Excel工作簿作为数据文件。您可以调用SendCommand方法，但是它是异步的，这会导致计时问题。也许您应该通过acaddoc.lsp文件加载LISP？除非你问如何在Excel中加载LISP(它不能)。

debgun · 发表于 2010-3-16 15:30:35

是的。我想出了如何从Excel VBA加载和调用lisp例程。感谢dgorsman的响应。

copy

AcadApp.ActiveDocument.SendCommand "(load ""C:/Documents and Settings/dguenthner/My Documents/Vlisp/Happyboy.lsp"") "
AcadApp.ActiveDocument.SendCommand "(c:HAPPYBOY) "

从 Excel 加载 LISP

发表回复

精选推荐

浏览过的版块