I posted a file recently. It's attached here again.
In Skill (or allegro.ilinit):
axlCmdRegister("clear pin silk" 'EDAVE_clearPinSilk ?cmdType "interactive")
Type clear pin silk on the command line to execute the code.
The default values are 0.25mm for clearance and 0.21mm for the minimum lenght line to leave behind.
You can change these values by adding your own to the end of the command. eg:
clear pin silk 0.2 0.1