EDA365电子论坛网

标题: 代码补充求助 [打印本页]

作者: 1621142761    时间: 2022-9-14 14:47
标题: 代码补充求助
如下代码,请问这段应该怎么改才能实现每层都有100这个数值



源码:procedure(quickartset()
      let(()
                
             layerlist = car(list(axlGetParam("paramLayerGroup:ETCH")->groupMembers))
             layercont = length(layerlist)
             layertotal = layercont
             num = 0

                         delnum = 0
                 oldartlayerlist = car(list(axlGetParam("artwork")->groupMembers)) ;("top" "bottom")
                         oldartlayerlistcount = length(oldartlayerlist)
                         deloldartlayerlist = list()
                         while((oldartlayerlistcount-1 >= delnum)
                         drlid = axlGetParam(strcat("artwork:" nth(delnum oldartlayerlist)))
                         deloldartlayerlist = append1(deloldartlayerlist drlid)
                         delnum = delnum+1
                         )
                         axlDeleteObject(deloldartlayerlist)
                         ;delet done
             namelist = list("01_" "02_" "03_" "04_" "05_" "06_" "07_" "08_" "09_" "10_" "11_" "12_" "13_" "14_" "15_"
                         "16_" "17_" "18_" "19_" "20_" "21_" "22_" "23_" "24_" "25_" "26_" "27_" "28_" "29_" "30_" "31_" "32_" "33_" "34_" "35_" "36_" "37_" "38_" "39_" "40_" "41_" "42_" "43_" "44_" "45_" "46_" "47_" "48_" "49_" "50_")
             drilllist = list("1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12 " "13" "14" "15" "16" "17" "18" "19"
                         "20" "21" "22" "23" "24" "25" "26" "27" "28" "29" "30" "31" "32" "33" "34" "35" "36" "37" "38" "39" "40" "41" "42" "43" "44" "45" "46" "47" "48" "49" "50")
             drilllayer = strcat("MANUFACTURING/NCLEGEND-1-"  nth(layertotal-1 drilllist))
             drilllayerlist = list("BOARD GEOMETRY/OUTLINE" "MANUFACTURING/PHOTOPLOT_OUTLINE" "BOARD GEOMETRY/ASSEMBLY_NOTES" "BOARD GEOMETRY/DESIGN_OUTLINE" "BOARD GEOMETRY/CUTOUT")
             drillname = strcat(nth(layertotal namelist) "DRILL")
             layercheck = axlIsLayer(drilllayer)
                         

                         if((layercheck == nil)
                        then
                        axlUIConfirm("Please NC drill first")

                         else
             while((layercont >= 1)
                     numadd = nth(num namelist)
                     layeradd = list("BOARD GEOMETRY/DESIGN_OUTLINE" "BOARD GEOMETRY/CUTOUT" "BOARD GEOMETRY/OUTLINE" strcat("ETCH/",car(layerlist))
                                   strcat("VIA CLASS/",car(layerlist)) strcat("PIN/",car(layerlist)))
                     layername = strcat(numadd,car(layerlist))                                         
                     Filmcreat(layername layeradd)
                       layercont = layercont-1
                       layerlist = cdr(layerlist)
                       num = num+1
                   )                                  
            ;DRILL   ——————————with B/B VIA         
             posbdrillist = car(list(axlGetParam("paramLayerGroup:MANUFACTURING")->groupMembers))   

                         posbdrilltotal = length(posbdrillist)
                         numdrl = 0
             while((posbdrilltotal-1 >= numdrl)
                         posbdrillayer = nth(numdrl posbdrillist)
                         if(strncmp("NCLEGEND" posbdrillayer 8) == 0
                           drilllayerlist = append1(drilllayerlist strcat("MANUFACTURING/" posbdrillayer))
                           )
                           numdrl = numdrl+1
                           )
                           ; drilllayerlist = append1(drilllayerlist "MANUFACTURING/"
                   Filmcreat(drillname     drilllayerlist)

           ;user preferrence layer1
           Filmcreat(strcat(nth(layertotal+11 namelist) "PROBE_BOTTOM")  '("PIN/FILMMASKBOTTOM" "VIA CLASS/FILMMASKBOTTOM" "MANUFACTURING/PROBE_BOTTOM" "BOARD GEOMETRY/DESIGN_OUTLINE" "BOARD GEOMETRY/CUTOUT" "BOARD GEOMETRY/OUTLINE" ))
           ;user preferrence layer1
          ;Filmcreat(strcat(nth(layertotal+8 namelist) "user preferrence layer1")  '("BOARD GEOMETRY/OUTLINE"  
          ;                     "REF DES/SILKSCREEN_BOTTOM" "PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" "BOARD GEOMETRY/SILKSCREEN_BOTTOM" ))

                                         

                                ; axlShell("artwork")       
                                axlVisibleSet(old_visList)
                                axlUIWRedraw(nil)
                               
         )
                 )
      let( ()
      axlShell("setwindow pcb")
      axlShell("generaledit")
      axlShell("artwork ")
      axlShell("setwindow form.film_control")
          axlShell(sprintf(nil "FORM film_control filmtree  %s" layerlist))
      axlShell("FORM film_control shape_bounding_box 100 ")
      axlShell("FORM film_control ok ")
)


                 )

作者: bekindasd    时间: 2022-9-14 16:17
skill?
作者: 1621142761    时间: 2022-9-14 16:36
bekindasd 发表于 2022-9-14 16:17
skill?

不像吗;P
作者: 1621142761    时间: 2022-9-15 08:49
Vincent_杜 发表于 2022-9-14 22:19
先把需求说清楚,100是干嘛的

就是这两句的100
          axlShell(sprintf(nil "FORM film_control filmtree  %s" layerlist))
      axlShell("FORM film_control shape_bounding_box 100 ")

Snipaste_2022-09-15_08-48-47.png (17.2 KB, 下载次数: 0)

Snipaste_2022-09-15_08-48-47.png





欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/) Powered by Discuz! X3.2