ModelStates iLogic rule for drawing

[mgrenier2]

I'm looking to make a rule that would set the default modelstate for all the views on every sheet of a drawing

This is what ChatGPT gave me but it is spitting out some errors

Dim oDoc As DrawingDocument = ThisDoc.Document
Dim oSheet As Sheet
For Each oSheet In oDoc.Sheets
    Dim oView As DrawingView
    For Each oView In oSheet.DrawingViews
        If oView.ReferencedModelDocument IsNot Nothing Then
            Dim oModelState As ModelState = oView.ReferencedModelState
            If oModelState.Name <> "Default" Then
                oView.ReferencedModelState = oView.ReferencedModelDocument.ModelStateManager.Item("Default")
            End If
        End If
    Next
Next

Can someone help?

[A.Acheson]

Hi @mgrenier2 

Using the API help pages you can check the active modelstate of the view and then use SetActiveModelstate method.

Syntax

DrawingView.ActiveModelState() As String

Syntax

DrawingView.SetActiveModelState( ModelState As String, [UpdatePartsList] As Boolean, [KeepOverrides] As Boolean )

[Frederick_Law]

Need to get to each View in Sheet to change ModelState.

Dim oMSName as String

oMSName = "ModelState name to change to"
For Each oDrawingView In oIDWFile.ActiveSheet.DrawingViews
	If oDrawingView.ActiveModelState <> oMSName Then
		Logger.Info(oDrawingView.Label.Text & " " & oDrawingView.ActiveModelState)
		oDrawingView.SetActiveModelState(oMSName, True, True)
	End If

	oSheet.Update
	oIDWFile.Update
Next