Creating relationships with roles

Say I have 2 entities (showing entity/table and attribute/column names):

"Date Dimension"/D_DATE. Primary key = "Date SK"/date_sk

"Transaction Fact"/F_TRANSACTION. Attribute = "Keyed Date SK"/keyed_date_sk

How do I create a relationship between these two attributes via a macro?

I've tried using the AddWithRoleName function but I cannot get it to work - probably because I do not know how to create the PKPairList value correctly

Just to be clear, I want to create a relationship where the parent = D_DATE.date_sk and the child = F_TRANSACTION.keyed_date_sk