Does anyone have code to purge unused styles in Architectural Desktop?

Thanks,
Matthew