Macro to align selected sketch entity with part origin?

I am constantly selecting a sketch entity and the part origin, then constraining to "coincident" or "midpoint".

Does anyone have a macro to speed this task?

Brian

San Diego, CA

SolidworksSketching