How to ensure your Ribbon runtime items remain visible ?

Comments

5 responses to “How to ensure your Ribbon runtime items remain visible ?”

1. 

   Alok

   February 27, 2015

   Hi Philippe,
   Is there an equivalent sample of this that works with the ACAD 2015 api?
   Thanks!

   Loading…

   Reply
2. 

   Health Tourism

   March 9, 2015

   This is great news! Finally, someone with some spunk is perhaps showing some interest in Dzhokhar’s innocence.

   Loading…

   Reply
3. 

   Philippe

   March 10, 2015

   Hi Alok,
   Here is a vb.net sample that was working on 2015…
   Public Sub CreateSimpleButton()
   Dim ribbonControl As RibbonControl =
   ComponentManager.Ribbon
   Dim tab As RibbonTab = New RibbonTab()
   tab.Title = “Test Ribbon”
   tab.Id = “ADN_TAB_ID”
   ribbonControl.Tabs.Add(tab)
   Dim srcPanel As RibbonPanelSource =
   New RibbonPanelSource()
   srcPanel.Title = “Panel1”
   Dim Panel As RibbonPanel = New RibbonPanel()
   Panel.Source = srcPanel
   tab.Panels.Add(Panel)
   Dim button1 As Autodesk.Windows.RibbonButton =
   New RibbonButton()
   button1.Text = “Nested” + vbCr + “Explode”
   button1.Size = RibbonItemSize.Large
   ‘button1.Image = getBitmap(My.Resources.explode, 16, 16)
   ‘button1.LargeImage = getBitmap(My.Resources.explode, 32, 32)
   button1.ShowText = True
   button1.CommandParameter = “EXPLODE ”
   button1.CommandHandler = New SimpleButtonCmdHandler()
   srcPanel.Items.Add(button1)
   tab.IsActive = False
   End Sub
   Function getBitmap(bitmap As Bitmap,
   height As Integer,
   width As Integer) As BitmapImage
   Dim stream As MemoryStream = New MemoryStream()
   bitmap.Save(stream,
   System.Drawing.Imaging.ImageFormat.Png)
   Dim bmp As BitmapImage = New BitmapImage()
   bmp.BeginInit()
   bmp.StreamSource = New MemoryStream(stream.ToArray())
   bmp.DecodePixelHeight = height
   bmp.DecodePixelWidth = width
   bmp.EndInit()
   Return bmp
   End Function
   Public Class SimpleButtonCmdHandler
   Implements System.Windows.Input.ICommand
   Public Function CanExecute(parameter As Object) As Boolean _
   Implements Windows.Input.ICommand.CanExecute
   Return True
   End Function
   Public Event CanExecuteChanged(sender As Object, e As EventArgs) _
   Implements Windows.Input.ICommand.CanExecuteChanged
   Public Sub Execute(parameter As Object) _
   Implements Windows.Input.ICommand.Execute
   Dim esc As String = “”
   Dim cmds As String =
   Application.GetSystemVariable(“CMDNAMES”)
   If cmds.Length > 0 Then
   Dim separator As Char() = {“””‘”}
   Dim cmdNum As Integer =
   cmds.Split(separator).Length
   For i As Integer = 0 To cmdNum
   esc = esc + Chr(27)
   Next
   End If
   Dim button As RibbonButton = parameter
   Dim doc As Document = Application.
   DocumentManager.MdiActiveDocument
   doc.SendStringToExecute(
   esc + button.CommandParameter,
   True, False, False)
   End Sub
   End Class
   Public Sub LoadRibbonButton()
   If Not Autodesk.Windows.ComponentManager.Ribbon Is Nothing Then
   CreateSimpleButton()
   Else
   AddHandler Autodesk.Windows.ComponentManager.ItemInitialized,
   AddressOf ComponentManager_ItemInitialized
   AddHandler Application.SystemVariableChanged,
   AddressOf Application_SystemVariableChanged
   End If
   End Sub
   Sub Application_SystemVariableChanged(
   sender As Object,
   e As Autodesk.AutoCAD.ApplicationServices.
   SystemVariableChangedEventArgs)
   If e.Name = “WSCURRENT” Then
   Dim cmdNames As String =
   Application.GetSystemVariable(“CMDNAMES”)
   ” if the QUICKCUI or CUI command is active, returns
   If (cmdNames.ToUpper().IndexOf(“QUICKCUI”) >= 0 Or
   cmdNames.ToUpper().IndexOf(“CUI”) >= 0) Then
   Return
   End If
   CreateSimpleButton()
   End If
   End Sub
   Sub ComponentManager_ItemInitialized(
   sender As Object,
   e As RibbonItemEventArgs)
   RemoveHandler Autodesk.Windows.ComponentManager.ItemInitialized,
   AddressOf ComponentManager_ItemInitialized
   Dim palette As RibbonPaletteSet =
   RibbonServices.RibbonPaletteSet
   AddHandler palette.Load,
   AddressOf RibbonPaletteSet_Loaded
   End Sub
   Sub RibbonPaletteSet_Loaded(
   sender As Object,
   e As Autodesk.AutoCAD.Windows.PalettePersistEventArgs)
   If Not Autodesk.Windows.ComponentManager.Ribbon Is Nothing Then
   CreateSimpleButton()
   Else
   AddHandler Application.Idle, AddressOf Application_Idle
   Dim doc = Application.DocumentManager.MdiActiveDocument
   doc.SendStringToExecute(“RIBBON “, True, False, False)
   End If
   End Sub
   Sub Application_Idle(sender As Object, e As EventArgs)
   If Not Autodesk.Windows.ComponentManager.Ribbon Is Nothing Then
   RemoveHandler Application.Idle,
   AddressOf Application_Idle
   Dim ribbon = Autodesk.Windows.ComponentManager.Ribbon
   Dim tab = ribbon.FindTab(“ADN_TAB_ID”)
   If (tab Is Nothing Or Not tab.IsVisible) Then
   CreateSimpleButton()
   End If
   End If
   End Sub
   End Class

   Loading…

   Reply
4. 

   Steve

   October 26, 2016

   Thank you for this post! Exactly what I needed! I had the Workspace change event in there, just not the CUI / QUICK CUI changes.

   Loading…

   Reply
5. 

   JamesOneil

   March 31, 2023

   Yes, the range of the commercial roofing contractors in suffolk county
   is signed for the contract. Agreement is done for the typical chain of the events for the turns for the semi-final matter for all people.

   Loading…

   Reply