Jon,
Did you try this script out? It is for blanking the current layer. Simply add a menu item and keyboard shortcut to get it to work like you were wanting. One thing I like is having features I wasn't even told about.
unselectall
Attributes Output, Layer = currentLayer
CADLayer
XSelect Layers = currentlayer
Attributes Layer = currentLayer, Blank=TRUE