CDR VBA自定义按钮如何关联动作

Question

 CommandBars("AWCExportPlt").Delete
 CommandBars.Add("AWCExportPlt").Visible = True
 FrameWork.CommandBars("AWCExportPlt").Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "ExportPlt"

如何关联操作

Answer 1

该回答引用GPTᴼᴾᴱᴺᴬᴵ
可以使用CommandBars对象的Controls.Add方法来向自定义按钮添加点击事件的关联动作。示例代码如下：

Sub ExportPlt()
    ' 定义关联的动作
    MsgBox "执行导出图纸动作"
End Sub

Sub AddCustomButton()
    ' 添加自定义按钮
    Dim btn As CommandBarButton
    Set btn = CommandBars("AWCExportPlt").Controls.Add(msoControlButton)
    With btn
        .Caption = "ExportPlt"
        .OnAction = "ExportPlt" ' 关联点击事件
        .FaceId = 59
    End With
End Sub

在这个示例代码中，我们先定义了一个名为ExportPlt的子过程，用于表示按钮点击后要执行的动作。然后在AddCustomButton子过程中，使用CommandBars对象的Controls.Add方法添加了一个Caption为"ExportPlt"的按钮，并通过OnAction属性将其关联到了ExportPlt子过程，这样点击按钮时就会执行ExportPlt子过程中定义的代码。