on AGSetRegpoint fMembersInfoList,fPointSetType if ilk(fMembersInfoList[1])=#list then if fMembersInfoList[1].count>=2 then tcastnum=fMembersInfoList[2] else tcastnum=1 end if repeat with i in fMembersInfoList[1] if fPointSetType=#centered then member(i,tcastnum).centerRegPoint =true else member(i,tcastnum).RegPoint =fPointSetType end if end repeat else if fMembersInfoList.count>=3 then tcastnum=fMembersInfoList[3] else tcastnum=1 end if repeat with i=fMembersInfoList[1] to fMembersInfoList[2] if fPointSetType=#centered then member(i,tcastnum).centerRegPoint =true else member(i,tcastnum).RegPoint =fPointSetType end if end repeat end if end