iLogic: Clear Part Appearance Overrides – Updated

A while back, I wrote a little utility to clear part file appearance overrides. I have since updated the code and thought it was worth sharing again on the blog.

The original code ran through the model and cleared overrides as expected, but needed an “Undo Wrapper” to help with undoing the command in the event of a mistake by the user (I included this as the bottom of the original), some time after writing that post, I did some work with hacking the Inventor progress bar for iLogic. The new code now includes all 3 of these elements, and is a nice practical example of how the Inventor progress bar can be incorporated into an iLogic utility that is run in a part file.

The animated GIF below shows the code in action:

Here is the iLogic code:

'Original Code by @ClintBrown3D posted at https://clintbrown.co.uk/clear-part-appearance-overrides-updated
On Error GoTo Clint
'Exit if this is not a part file
If ThisDoc.ModelDocument.DocumentType = kAssemblyDocumentObject Then : Return : End If
If ThisDoc.ModelDocument.DocumentType = kDrawingDocumentObject Then : Return : End If

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
Dim oCompDef As ComponentDefinition
oCompDef = oPartDoc.ComponentDefinition

Surfaces = 0 'Count Surfaces for the Progress Bar
Dim oFaces As Faces
Dim oFace As Face
Dim oSurfBodies As SurfaceBodies
Dim oSurfBody As SurfaceBody
oSurfBodies = oCompDef.SurfaceBodies
For Each oSurfBody In oSurfBodies
	oFaces = oSurfBody.Faces
	For Each oFace In oFaces
		Surfaces = Surfaces + 1
	Next
Next

Dim oProgressBar As Inventor.ProgressBar 'Create a new Progress Bar
oProgressSteps = Surfaces
oProgressStep = 0
oProgressStaticText = "Clearing Face Colour Overrides:  Step "
oProgressBar = ThisApplication.CreateProgressBar(False, oProgressSteps, "@ClintBrown3D")'Big Progress Bar, use True for small
oProgressBar.Message = (oProgressStaticText & oProgressStep & " of " & oProgressSteps)
oProgressBar.UpdateProgress

oDoc = ThisDoc.Document ' UNDO WRAPPER
Dim UNDO As Transaction
UNDO = ThisApplication.TransactionManager.StartTransaction(oDoc, "Clear Appearance overrides")

oPartDoc = ThisApplication.ActiveDocument
oCompDef = oPartDoc.ComponentDefinition
oSurfBodies = oCompDef.SurfaceBodies
For Each oSurfBody In oSurfBodies
	oFaces = oSurfBody.Faces
	For Each oFace In oFaces
		oFace.SetRenderStyle(kPartRenderStyle)
		oProgressStep = oProgressStep + 1
		oProgressBar.Message = (oProgressStaticText & oProgressStep & " of " & oProgressSteps)
		oProgressBar.UpdateProgress
	Next
Next 
UNDO.End 'End Transaction UNDO WRAPPER
oProgressBar.Close

Return
Clint :
MessageBox.Show("Something has gone terribly wrong!", "@ClintBrown3D", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)

And just for fun, here is some code to apply a random colour to each face of a part file, this is based on the code above, as well as the code I wrote for the blog post “Set Random Face Colours With iLogic”. As with the code above, I have included the “Undo Wrapper” and the Inventor progress bar to show it in action.

'Original Code by @ClintBrown3D posted at https://clintbrown.co.uk/ilogic-reset-faces
On Error Resume Next
'Exit if this is not a part file
If ThisDoc.ModelDocument.DocumentType = kAssemblyDocumentObject Then : Return : End If
If ThisDoc.ModelDocument.DocumentType = kDrawingDocumentObject Then : Return : End If

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument
Dim oCompDef As ComponentDefinition
oCompDef = oPartDoc.ComponentDefinition

Surfaces = 0 'Count Surfaces for the Progress Bar
Dim oFaces As Faces
Dim oFace As Face
Dim oSurfBodies As SurfaceBodies
Dim oSurfBody As SurfaceBody
oSurfBodies = oCompDef.SurfaceBodies
For Each oSurfBody In oSurfBodies
	oFaces = oSurfBody.Faces
	For Each oFace In oFaces
		Surfaces = Surfaces + 1
	Next
Next

Dim oProgressBar As Inventor.ProgressBar 'Create a new Progress Bar
oProgressSteps = Surfaces
oProgressStep = 0
oProgressStaticText = "Setting Face Colour Overrides:  Step "
oProgressBar = ThisApplication.CreateProgressBar(False, oProgressSteps, "@ClintBrown3D")'Big Progress Bar, use True for small
oProgressBar.Message = (oProgressStaticText & oProgressStep & " of " & oProgressSteps)
oProgressBar.UpdateProgress

oDoc = ThisDoc.Document ' UNDO WRAPPER
Dim UNDO As Transaction
UNDO = ThisApplication.TransactionManager.StartTransaction(oDoc, "Clear Appearance overrides")

oPartDoc = ThisApplication.ActiveDocument
oCompDef = oPartDoc.ComponentDefinition
oSurfBodies = oCompDef.SurfaceBodies
For Each oSurfBody In oSurfBodies
	oFaces = oSurfBody.Faces
	For Each oFace In oFaces
		RANDOMISER = Round(Rnd * 750)
		oStyle = oDoc.RenderStyles.Item(RANDOMISER)
		oFace.SetRenderStyle(kOverrideRenderStyle, oStyle)
		oProgressStep = oProgressStep + 1
		oProgressBar.Message = (oProgressStaticText & oProgressStep & " of " & oProgressSteps)
		oProgressBar.UpdateProgress
	Next
Next
UNDO.End 'End Transaction UNDO WRAPPER
oProgressBar.Close

Return