LISP to change all dimension & leader text style

Hello all,

This is my first thread I've started on augi.com although I've read a lot on these forums. I am currently writing a lisp routine to change the textstyle on all dimensions and leaders in an active drawing. I've read up on the ssget function and dxf group codes. I am hoping to add it to the attached code. Any help would be much appreciated. Cheers.

If all you need is to simply Merge Text Styles try: http://www.theswamp.org/index.php?topic=17659.0;all
One of my top 5 lisp routine downloads.