Purge unused materials and styles

[andrewiv]

I'm looking to write an iLogic rule that will go through a document and purge all of the unused materials and styles.  Ideally I would like this to handle any type of document whether it be ipt, iam, or idw but if I have to write a separate rule for each I'm OK with that.

I've done some searching and not found anything that I can use yet.  I was wondering if anyone has figured this out yet?

[MechMachineMan]

Here's a starting point for you. Works on drawings. I don't imagine for parts and iams it would look very different.

			Sub PurgeStyles()
				
				Dim oStyles As DrawingStylesManager
				oStyles = oDoc.StylesManager
				
				Dim noneleft As Boolean
				noneleft = True
				
				Dim ostyle As Style
				
				Do While (noneleft)
					noneleft = False
					For Each ostyle In oStyles.Styles
						If (ostyle.StyleLocation = kLocalStyleLocation) And (ostyle.InUse = False) Then
							ostyle.Delete
							noneleft = True
						End If
					Next
				Loop
			End Sub

[andrewiv]

This did not work for me.  I did a simple test and started a new drawing, created a new balloon style and ran your code.  After running it the new balloon style is still there even though it isn't used anywhere.  When I manually go to the manage tab and hit the purge command, the new style shows up.

[MechMachineMan]

Ok?

Convert it to VBA, put it in the VBA environment in inventor, add a watch to break when true for when oStyle.Name = "your new balloon style name".

Step through the code after that point, see what flags its skipping/tripping. 

Modify it from there.

[james.collinsPWQR2]

Try this:

Dim oDoc As DrawingDocument = ThisApplication.ActiveEditDocument
Dim oStyles As DrawingStylesManager = oDoc.StylesManager
Dim noneleft As Boolean = True
Dim ostyle As Style
Do While (noneleft)
	noneleft = False
	For Each ostyle In oStyles.Styles
		If ostyle.StyleLocation = 51202 And ostyle.InUse = False Then
			' uncomment next line to see styles being deleted
'			MsgBox(ostyle.Name)
			ostyle.Delete
			noneleft = True
		End If
	Next
Loop

 
Cheers,
James