AutoCAD启动加载含dvb的.bundle及注册VBA宏命令技术求助

1. 验证Bundle结构与PackageContents.xml配置 #

先给出标准的bundle目录结构，再提供正确的配置文件示例，你可以对照自己的文件检查：

标准Bundle目录结构 #

MyCADWorkflow.bundle/
├─ PackageContents.xml
├─ Contents/
│  ├─ Resources/
│  │  ├─ MyWorkflow.dvb
│  ├─ Support/
│  │  ├─ StartupLoader.lsp

正确的PackageContents.xml示例 #

<?xml version="1.0" encoding="utf-8"?>
<ApplicationPackage xmlns="http://schemas.autodesk.com/AutodeskApplicationPackage/2010/01" SchemaVersion="1.0" ProductType="AutoCAD" ProductVersion="R24.0" Name="MyCADWorkflow" Description="AutoCAD VBA Workflow Automation" Author="Your Name" Version="1.0.0">
  <Components>
    <!-- 注册启动加载的LSP文件 -->
    <ComponentEntry Type="Lisp" ModuleName="./Contents/Support/StartupLoader.lsp" LoadCommand="(load &quot;./Contents/Support/StartupLoader.lsp&quot;)" LoadOnCommandInvocation="False" LoadOnStartup="True" />
    <!-- 注册DVB资源文件，让AutoCAD识别该资源 -->
    <ComponentEntry Type="Resource" ModuleName="./Contents/Resources/MyWorkflow.dvb" />
  </Components>
</ApplicationPackage>

检查要点：

• ProductVersion要匹配你的AutoCAD版本（比如R24.0对应2020版，R25.0对应2021版，以此类推）
• LoadOnStartup设为True，确保LSP在AutoCAD启动时自动加载
• 所有文件路径使用相对路径，避免绝对路径导致部署失败

2. 将DVB宏暴露为AutoCAD命令 #

需要VBA宏编写+LSP命令注册两步配合：

第一步：编写规范的VBA宏 #

确保VBA宏是公开的Sub过程（不要加Private修饰符），命名遵循AutoCAD命令规则（无空格、特殊字符，建议用大写或驼峰命名）：

' 在MyWorkflow.dvb的Module1模块中
Public Sub DrawTitleBlock()
    ' 你的AutoCAD自动化逻辑
    Dim acadApp As Object
    Set acadApp = GetObject(, "AutoCAD.Application")
    Dim acadDoc As Object
    Set acadDoc = acadApp.ActiveDocument
    
    ' 示例：绘制A4尺寸的标题块矩形
    acadDoc.ModelSpace.AddRectangle acadApp.Utility.GetPoint(vbNullString, "指定标题块左下角点: "), 420, 297
End Sub

第二步：在LSP中注册AutoCAD命令 #

在StartupLoader.lsp中先加载DVB文件，再定义命令绑定到VBA宏：

; 检查DVB是否已加载，避免重复加载报错
(if (not (member "MyWorkflow.dvb" (vba-get-projects)))
    (vbaload (findfile "./Contents/Resources/MyWorkflow.dvb"))
)

; 注册AutoCAD命令：输入DRAWTITLE即可调用宏
(defun c:DRAWTITLE ()
    (command "-vbarun" "MyWorkflow.dvb!Module1.DrawTitleBlock")
    (princ) ; 避免命令行返回多余的执行结果
)

关键说明：

• vba-get-projects用于获取已加载的VBA项目列表，判断是否需要重复加载
• c:DRAWTITLE是AutoCAD命令名，用户在命令行输入DRAWTITLE即可触发对应的VBA宏
• -vbarun是AutoCAD内置命令，格式为"-vbarun" "DVB文件名!模块名.宏名"

3. 更优的VBA加载与命令注册方案 #

方案1：增强LSP的错误处理 #

提升鲁棒性，处理DVB加载失败的场景：

(defun LoadMyVBA ()
    (setq dvbPath (findfile "./Contents/Resources/MyWorkflow.dvb"))
    (if dvbPath
        (if (not (member (vl-filename-base dvbPath) (vba-get-projects)))
            (progn
                (vbaload dvbPath)
                (princ "\nMyWorkflow VBA项目已加载")
            )
            (princ "\nMyWorkflow VBA项目已存在")
        )
        (princ "\n错误：未找到MyWorkflow.dvb文件")
    )
)

(LoadMyVBA)

; 注册带错误检查的命令
(defun c:DRAWTITLE ()
    (if (member "MyWorkflow" (vba-get-projects))
        (command "-vbarun" "MyWorkflow.dvb!Module1.DrawTitleBlock")
        (princ "\n错误：MyWorkflow VBA项目未加载")
    )
    (princ)
)

方案2：DVB文件的安全优化 #

如果需要部署给其他用户，建议：

• 对DVB文件进行数字签名，避免AutoCAD弹出安全警告
• 锁定VBA项目，防止代码被随意修改

方案3：替代方案——VLX编译（按需选择） #

如果你的自动化逻辑可以用AutoLISP实现，可将VBA逻辑迁移到AutoLISP，编译成VLX文件，部署更轻便；但如果依赖VBA的特定功能（如Office组件交互），则继续使用DVB即可。

内容的提问来源于stack exchange，提问作者Aris Cahuana