帮忙看下怎么改这个程序

xieeyawen

axlCmdRegister("quick_textset" 'textset1)
defun( textset1()
          case(car(axlDBGetDesignUnits())
                                 ("mils"  a = 1)
                                       ("millimeters" a = 0.0254 )
                                )
          Text_need = '("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12" "13" "14" "15" "16")
          foreach(text_block Text_need
                                                TextBlock1 = axlGetParam("paramTextBlock:" text_block)
                                                block_pl = atoi(text_block)
                                                TextBlock1->width = text_block*a
                                                TextBlock1->height = text_block*a
                                                TextBlock1->lineSpace = 5*a
                                                TextBlock1->photoWidth = 5*a
                                                TextBlock1->charSpace = 5*a
                                                axlSetParam(TextBlock)
                                                )
                        )