vba - 一个更好的 Autocad VBA 编辑器

Question

我正在 Autocad 中开发一些 VBA 宏。内置编辑器已过时，但我找不到更好的方法来编辑 .dvb文件。

一个 .dvb文件确实包含许多其他打包的源文件，到目前为止我认为 Autocad 是唯一可以解压缩它们的软件......

似乎能够做到这一点的唯一方法是从 .dvb 中导出每个文件。手动；但是因为我有大约 30 个文件，所以这似乎不是一个好方法。

关于如何更好地做到这一点的任何想法？

Answer 1

您可以使用以下代码导出所有文件:

Public Sub Export()
    Dim vbe As vbe
    Set vbe = ThisDrawing.Application.vbe
    Dim comp As VBComponent
    Dim outDir As String
    outDir = "C:\\Temp\\VbaOutput"
    If Dir(outDir, vbDirectory) = "" Then
        MkDir outDir
    End If
    For Each comp In vbe.ActiveVBProject.VBComponents
        Select Case comp.Type
            Case vbext_ct_StdModule
                comp.Export outDir & "\" & comp.Name & ".bas"
            Case vbext_ct_Document, vbext_ct_ClassModule
                comp.Export outDir & "\" & comp.Name & ".cls"
            Case vbext_ct_MSForm
                comp.Export outDir & "\" & comp.Name & ".frm"
            Case Else
                comp.Export outDir & "\" & comp.Name
        End Select
    Next comp

     MsgBox "VBA files were exported to : " & outDir
End Sub