Flyoutmenü (Autodesk/Inventor VBA) - Lösung vorhanden!

Hallo

Ich hab nur was ähnliches finden können, aber vielleicht reicht es schon. Du mußt zuerst auf das OnContextMenu-Event lauschen.

Code:
Private Sub CM_OnContextMenu(ByVal SelectionDevice As Inventor.SelectionDeviceEnum, ByVal AdditionalInfo As Inventor.NameValueMap, ByVal CommandBar As Inventor.CommandBar)

Wird das ausgelöst, ist das dritte Argument dein Kontextmenü. In das kannst du die ComboBox (hoffentlich) einfügen.

Code:
'***********************************************
' Copy below code to a module
Public oChangeMaterial As clsChangeMaterial
Public Sub CreateComboBox()
' Set a reference to the active document.
' This assumes that a part document is active.
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oCommandMgr As CommandManager
Set oCommandMgr = ThisApplication.CommandManager

' Set a reference to the collection of ControlDefinitions
Dim oControlDefs As ControlDefinitions
Set oControlDefs = oCommandMgr.ControlDefinitions

On Error Resume Next
' Create a combobox definition
Dim oComboBoxDef As ComboBoxDefinition
Set oComboBoxDef = oControlDefs.Item("MaterialsComboBox")

If oComboBoxDef Is Nothing Then
Set oComboBoxDef = oControlDefs.AddComboBoxDefinition("Materials", "MaterialsComboBox", kNonShapeEditCmdType, 125, , "Materials Combo", "Materials")

' Set a reference to the materials collection.
Dim oMaterials As Materials
Set oMaterials = oDoc.Materials

Dim oMaterial As Material

For Each oMaterial In oMaterials
' Add material names to the combo box definition
oComboBoxDef.AddItem (oMaterial.Name)
Next

' Set a reference to the Part Standard toolbar
Dim oPartFeatureToolbar As CommandBar
Set oPartFeatureToolbar = ThisApplication.UserInterfaceManager.CommandBars.Item("PMxPartFeatureCmdBar")

' Add a combo box control to the toolbar
Dim oComboBoxControl As CommandBarControl
Set oComboBoxControl = oPartFeatureToolbar.Controls.AddComboBox(oComboBoxDef,1)

oPartFeatureToolbar.Visible = True
End If

' Clear current selection
oComboBoxDef.ListIndex = 0

Set oChangeMaterial = New clsChangeMaterial
oChangeMaterial.Initialize
End Sub

'*************************************************************
' The declarations and functions below need to be copied into
' a class module whose name is "clsChangeMaterial". The name
' can be changed but you'll need to change the declaration in
' the calling function "CreateComboBox" to use the new name.
Option Explicit
Private WithEvents oComboBoxDef As ComboBoxDefinition

Public Sub Initialize()
Dim oCommandMgr As CommandManager
Set oCommandMgr = ThisApplication.CommandManager

' Set a reference to the collection of ControlDefinitions
Dim oControlDefs As ControlDefinitions
Set oControlDefs = oCommandMgr.ControlDefinitions

' Set a reference to the "MaterialsComboBox" combo box definition
Set oComboBoxDef = oControlDefs.Item("MaterialsComboBox")

End Sub
Private Sub oComboBoxDef_OnSelect(ByVal Context As NameValueMap)

If oComboBoxDef.ListIndex = 0 Then
Exit Sub
End If

' Get the selected item
Dim oMaterialName As String
oMaterialName = oComboBoxDef.ListItem(oComboBoxDef.ListIndex)

' Set a reference to the active part document
Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oPartCompDef As PartComponentDefinition
Set oPartCompDef = oDoc.ComponentDefinition

' Get the selected material
Dim oMaterial As Material
Set oMaterial = oDoc.Materials.Item(oMaterialName)

' Change the part material
oPartCompDef.Material = oMaterial
End Sub

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP