Error iLogic Rule by Open Drawing from Vault

[petr_suchomel]

Hello, I created iLogic Rule for update style. The rule I run after open drawing. When I open drawing by command "Open" or from model by "Open drawing" rule run right. When open drawing from model by "Open drawing from Vault" rule crashed.

[bradeneuropeArthur]

Could you upload the code as text file?

[petr_suchomel]

OK, here it is.

[bradeneuropeArthur]

Try this way:

Dim oDoc = ThisDoc.Document
If oDoc.DocumentType <>  DocumentTypeEnum.kDrawingDocumentObject Then
   Exit Sub

else
Dim oDrawDoc As Inventor.DrawingDocument
oDrawDoc = ThisDoc.Document
End If

Dim i As Integer
For i = 1 To oDrawDoc.StylesManager.Styles.Count
    If oDrawDoc.StylesManager.Styles.Item(i).UpToDate  = False Then
		If oDrawDoc.StylesManager.Styles.Item(i).Name = "Výchozí norma (DIN)" Then
			oDrawDoc.StylesManager.Styles.Item(i).UpdateFromGlobal
				MsgBox("Macro OK",,"IdwStylesUpdate")
		End If
    End If
Next i
 

 or better:

Dim oDoc = ThisDoc.Document

If oDoc.DocumentType =  DocumentTypeEnum.kDrawingDocumentObject Then
   
Dim oDrawDoc As Inventor.DrawingDocument
oDrawDoc = ThisDoc.Document
else
exit sub
End If

Dim i As Integer
For i = 1 To oDrawDoc.StylesManager.Styles.Count
    If oDrawDoc.StylesManager.Styles.Item(i).UpToDate  = False Then
		If oDrawDoc.StylesManager.Styles.Item(i).Name = "Výchozí norma (DIN)" Then
			oDrawDoc.StylesManager.Styles.Item(i).UpdateFromGlobal
				MsgBox("Macro OK",,"IdwStylesUpdate")
		End If
    End If
Next i

[petr_suchomel]

Your rules generate the same error which I sended.

[jaco011]

Did you find an solution? I am searching too