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

从 Excel 加载 LISP

我试图让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
谢谢！
**** Hidden Message *****

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的响应。
AcadApp.ActiveDocument.SendCommand "(load ""C:/Documents and Settings/dguenthner/My Documents/Vlisp/Happyboy.lsp"") "
AcadApp.ActiveDocument.SendCommand "(c:HAPPYBOY) "
页: [1]
查看完整版本: 从 Excel 加载 LISP