Modifying View Justification

[tobias]

Hi,

I have a rule for modifying the View Justification on all open drawings.

Sub main
	Dim oInvApp As Inventor.Application = ThisApplication
	For i As Integer = 1 To oInvApp.Documents.Count
		Dim oDoc As Document = oInvApp.Documents(i)
		If System.IO.Path.GetExtension(oDoc.FullFileName) <> ".idw" Then Continue For
		For Each oSheet In oDoc.Sheets
			For Each oView In oSheet.DrawingViews
				oView.ViewJustification = kCenteredViewJustification
			Next
		Next
	Next i
End Sub

But I get the following error message:

It worked on a couple of drawings but not onanother set of drawings. 

The difference between those sets is: the first set of drawings had no details or cross section.

Does anyone know what is missing ? 

[tobias]

To add to the error:

The rule is giving an error if there are (projected) views which are depended of the base view.

Therefore the View Justification is greyed out and the rule cannot change the View Justification.

So I need a line which telles the rule to skipp the greyed out View Justification.

[Andrii_Humeniuk · Accepted solution]

You can use the Try - Catch operator. This operator will free you from potential errors.

Sub main
	Dim oInvApp As Inventor.Application = ThisApplication
	For i As Integer = 1 To oInvApp.Documents.Count
		Dim oDoc As Document = oInvApp.Documents(i)
		If System.IO.Path.GetExtension(oDoc.FullFileName) <> ".idw" Then Continue For
		For Each oSheet In oDoc.Sheets
			For Each oView In oSheet.DrawingViews
				Try : oView.ViewJustification = kCenteredViewJustification : Catch : End Try
			Next
		Next
	Next i
End Sub

[tobias]

The error is gone but Inventor doesn't like it so much:

3 times I tried.

(Also empty Temp folder, restart PC)

[tobias]

I tested the rule on a set of drawings and only one drawing caused Inventor to crash.

Tested on another set without issues.

Rule works perfect. Thanks a lot!