Using iLogic to write a variable value to a parameter with a given name that exists in multiple parts
I think this may work for what you are trying to do. It just loops through the main assembly's AllReferencedDocuments collection, instead of targeting one specific sub-assembly, but if that's not a problem, it should work just fine. (You could also possibly loop through AllLeafOccurrences for this purpose.)
Here's the iLogic code:
If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then
MsgBox("An Assembly Document must be active for this rule to work. Exiting.",vbOKOnly+vbCritical, "WRONG DOCUMENT TYPE")
Exit Sub
End If
Dim oADoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oBird As String = "Chicken"
For Each oRefDoc As Document In oADoc.AllReferencedDocuments
'avoid working with it if it's not a Part
If oRefDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Continue For
Dim oPDoc As PartDocument = oRefDoc
'check for that parameter
Dim oExists As Boolean = False
Dim oParam As Inventor.Parameter
For Each oParam In oPDoc.ComponentDefinition.Parameters
If oParam.Name = "Bird" Then
oExists = True
oParam.Value = oBird
End If
Next
If oExists = False Then
oAns = MsgBox("The Parameter named 'Bird' was not found in the following part:" & vbCrLf & _
oPDoc.FullFileName & vbCrLf & _
"Do you want to create it?", vbYesNo + vbQuestion, "Param Not Found")
If oAns = vbYes Then
oParam = oPDoc.ComponentDefinition.Parameters.UserParameters.AddByValue("Bird", oBird, UnitsTypeEnum.kTextUnits)
End If
End If
Next
If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.
If you want and have time, I would appreciate your Vote(s) for My IDEAS 💡or you can Explore My CONTRIBUTIONS
Wesley Crihfield
(Not an Autodesk Employee)
Yes that whole unfortunate 'database units' thing really disappoints a lot of folks. We have do deal with it every time we retrieve or write to a parameter using iLogic (among other situations). To deal with it we usually either include a little math where needed, or use a units conversion subroutine to deal with it. I attempted to use a Dictionary type collection to store the pairs of parameter names and values you intend to write to them, for use within the lower loop. I couldn't test it, so let me know how it works for you. I had to rename the main routine to Main to avoid error on my end while saving my work. Then I created a separate little function to deal with unit conversions. And I'm only incorporating it into the main code for use with Double type variables. This may, or may not work, since your double values don't have any decimal point portions to them. They may be understood as Integer (System.Int32) instead, in which case you would have to change that little If...Then block that used that conversion function.
Here's the code:
Sub Main
Dim inAIV As Integer
Dim inAIH As Integer
Dim dBAI As Double
Dim dTAI As Double = 268 mm
Dim dSAI As Double = 268 mm
Dim dTerskelHøyde014 As Double = Parameter("LMV - SK5-014:1", "Hengsleside")
If Terskel = "Kvilldal" Then
dBAI = 250 mm
Else If Terskel = "014" Then
dBAI = dTerskelHøyde014 + 235 mm
End If
If AntInfV <> 0 Then
inAIV = AntInfV
Else
inAIV = Math.Ceiling((KarmHøyde - dBAI - dTAI) / 530 mm ) + 1
End If
If AntInfH <> 0 Then
inAIH = AntInfH
Else
inAIH = Math.Ceiling((KarmBredde - 2 * dSAI) / 530 mm ) + 1
End If
Logger.Debug("BAI =" & dBAI)
Logger.Debug("SAI =" & dSAI)
Logger.Debug("nAIV =" & inAIV)
Dim oADoc As AssemblyDocument = ThisApplication.ActiveDocument
'assemble list of name / value pairs (parameter name / parameter's intended value)
Dim oPairs As New Dictionary(Of String, Object)
oPairs.Add("nAIV", inAIV)
oPairs.Add("BAI", dBAI)
oPairs.Add("TAI", dTAI)
oPairs.Add("SAI", dSAI)
oPairs.Add("nAIH", inAIH)
For Each oRefDoc As Document In oADoc.AllReferencedDocuments
If oRefDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Continue For 'skip if not part document
Dim oPDoc As PartDocument = oRefDoc
Dim oParams As Parameters = oPDoc.ComponentDefinition.Parameters
Dim oParam As Inventor.Parameter
For Each oParam In oParams
For Each oPair As KeyValuePair(Of String, Object) In oPairs
If oParam.Name = oPair.Key Then
If TypeOf oPair.Value Is Double Then
oParam.Value = ToMM(oPair.Value)
Else
oParam.Value = oPair.Value
End If
Logger.Debug("Para " & oPair.Key & " = " & oPair.Value.ToString)
End If
Next
Next
Next
Logger.Debug("BAI =" & dBAI)
Logger.Debug("SAI =" & dSAI)
Logger.Debug("nAIV =" & inAIV)
End Sub
Function ToMM(oInputValue As Double) As Double
'to convert 'database' distance units (centimeters) to millimeters
ToMM = ThisApplication.UnitsOfMeasure.ConvertUnits(oInputValue, UnitsTypeEnum.kDatabaseLengthUnits, UnitsTypeEnum.kMillimeterLengthUnits)
End FunctionIf this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.
If you want and have time, I would appreciate your Vote(s) for My IDEAS 💡or you can Explore My CONTRIBUTIONS
Wesley Crihfield
(Not an Autodesk Employee)
