[lsp][vba] 批处理程序的几种方法.txt

看看吧,很好的东西,

(vl-load-com)
(vl-load-all "c:\test.lsp")

Sub test()
    Dim docs As AcadDocuments
    Set docs = Documents
    Dim doc As AcadDocument
    Dim i As Integer
    For i = 0 To docs.Count - 1
        Set doc = docs.Item(i)
        doc.SendCommand "macro"
    Next
End Sub