Can someone help me with a macro to align 2 dimensions?

I can get each dimension's ID (for example: RD6@Sketch1), but how to align them?: