加载Lisp通过VBA
我很难尝试将这个lisp加载到autocad中。我错过了什么吗？Public AcadApp As AcadApplication
Sub lsp()
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
AcadApp.ActiveDocument.SendCommand "(load ""C:/temp/lsp.lsp"") "
AcadApp.ActiveDocument.SendCommand "(c:lsp) "
End Sub
再次感谢您的帮助。
**** Hidden Message *****
页:
[1]