"The parameter is incorrect" when setting Macro Control Dec descriptive text
If you want users to view the description/tooltip for the macro button, you can set the ProgressiveTooltip instead of the MacroControlDefinition.Description. You can use below lines:
oMacroDef.ProgressiveToolTip.Title = "Command Name" oMacroDef.ProgressiveToolTip.Description = "Brief description of the command." oMacroDef.ProgressiveToolTip.ExpandedDescription = "Detailed description of the command."
to replace your code:
oMacroDef.DescriptionText = "My Custom Description."
Below is a sample button with the progressive tooltip:
Hope this helps.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
I thought you want to add the macro to the ribbon panels, then you can use the progressive tooltip, if you place it to File Browser there are some limitations/issues to it. At present you can either just place it on the ribbon panel or create a ButtonDefinition for File Browser.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
We can add ButtonDefinition from a macro, but to make the button definition work in VBA from clicking a button that would introduce some issue to you, like the VBA may be held because you need to monitor the button click so you can't run any other VBA macros, and users may stop the command carelessly. I recommend to just create an addin to do the export DXF job instead of macro/iLogic rule if you want to place the button onto the File Browser menu. But I can show you how to create the button from VBA&iLogic code here, you can make your decision:
1. Copy the below VBA code to your "Modul1" module in ApplicationProject.
Sub CreateExportDXFCommand()
Dim oFileButtons As Inventor.CommandControls
Set oFileButtons = ThisApplication.UserInterfaceManager.FileBrowserControls
Dim oExportButton As Inventor.CommandControl
Set oExportButton = oFileButtons.Item("Export")
Dim oExportDXFDef As Inventor.ButtonDefinition
On Error Resume Next
Set oExportDXFDef = ThisApplication.CommandManager.ControlDefinitions("CustomAutoExportDXFCmd")
If Err Then
Err.Clear
On Error GoTo 0
Set oExportDXFDef = ThisApplication.CommandManager.ControlDefinitions.AddButtonDefinition("Auto Export to DXF", "CustomAutoExportDXFCmd", kFileOperationsCmdType, "Custom commands", "Auto Export active part/assembly document to DXF", "Using this command to auto export your current document to DXF")
End If
oExportDXFDef.ProgressiveToolTip.Title = "DXF Auto-Export"
oExportDXFDef.ProgressiveToolTip.Description = "Exports DXFs for the active Assembly (or a single active Part) to the Project folder."
Dim oButton As Inventor.CommandControl
Dim oCheckButton As CommandControl
For Each oCheckButton In oExportButton.ChildControls
If oCheckButton.ControlDefinition Is oExportDXFDef Then
Set oButton = oCheckButton
Exit For
End If
Next
'~~~~~Create button if missing~~~~~
If oButton Is Nothing Then
Set oButton = oExportButton.ChildControls.AddButton(oExportDXFDef, True, True, "AppExportDwgCmd", False)
Dim ocls As New Class1
ocls.init
Else
'Un-comment the following line for testing. Running this rule will then toggle the button on and off.
oButton.Delete
End If
End Sub
2. Copy below VBA code to your "Class1" class module in ApplicationProject.
Private WithEvents oButtonDef As ButtonDefinition
Public Sub init()
Set oButtonDef = ThisApplication.CommandManager.ControlDefinitions("CustomAutoExportDXFCmd")
Do
ThisApplication.UserInterfaceManager.DoEvents
Loop Until bStop
End Sub
Private Sub oButtonDef_OnExecute(ByVal Context As NameValueMap)
' here add your code to export the active document to DXF
MsgBox "I am triggered."
End Sub
3. Add below iLogic code to an iLogic rule, and you can run the rule.
Sub Main()
Dim m_inventorApp As Inventor.Application
m_inventorApp = ThisApplication
On Error Resume Next
' get the application VBA project
Dim oVBAProj As InventorVBAProject
Dim oAppVBAProj As InventorVBAProject
For Each oVBAProj In m_inventorApp.VBAProjects
If oVBAProj.ProjectType = VBAProjectTypeEnum.kApplicationVBAProject Then
oAppVBAProj = oVBAProj
Exit For
End If
Next
' get the VBA module
Dim oVBAComp As InventorVBAComponent
oVBAComp = oVBAProj.InventorVBAComponents("Module1")
Dim oVBASub As InventorVBAMember
oVBASub = oVBAComp.InventorVBAMembers("CreateExportDXFCommand")
oVBASub.Execute()
End Sub
4. Now from the File Browser menu, you can find the button like below, click it a message is popped up.
Hope this helps.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
Attach the preview picture for the command.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
You can install the Inventor SDK DeveloperTools.msi(e.g. C:\Users\Public\Documents\Autodesk\Inventor 2019\SDK\DeveloperTools.msi), the Developer Tools will install the Inventor Addin Wizards to Visual Studio, so you can now launch VS follow the steps in below help page to create your own addin:
http://help.autodesk.com/view/INVNTOR/2019/ENU/?guid=GUID-52422162-1784-4E8F-B495-CDB7BE9987AB
You can also refer to the samples in the Developer Tools(e.g C:\Users\Public\Documents\Autodesk\Inventor 2019\SDK\DeveloperTools\Samples\VB.NET\AddIns\SimpleAddIn) to know how to add buttons to ribbon, and you already know how to add buttons to File Browser menu.
Hope it helps.
If this solves the problem please click ACCEPT SOLUTION so other people can find it easily.
Rocky Zhang
Inventor API PD
Manufacturing Solutions
Autodesk, Inc.
