topic Re: iLogic View Label for all views on select sheets in Inventor Programming Forum

iLogic View Label for all views on select sheets

LFMarshall — Tue, 27 Mar 2018 18:58:48 GMT

For several months I've been trying to get an iLogic rule to work but keep coming up short. Any assistance would be greatly appreciated.

I've been able to piece together code from others to get most of the way there, but I need just one little piece to get over the hump.

What I'm looking for is to change all of the view labels on a single sheet (of flat patterns), with the Sheet Name "CUT FILES" to the Part Title and Description iprops of the part in the view. This particular sheet is in a drawing with multiple sheets, but typically only one will have the name "CUT FILES". I would like to set this rule to run prior to save, to ensure consistency in view labeling so having a code that only runs on one sheet is not ideal.

Below is the rule that I have together at this point, but it doesn't work. It seems to just quit when it gets to SyntaxEditor Code Snippet

If ActiveSheet.Name IsNot "CUT FILES" Then Continue For

If I remove that particular line the code runs, but on every view on every sheet.

SyntaxEditor Code Snippet

Dim oDoc As DrawingDocument:  oDoc = ThisDoc.Document

Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

oSheets = oDoc.Sheets
For Each oSheet In oSheets
	If ActiveSheet.Name IsNot "CUT FILES" Then Continue For
		oViews = oSheet.DrawingViews
		For Each oView In oViews            
									
				If oView IsNot Nothing Then
				oView.ShowLabel = True
				'format the model iproperties   
				oStringTitle = "<StyleOverride Underline='True' FontSize='1.27'> <Property Document='model' PropertySet='Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>TITLE</Property></StyleOverride>"
				oStringDescription = "<Br/><StyleOverride FontSize='1.27'>   <Property Document='model' PropertySet='Design Tracking Properties' Property='Description' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='29'>DESCRIPTION</Property></StyleOverride>"
					 
				'add to the view label
				oView.Label.FormattedText = oStringTitle & oStringDescription       
				End If
        Next
Next

Thanks

Inventor 2018

Re: iLogic View Label for all views on select sheets

philip1009 — Tue, 27 Mar 2018 19:08:10 GMT

Try using <> instead of IsNot.

Re: iLogic View Label for all views on select sheets

LFMarshall — Tue, 27 Mar 2018 19:11:26 GMT

@philip1009wrote:
Try using <> instead of IsNot.

Thanks for the suggestion, unfortunately, that just crashed the program when I ran the rule.

Re: iLogic View Label for all views on select sheets

Anonymous — Tue, 27 Mar 2018 19:21:18 GMT

It looks to me like you are only looking at one sheet. (ActiveSheet.name) I believe if you change that to oSheet the logic will look at all pages. You might then have to assign oSheet to ActiveSheet before going through the views.

Re: iLogic View Label for all views on select sheets

marcin_otręba — Tue, 27 Mar 2018 19:54:37 GMT

as @Anonymous said you shoud use osheet instead active sheet if you want to check names of all sheets and you dont activate it one by one..

so this is the code:

For Each oSheet In oSheets
   If oSheet.Name <>"CUT FILES" Then 'Continue For - you dont need this
       oViews = oSheet.DrawingViews
       For Each oView In oViews

               If oView IsNot Nothing Then
               oView.ShowLabel = True
               'format the model iproperties
               oStringTitle = "<StyleOverride Underline='True' FontSize='1.27'> <Property Document='model' PropertySet='Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>TITLE</Property></StyleOverride>"
               oStringDescription = "<Br/><StyleOverride FontSize='1.27'>   <Property Document='model' PropertySet='Design Tracking Properties' Property='Description' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='29'>DESCRIPTION</Property></StyleOverride>"

               'add to the view label
               oView.Label.FormattedText = oStringTitle & oStringDescription
               End If
        Next
Next

Re: iLogic View Label for all views on select sheets

chandra.shekar.g — Wed, 28 Mar 2018 07:01:08 GMT

Hello @LFMarshall,

Try below iLogic to check sheet name

Dim oDoc As DrawingDocument:  oDoc = ThisDoc.Document

Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

oSheets = oDoc.Sheets
For Each oSheet In oSheets
	oSheet.Activate
	If oSheet.Name.StartsWith("CUT FILES") = False Then 
		oViews = oSheet.DrawingViews
		For Each oView In oViews            
									
				If oView IsNot Nothing Then
				oView.ShowLabel = True
				'format the model iproperties   
				oStringTitle = "<StyleOverride Underline='True' FontSize='1.27'> <Property Document='model' PropertySet='Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>TITLE</Property></StyleOverride>"
				oStringDescription = "<Br/><StyleOverride FontSize='1.27'>   <Property Document='model' PropertySet='Design Tracking Properties' Property='Description' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='29'>DESCRIPTION</Property></StyleOverride>"
					 
				'add to the view label
				oView.Label.FormattedText = oStringTitle & oStringDescription       
				End If
        	Next
	End If
Next

Please feel free to contact if there is any queries.

If solves problem, click on "Accept as solution" / give a "Kudo".

Thanks and regards,

Re: iLogic View Label for all views on select sheets

LFMarshall — Wed, 28 Mar 2018 12:47:08 GMT

@marcin_otrębawrote:
as @Anonymous said you shoud use osheet instead active sheet if you want to check names of all sheets and you dont activate it one by one..

so this is the code:

For Each oSheet In oSheets
   If oSheet.Name <>"CUT FILES" Then 'Continue For - you dont need this
       oViews = oSheet.DrawingViews
       For Each oView In oViews

               If oView IsNot Nothing Then
               oView.ShowLabel = True
               'format the model iproperties
               oStringTitle = "<StyleOverride Underline='True' FontSize='1.27'> <Property Document='model' PropertySet='Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>TITLE</Property></StyleOverride>"
               oStringDescription = "<Br/><StyleOverride FontSize='1.27'>   <Property Document='model' PropertySet='Design Tracking Properties' Property='Description' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='29'>DESCRIPTION</Property></StyleOverride>"

               'add to the view label
               oView.Label.FormattedText = oStringTitle & oStringDescription
               End If
        Next
Next

One of the Ifs, didn't have a terminator and when I added an End If it crashed the program. When I removed the End If and added the Continue For back to the code it seems to be working as expected. I don't claim to know why, and maybe I had done something incorrectly, but it seems to be working now. Thank you for the help.

For reference, here is complete code that seems to be working.

SyntaxEditor Code Snippet

Dim oDoc As DrawingDocument:  oDoc = ThisDoc.Document

Dim oSheets As Sheets
Dim oSheet As Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

oSheets = oDoc.Sheets

For Each oSheet In oSheets
    If oSheet.Name <> "CUT FILES" Then Continue For
		oViews = oSheet.DrawingViews
        For Each oView In oViews            
                      
                If oView IsNot Nothing Then
                oView.ShowLabel = True
                'format the model iproperties   
                oStringTitle = "<StyleOverride Underline='True' FontSize='1.27'> <Property Document='model' PropertySet='Summary Information' Property='Title' FormatID='{F29F85E0-4FF9-1068-AB91-08002B27B3D9}' PropertyID='2'>TITLE</Property></StyleOverride>"
                oStringDescription = "<Br/><StyleOverride FontSize='1.27'>   <Property Document='model' PropertySet='Design Tracking Properties' Property='Description' FormatID='{32853F0F-3444-11D1-9E93-0060B03C1CA6}' PropertyID='29'>DESCRIPTION</Property></StyleOverride>"
                    
                'add to the view label
                oView.Label.FormattedText = oStringTitle & oStringDescription       
                End If
        Next
Next

Re: iLogic View Label for all views on select sheets

chandra.shekar.g — Wed, 28 Mar 2018 12:50:11 GMT

That's nice to hear that it is working.

Thanks and regards,