iLogic to determine if Files have more than One Model State

[arkelec]

Is this possible?

I've had a look at a few articles, but can't see anything that suits.

What I ultimately want to do, is to establish whether a file has more than one Model State & if it does, return a boolean value of 1 to a custom parameter.

Thanks in advance.

[bradeneuropeArthur · Accepted solution]

This will do:

It will create a PMst parameter with a value of 1 if there are more than one Modelstate in the Assembly.

Dim a As AssemblyDocument = ThisAssembly.Document
Dim c As AssemblyComponentDefinition = a.ComponentDefinition
Dim UPs As UserParameters = c.Parameters.UserParameters
Dim Up As UserParameter
If c.ModelStates.Count>1 Then
Try
	Up = UPs.Item("PMst")
	Catch
	UPs.AddByValue("PMst",1,"ul")	
	End Try

End If

[arkelec]

Cheers @bradeneuropeArthur.

I modified your code to work with both Part & Assembly files & also configured it to create an enabling parameter for another parameter (via a form).

Here's the code, in case it helps anyone else:

Sub Main()
'-------------------------------------------------------------------------
' Notes:
'
'-------------------------------------------------------------------------
' Vars:
'-------------------------------------------------------------------------
'
'-------------------------------------------------------------------------
' Get the active document:
'-------------------------------------------------------------------------
' 
Dim oDocType = ThisDoc.Document.DocumentType
'
'=========================================================================
' Code for PART:
'=========================================================================
'
If oDocType = DocumentTypeEnum.kPartDocumentObject Then
	Dim oPartDoc As PartDocument = ThisDoc.Document
	Dim oPartDef As PartComponentDefinition = oPartDoc.ComponentDefinition
'	
	Try
		Parameter("MSQ") = Parameter("MSQ")
	Catch
		oPartDoc.ComponentDefinition.Parameters.UserParameters.AddByValue("MSQ", False, "BOOLEAN")
	End Try
'
	If oPartDef.ModelStates.Count>1 Then
		Parameter("MSQ") = True
'
	End If
'	
'=========================================================================	
' Code for ASSEMBLY:
'=========================================================================
'
ElseIf oDocType = DocumentTypeEnum.kAssemblyDocumentObject Then
	Dim oAssemblyDoc As AssemblyDocument = ThisDoc.Document
	Dim oAssemblyDef As AssemblyComponentDefinition = oAssemblyDoc.ComponentDefinition
'	
	Try
		Parameter("MSQ") = Parameter("MSQ")
	Catch
		oAssemblyDoc.ComponentDefinition.Parameters.UserParameters.AddByValue("MSQ", False, "BOOLEAN")
	End Try
'
	If oAssemblyDef.ModelStates.Count>1 Then
		Parameter("MSQ") = True
'
	End If	
'		
End If
'
End Sub
'
'========================================================================