Drawing Symbols - User Defined

[cbenner]

Is there a quick easy way to delete a user defined drawing symbol from all sheets of an IDW at one time?  Without having to open each page?

[Curtis_Waguespack · Accepted solution]

Hi cbenner,

Here's a real quick iLogic snippet to do this.

sName = InputBox("Enter the name of the sketched symbol to delete", "iLogic", "")

Dim myIDW As DrawingDocument 
myIDW = ThisApplication.ActiveDocument 

Dim oSheets As Sheets 
oSheets = myIDW.sheets
Dim oSheet As Sheet
Dim oSymbol As SketchedSymbol 

For Each oSheet In oSheets
    oSheet.activate
    For Each oSymbol In myIDW.ActiveSheet.SketchedSymbols 
    If oSymbol.Definition.Name = sName Then 
    oSymbol.Delete 
    End If 
    Next
Next

Creating a Basic iLogic Rule 

http://inventortrenches.blogspot.com/2012/01/creating-basic-ilogic-rule-with-event.html

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

[cbenner]

Hey thanks!  I never got into ilogic much.... never thought I'd need it.  Look how wrong you can be! 

[cbenner]

Hey Curtis,

Tried this rule this morning and it worked great, except for the "End if" statement... there was no preceding "if".  I took that line out and the code worked fine... pretty sweet actually!  Thanks for sharing!

Chris