Occurrence Quantity for specific Model state
Hi @floccipier. Unfortunately, I'm still using Inventor 2021.2.2, due to some sort of corporate delay, so I can't do any trial & error testing on code that would involve Model States, because they became available in 2022 release. Although, I have attended multiple webinars, and read other resources on the subject that seem to suggest that now, when there are Model States present in a model file, you now have to specify whether changes to things like parameters & iProperties will effect just the 'active' model state, or all model states. So, if you want these iProperties to be stored at the document level, instead of just within model states, I believe you need to now specify that these changes should effect all model states. I believe this setting is under the PartDocument.ComponentDefinition.ModelStates.MemberEditScope, and as far as I know it only has two possible settings from the MemberEditScopeEnum, which only contains options for editing the active member or all members.
Wesley Crihfield
(Not an Autodesk Employee)
I don't believe that any Attributes are specific to, or owned by a model state exactly, other than the ones specifically assigned to that model state object itself.
The following things can be recorded/saved individually to model states: iProperties, Parameters, Features, Dimensions, Components/Bill Of Materials (in an assembly). So, since attributes can be attached to a great many things, I would have to say that as long as the attribute isn't attached to geometry, a feature, or component that only exist in one of the model states, then the attribute should be totally independent of any model states. Does that make sense to you? Is that the answer you were looking for?
Wesley Crihfield
(Not an Autodesk Employee)
So, the 'hard coded' element of your earlier code that you are trying to avoid, would be specifying model state names to check for within the rule, right? If so, then maybe all you really need is a list of all the 'unique' names of the active model states of the assemblies components, and how many times each of those unique names is found? For instance, I could have a Dictionary object (each entry has a Key and a Value) created before the loop begins, for collecting unique names and the count of how many times each name is found. Then while looping through all the components, I could get the components 'active model state' name, check to see if it is already in the our list (Name would be a Key). If it is not found, then add it to the Dictionary with the name as the Key, and a quantity of 1 as the value. And if it is already in the list, get that entry by its Key, and add 1 to its Value. This would get us a list of Key/Value pairs (Name, Quantity) being used in the assembly. Does that sound like a plan? Are you familiar with the Dictionary object?
Wesley Crihfield
(Not an Autodesk Employee)
I'm not 100% sure where I would be attaching the attribute after the fact, but maybe you could loop back through all the components again, then attempt to attach an attribute to them. I'm not sure how I would set those attributes up though. Name of Model State as name of Attribute, then quantity as its value?
Anyways, here is the main part of the code that I created for you, that uses the Dictionary to collect the data, then reports the finding to the user, similarly to what you were doing before, but without specifying any names directly. Again, untested, so be cautious.
Sub QtyCount()
Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
'create a Dictionary to store names and quantities in
Dim oMSNames As New Dictionary
'or
'Dim oMSNames As Object
'Set oMSNames = CreateObject("Scripting.Dictionary")
oMSNames.CompareMode = TextCompare 'capilalization differences won't matter
Dim oName As String
Dim oOccurrence As ComponentOccurrence
'Iterate through all of the occurrences
For Each oOccurrence In oAsmCompDef.Occurrences
'get the name of the active model state
oName = oOccurrence.ActiveModelState
'check to see if it is in our Dictionary yet or not
If oMSNames.Exists(oName) Then
oMSNames.Item(oName) = oMSNames.Item(oName) + 1
Else
Call oMSNames.Add(oName, 1)
End If
Next
Dim oReport As String
Dim oKey As String
For Each oKey In oMSNames.Keys
oReport = oReport & vbCrLf & "The Model State name '" & oKey & "' was found " & oMSNames.Item(oKey) & " times."
Next
Call MsgBox(oReport, , "")
End Sub
Wesley Crihfield
(Not an Autodesk Employee)
Thanks for this.
I am getting this error:
and for alternate you provide this error
Any idea if I am doing something wrong?
You aren't doing anything wrong. The first error is understandable, it just doesn't recognize that type of object directly. Not a problem, because the second method of creating and working with that object worked. The second error I also understand. I forgot that the Dictionary.Keys is an Array, and you're not supposed to specify the type of object you are looping through ahead of time, because its Type is already hardcoded by the type of Array. Try just commenting out, or deleting that line of code above that loop "Dim oKey As String", and see if that fixes it.
For some reason I'm having a lot of difficulty staying signed into my Autodesk Account. Web page keeps blinking and signing me out, and kicking me back out to generic autodesk page. Extremely frustrating! Seems to take 10 minutes to do a 10 second job.
Wesley Crihfield
(Not an Autodesk Employee)
