当前位置：文江博客话题详情

更好的 Autocad VBA 编辑器

发布于 2024-10-24 16:37:27 字数 267 浏览 7 评论 0原文

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

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

它似乎能够做到这一点的唯一方法，是手动导出 .dvb 中的每个文件；但由于我那里有大约 30 个文件，这似乎不是一个好方法。

关于如何做得更好有什么想法吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

过度放纵 2024-10-31 16:37:27

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

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

You can export all your files with this code :

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

回复收藏 0 原文

半边脸i 2024-10-31 16:37:27

如果您不想使用上述 Export() 子例程修改代码，可以使用 VBA2VB 表单由 Leslie Lowe 编写的 Converter 宏，或修改版本由 Autodesk 开发者网络的 Augusto Gonçalves 编写。该宏的额外好处是能够将简单的 VBA 形式转换为 VB6 形式。如果您希望将来能够将项目移植到 .NET，则需要执行此操作，因为 AutoCAD 正在放弃 VBA 支持。宏的修改版本特别好，因为它将创建进行迁移所需的 .vbproj ASCII 文件，否则您需要旧版 Visual Basic 6 的副本IDE来制作。

FWIW，如果您想查看其中的内容，可以使用 7-Zip 等存档实用程序打开 .dvb 文件 - 但它似乎已编译，如果您想查看它也没有帮助人类可读或可导出的代码。