06-02-2015
09:57 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-02-2015
09:57 PM
Hi all
I am trying to pass VBA userform TEXT to Inventor Parameters (NOT custom iProperties). Below is what I use to pass VALUES.
Sub param_Change(paramName As String, paramValue)
'Get the Parameters Object. Assumes a Part or Assembly document as active
Dim oParam As Parameter
Set oParam = ThisApplication.ActiveDocument.ComponentDefinition.Parameters
'Get the Parameter required
Dim oParamName As Parameters
Set oParamName = oParam.Item(paramName)
'Change the equation of parameter
oParamName.Expression = paramValue
'Update document
ThisApplication.ActiveDocument.Update
End Sub
How can I change this to pass TEXT and VALUES?
Solved! Go to Solution.