首页 › Skill教程 › 这个代码怎么改，我不太会写

xieeyawen 发表于 2025-1-16 19:11:48

这个代码怎么改，我不太会写

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)
                                                )
                        )

xieeyawen 发表于 2025-1-16 19:21:07

:'(

xieeyawen 发表于 2025-1-16 19:21:33

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_p1 = atoi(text_block)
                                                TextBlock1->width = block_p1*a
                                                TextBlock1->height = block_p1*a
                                                TextBlock1->lineSpace = 5*a
                                                TextBlock1->photoWidth = 5*a
                                                TextBlock1->charSpace = 5*a
                                                axlSetParam(TextBlock1)
                                                )
                        )

查看完整版本: 这个代码怎么改，我不太会写