topic Re: ModelStates iLogic rule for drawing in Inventor Programming Forum

ModelStates iLogic rule for drawing

mgrenier2 — Wed, 17 Apr 2024 20:07:37 GMT

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?

Re: ModelStates iLogic rule for drawing

A.Acheson — Thu, 18 Apr 2024 00:42:30 GMT

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 )

Re: ModelStates iLogic rule for drawing

Frederick_Law — Thu, 18 Apr 2024 19:31:11 GMT

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