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