Goal: Change all frictionless contacts to have a pinball of 5mm.

Code:

with Transaction():
    contacts = DataModel.GetObjectsByType(DataModelObjectCategory.ContactRegion)
    changeCount = 0
    for cont in contacts:    
        if (cont.ContactType == ContactType.Frictionless) : 
            cont.PinballRegion = ContactPinballType.Radius
            cont.PinballRadius = Quantity("5[mm]")
            changeCount = changeCount + 1
print "Done with macro, changed %s contact regions" % (changeCount)