Option Explicit
'
' RemoveAllToolOverrides.bas - Remove all of the tool overrides in the current setup.
' 
' Author: Tom McCollough
' Organization: Engineering Geometry Systems
' Date: 8/7/02
' Copyright (c) 2002, Engineering Geometry Systems
'
' General Description
'
' The program iterates through all of the operations in the part document.  For
' every operation, it removes the override.  It waits until all of them are done
' before invalidating the toolpaths.  That way decomp() won't run each time.  If
' decomp() runs each time, then the macro is very slow.
'

Public Sub RemoveAllToolOverrides
	Dim oper As FMOperation
	For Each oper In ActiveDocument.Operations
		' remove override
		oper.OverrideTool( "", False)
	Next oper
	ActiveDocument.InvalidateToolpaths
End Sub