Option Explicit
Private WithEvents oConMenu As UserInputEvents
Private Sub Class_Initialize()
Set oConMenu = ThisApplication.CommandManager.UserInputEvents
End Sub
Private Sub Class_Terminate()
Set oConMenu = Nothing
End Sub
Private Sub oConMenu_OnLinearMarkingMenu(ByVal SelectedEntities As ObjectsEnumerator, _
ByVal SelectionDevice As SelectionDeviceEnum, ByVal LinearMenu As CommandControls, _
ByVal AdditionalInfo As NameValueMap)
If ThisApplication.ActiveDocumentType <> kDrawingDocumentObject Then Exit Sub
If SelectedEntities.count > 0 Then
If SelectedEntities.Item(1).Type = kLinearGeneralDimensionObject Then
Dim myButton As ButtonDefinition
Set myButton = ThisApplication.CommandManager.ControlDefinitions.Item("AppZoomAllCmd")
Call LinearMenu.AddButton(myButton, , , "DrawingNewDimensionStyleCtxCmd", True)
End If
End If
End Sub