代码补充求助

1621142761 · 发表于 2022-9-14 14:47

EDA365欢迎您登录！

您需要登录才可以下载或查看，没有帐号？注册

x

如下代码，请问这段应该怎么改才能实现每层都有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 ")
)

   )