/*********************************************************/
/* Title : pal Color */
/* Execute Command : PalColor */
/* Author : tatarlxw */
/* Creation Date : 2014-11-11 */
/* Update : */
/* Version : 1.0 */
/* Web site : http://hi.baidu.com/tatarlxw */
/* E-mail : tatarlxw@163.com */
/*********************************************************/
;(load "C:/PalEDA/Allegro/Display/ColorDialog/PalColor.il")
axlCmdRegister("PalColor" 'PalColor)
newColor=0
intCPageIndex=0
;参数模块
;按钮色彩预定义
defun( clrFormSetField (curLayerName KeyName)
if(axlIsVisibleLayer(curLayerName) then
crblayer=axlLayerGet(curLayerName)
axlFormSetField(frmColor KeyName crblayer->color )
axlFormSetField(frmColor KeyName t)
else
axlFormSetField( frmColor KeyName 'black)
axlFormSetField(frmColor KeyName nil)
)
)
; 按钮色彩预定义
defun( clrGetform ()
clrFormSetField("BOARD GEOMETRY/OUTLINE" "crbOutline")
clrFormSetField("BOARD GEOMETRY/OUTLINE-O" "crbOutlineo")
clrFormSetField("BOARD GEOMETRY/TOP-L" "crbDxftopl")
clrFormSetField("BOARD GEOMETRY/TOP-LO" "crbDxftoplo")
clrFormSetField("BOARD GEOMETRY/TOP-N" "crbDxftopn")
clrFormSetField("BOARD GEOMETRY/TOP-O" "crbDxftopno")
clrFormSetField("BOARD GEOMETRY/BOT-L" "crbDxfbotl")
clrFormSetField("BOARD GEOMETRY/BOT-LO" "crbDxfbotlo")
clrFormSetField("BOARD GEOMETRY/BOT-N" "crbDxfbotn")
clrFormSetField("BOARD GEOMETRY/BOT-O" "crbDxfbotno")
clrFormSetField("PACKAGE GEOMETRY/PLACE_BOUND_TOP" "crbPlaceBoundtop")
clrFormSetField("PACKAGE GEOMETRY/PLACE_BOUND_BOTTOM" "crbPlaceBoundbot")
clrFormSetField("PACKAGE KEEPOUT/ALL" "crbPackageKOAll")
clrFormSetField("PACKAGE KEEPOUT/TOP" "crbPackageKOtop")
clrFormSetField("PACKAGE KEEPOUT/BOTTOM" "crbPackageKObot")
clrFormSetField("BOARD GEOMETRY/SWITCH_AREA_TOP" "crbSwitchAreatop")
clrFormSetField("BOARD GEOMETRY/SWITCH_AREA_BOTTOM" "crbSwitchAreabot")
clrFormSetField("BOARD GEOMETRY/BOTH_ROOMS" "crbRoomAll")
clrFormSetField("BOARD GEOMETRY/TOP_ROOM" "crbRoomtop")
clrFormSetField("BOARD GEOMETRY/BOTTOM_ROOM" "crbRoombot")
clrFormSetField("MANUFACTURING/NO_PROBE_TOP" "crbNoProbetop")
clrFormSetField("MANUFACTURING/NO_PROBE_BOTTOM" "crbNoProbebot")
clrFormSetField("MANUFACTURING/PROBE_TOP" "crbProbetop")
clrFormSetField("MANUFACTURING/PROBE_BOTTOM" "crbProbebot")
clrFormSetField("PIN/FILMMASKTOP" "crbFilmmaskPintop")
clrFormSetField("PIN/FILMMASKBOTTOM" "crbFilmmaskPinbot")
clrFormSetField("VIA CLASS/FILMMASKTOP" "crbFilmmaskViatop")
clrFormSetField("VIA CLASS/FILMMASKBOTTOM" "crbFilmmaskViabot")
clrFormSetField("BOARD GEOMETRY/SOLDERMASK_TOP" "crbSoldermaskBDtop")
clrFormSetField("BOARD GEOMETRY/SOLDERMASK_BOTTOM" "crbSoldermaskBDbot")
clrFormSetField("PACKAGE GEOMETRY/SOLDERMASK_TOP" "crbSoldermaskPKGtop")
clrFormSetField("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" "crbSoldermaskPKGbot")
clrFormSetField("DRAWING FORMAT/SOLDERMASK_TOP" "crbSoldermaskDrwtop")
clrFormSetField("DRAWING FORMAT/SOLDERMASK_BOTTOM" "crbSoldermaskDrwbot")
clrFormSetField("PIN/SOLDERMASK_TOP" "crbSoldermaskPintop")
clrFormSetField("PIN/SOLDERMASK_BOTTOM" "crbSoldermaskPinbot")
clrFormSetField("VIA CLASS/SOLDERMASK_TOP" "crbSoldermaskViatop")
clrFormSetField("VIA CLASS/SOLDERMASK_BOTTOM" "crbSoldermaskViabot")
clrFormSetField("BOARD GEOMETRY/PASTEMASK_TOP" "crbPastemaskBDtop")
clrFormSetField("BOARD GEOMETRY/PASTEMASK_BOTTOM" "crbPastemaskBDbot")
clrFormSetField("PACKAGE GEOMETRY/PASTEMASK_TOP" "crbPastemaskPKGtop")
clrFormSetField("PACKAGE GEOMETRY/PASTEMASK_BOTTOM" "crbPastemaskPKGbot")
clrFormSetField("DRAWING FORMAT/PASTEMASK_TOP" "crbPastemaskDrwtop")
clrFormSetField("DRAWING FORMAT/PASTEMASK_BOTTOM" "crbPastemaskDrwbot")
clrFormSetField("PIN/PASTEMASK_TOP" "crbPastemaskPintop")
clrFormSetField("PIN/PASTEMASK_BOTTOM" "crbPastemaskPinbot")
clrFormSetField("VIA CLASS/PASTEMASK_TOP" "crbPastemaskViatop")
clrFormSetField("VIA CLASS/PASTEMASK_BOTTOM" "crbPastemaskViabot")
clrFormSetField("PACKAGE GEOMETRY/ASSEMBLY_TOP" "crbAssemblyPKGtop")
clrFormSetField("PACKAGE GEOMETRY/ASSEMBLY_BOTTOM" "crbAssemblyPKGbot")
clrFormSetField("REF DES/ASSEMBLY_TOP" "crbAssemblyReftop")
clrFormSetField("REF DES/ASSEMBLY_BOTTOM" "crbAssemblyRefbot")
clrFormSetField("PACKAGE GEOMETRY/DISPLAY_TOP" "crbDisplayPKGtop")
clrFormSetField("PACKAGE GEOMETRY/DISPLAY_BOTTOM" "crbDisplayPKGbot")
clrFormSetField("REF DES/DISPLAY_TOP" "crbDisplayReftop")
clrFormSetField("REF DES/DISPLAY_BOTTOM" "crbDisplayRefbot")
clrFormSetField("BOARD GEOMETRY/SILKSCREEN_TOP" "crbSilkscreenBDtop")
clrFormSetField("BOARD GEOMETRY/SILKSCREEN_BOTTOM" "crbSilkscreenBDbot")
clrFormSetField("PACKAGE GEOMETRY/SILKSCREEN_TOP" "crbSilkscreenPKGtop")
clrFormSetField("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" "crbSilkscreenPKGbot")
clrFormSetField("DRAWING FORMAT/SILKSCREEN_TOP" "crbSilkscreenDrwtop")
clrFormSetField("DRAWING FORMAT/SILKSCREEN_BOTTOM" "crbSilkscreenDrwbot")
clrFormSetField("REF DES/SILKSCREEN_TOP" "crbSilkscreenReftop")
clrFormSetField("REF DES/SILKSCREEN_BOTTOM" "crbSilkscreenRefbot")
if(and(axlFormGetField(frmColor "crbSoldermaskBDtop")
axlFormGetField(frmColor "crbSoldermaskPKGtop")
axlFormGetField(frmColor "crbSoldermaskDrwtop")
axlFormGetField(frmColor "crbSoldermaskPintop")
axlFormGetField(frmColor "crbSoldermaskViatop")
) then
axlFormSetField(frmColor "ckbSoldermaskTop" t)
else
axlFormSetField(frmColor "ckbSoldermaskTop" nil)
)
if(and(axlFormGetField(frmColor "crbSoldermaskBDbot")
axlFormGetField(frmColor "crbSoldermaskPKGbot")
axlFormGetField(frmColor "crbSoldermaskDrwbot")
axlFormGetField(frmColor "crbSoldermaskPinbot")
axlFormGetField(frmColor "crbSoldermaskViabot")
) then
axlFormSetField(frmColor "ckbSoldermaskBot" t)
else
axlFormSetField(frmColor "ckbSoldermaskBot" nil)
)
if(and(axlFormGetField(frmColor "crbPastemaskViatop")
axlFormGetField(frmColor "crbPastemaskBDtop")
axlFormGetField(frmColor "crbPastemaskPKGtop")
axlFormGetField(frmColor "crbPastemaskDrwtop")
axlFormGetField(frmColor "crbPastemaskPintop")
) then
axlFormSetField(frmColor "ckbPastemaskTop" t)
else
axlFormSetField(frmColor "ckbPastemaskTop" nil)
)
if(and(axlFormGetField(frmColor "crbPastemaskViabot")
axlFormGetField(frmColor "crbPastemaskBDbot")
axlFormGetField(frmColor "crbPastemaskPKGbot")
axlFormGetField(frmColor "crbPastemaskDrwbot")
axlFormGetField(frmColor "crbPastemaskPinbot")
) then
axlFormSetField(frmColor "ckbPastemaskBot" t)
else
axlFormSetField(frmColor "ckbPastemaskBot" nil)
)
if(and(axlFormGetField(frmColor "crbAssemblyPKGtop")
axlFormGetField(frmColor "crbAssemblyReftop")
) then
axlFormSetField(frmColor "ckbAssemblyTop" t)
else
axlFormSetField(frmColor "ckbAssemblyTop" nil)
)
if(and(axlFormGetField(frmColor "crbAssemblyPKGbot")
axlFormGetField(frmColor "crbAssemblyRefbot")
) then
axlFormSetField(frmColor "ckbAssemblyBot" t)
else
axlFormSetField(frmColor "ckbAssemblyBot" nil)
)
if(and(axlFormGetField(frmColor "crbDisplayPKGtop")
axlFormGetField(frmColor "crbDisplayReftop")
) then
axlFormSetField(frmColor "ckbDisplayTop" t)
else
axlFormSetField(frmColor "ckbDisplayTop" nil)
)
if(and(axlFormGetField(frmColor "crbDisplayPKGbot")
axlFormGetField(frmColor "crbDisplayRefbot")
) then
axlFormSetField(frmColor "ckbDisplayBot" t)
else
axlFormSetField(frmColor "ckbDisplayBot" nil)
)
if(and(axlFormGetField(frmColor "crbSilkscreenBDtop")
axlFormGetField(frmColor "crbSilkscreenPKGtop")
axlFormGetField(frmColor "crbSilkscreenDrwtop")
axlFormGetField(frmColor "crbSilkscreenReftop")
) then
axlFormSetField(frmColor "ckbSilkscreenTop" t)
else
axlFormSetField(frmColor "ckbSilkscreenTop" nil)
)
if(and(axlFormGetField(frmColor "crbSilkscreenBDbot")
axlFormGetField(frmColor "crbSilkscreenPKGbot")
axlFormGetField(frmColor "crbSilkscreenDrwbot")
axlFormGetField(frmColor "crbSilkscreenRefbot")
) then
axlFormSetField(frmColor "ckbSilkscreenBot" t)
else
axlFormSetField(frmColor "ckbSilkscreenBot" nil)
)
clrFormSetField("BOARD GEOMETRY/LOGO" "crbLogo")
clrFormSetField("PACKAGE GEOMETRY/PIN_NUMBER" "crbPinNumber")
clrFormSetField("DRAWING FORMAT/MOAT" "crbMoat")
clrFormSetField("MANUFACTURING/XSECTION_CHART" "crbXsectionChart")
clrFormSetField("MANUFACTURING/NCDRILL_FIGURE" "crbManNcdrillFigure")
clrFormSetField("MANUFACTURING/NCDRILL_LEGEND" "crbManNcdrillLegend")
clrFormSetField("DRAWING FORMAT/NCDRILL_LEGEND" "crbDrwNcdrillLegend")
clrFormSetField("MANUFACTURING/PHOTOPLOT_OUTLINE" "crbPhotoplotOutline")
clrFormSetField("PACKAGE GEOMETRY/DIMENSION" "crbDimension")
clrFormSetField("ROUTE KEEPIN/ALL" "crbRteKIAll")
clrFormSetField("PACKAGE KEEPIN/ALL" "crbPkgKIAll")
intId=0
curLayers=axlGetParam("paramLayerGroup:ETCH")->groupMembers
foreach( item curLayers
intId=intId+1
clrFormSetField(strcat("DRC ERROR CLASS/" item) strcat("crbDrc" sprintf(nil "%d" intId)))
clrFormSetField(strcat("ETCH/" item) strcat("crbEtch" sprintf(nil "%d" intId)))
clrFormSetField(strcat("PIN/" item) strcat("crbPin" sprintf(nil "%d" intId)))
clrFormSetField(strcat("ROUTE KEEPOUT/" item) strcat("crbRko" sprintf(nil "%d" intId)))
clrFormSetField(strcat("VIA CLASS/" item) strcat("crbVia" sprintf(nil "%d" intId)))
clrFormSetField(strcat("VIA KEEPOUT/" item) strcat("crbVko" sprintf(nil "%d" intId)))
clrFormSetField(strcat("ANTI ETCH/" item) strcat("crbAnt" sprintf(nil "%d" intId)))
clrFormSetField(strcat("BOUNDARY/" item) strcat("crbBdy" sprintf(nil "%d" intId)))
clrFormSetField(strcat("CONSTRAINT REGION/" item) strcat("crbCns" sprintf(nil "%d" intId)))
; axlUIWPrint(nil strcat("PIN/" item ) sprintf(nil "%d" intId) )
)
)
;色盘初始色
defun( clrColorPage (intP)
for(i 0 47
;fprintf(lstF strcat("FIELD crbColor" sprintf(nil "%d" i) "\n" "FLOC " sprintf(nil "%d" modulo(i 16)*3+3) " " sprintf(nil "%d" 40+(i/16)*2) "\n" "COLOR 3 1\n" "ENDFIELD\n"))
axlFormSetField( frmColor strcat("crbColor" sprintf(nil "%d" i)) i+intP*48)
)
)
;自定义功能显示作业层组
defun( LayerCustom (strCustom)
axlShell("setwindow pcb")
axlShell("placementedit")
axlShell("colorview create")
axlShell("placementedit")
axlShell("setwindow form.colorview_create")
axlShell(strcat("FORM colorview_create colorview_name " strCustom))
axlShell("FORM colorview_create save ")
axlShell("FORM colorview_create done ")
axlShell("setwindow pcb")
)
;============ 主模块 ===============
defun( PalColor ()
formFileName = "./PalColor.form"
frmColor_create()
spec_layerfield_table = makeTable("spec_layerfield_table" nil)
spec_layerfield_table["crbEtch"] = list("ETCH/")
spec_layerfield_table["crbVia"] = list("VIA CLASS/")
spec_layerfield_table["crbPin"] = list("PIN/")
spec_layerfield_table["crbDrc"] = list("DRC ERROR CLASS/")
spec_layerfield_table["crbAnt"] = list("ANTI ETCH/")
spec_layerfield_table["crbRko"] = list("ROUTE KEEPOUT/")
spec_layerfield_table["crbVko"] = list("VIA KEEPOUT/")
spec_layerfield_table["crbCns"] = list("CONSTRAINT REGION/")
spec_layerfield_table["crbBdy"] = list("BOUNDARY/")
frmColor = axlFormCreate( (gensym) formFileName `(ne inner "msglines" 2) `PalColor_action t nil)
frmColor->spec = spec_layerfield_table
axlFormDisplay(frmColor)
deleteFile(formFileName)
axlControlRaise('options)
clrGetform() ;按钮色彩预定义
clrColorPage(intCPageIndex)
)
; ===== ===== 按钮响应区 ===== =====
;参数模块
;色块按键按下与弹起。
defun( ColorAction (curLayerName KeyName)
if(axlFormGetField( frmColor "ckbColorSetup") then
axlVisibleLayer(curLayerName t)
crblayer=axlLayerGet(curLayerName)
axlFormSetField( frmColor KeyName crblayer->color )
chgColor=axlLayerGet(curLayerName)
chgColor->color=newColor
axlLayerSet(chgColor)
clrGetform()
axlVisibleUpdate(frmColor)
axlShell( "redraw")
;axlUIWPrint(nil curLayerName)
else
if(axlFormGetField( frmColor KeyName) then ;获取字段的值，查看当前按钮是否按下，
axlVisibleLayer(curLayerName t)
crblayer=axlLayerGet(curLayerName)
axlFormSetField( frmColor KeyName crblayer->color )
else
axlVisibleLayer(curLayerName nil)
axlFormSetField( frmColor KeyName 'black)
)
axlVisibleUpdate(nil)
clrGetform()
axlVisibleUpdate(frmColor)
)
)
/*
q1=axlLayerGet("PACKAGE GEOMETRY/SILKSCREEN_TOP")
q1->color=63
axlLayerSet(q1)
*/
defun(ckbStackAllLayer1 (KeyName ClassName)
if(axlFormGetField(frmColor KeyName) then
;intIdE=0
foreach( item curLayers axlVisibleLayer(strcat(ClassName item) t))
else
foreach( item curLayers axlVisibleLayer(strcat(ClassName item) nil))
)
axlShell( "redraw")
clrGetform()
)
/*
procedure( YourTimerCallback( window timerId elapsedTime)
; your time period has elapsed. do something.
)
*/
defun(PalColor_action (frmColor)
let((idx ly flag hdfield crblayer hdly curLayers)
curLayers=axlGetParam("paramLayerGroup:ETCH")->groupMembers
foreach(ea tableToList(frmColor->spec)
if(index(frmColor->curField car(ea)) && strlen(frmColor->curField) > strlen(car(ea)) then
idx = atoi(substring(frmColor->curField strlen(car(ea))+1))
ly = nthelem(idx curLayers)
foreach(e frmColor->spec[car(ea)]
ColorAction(strcat(e ly) frmColor->curField)
)
)
)
if(index(frmColor->curField "ckbStack") && strlen(frmColor->curField) > strlen("ckbStack") then
flag = axlFormGetField(frmColor frmColor->curField)
idx = atoi(substring(frmColor->curField 9))
ly = nthelem(idx curLayers)
foreach(ea tableToList(frmColor->spec)
hdly = strcat(car(cadr(ea)) ly)
hdfield = sprintf(nil "%s%d" car(ea) idx)
if(axlFormGetField(frmColor hdfield) != flag then
if(!flag then
axlVisibleLayer(hdly nil)
axlFormSetField(frmColor hdfield 'black)
axlFormSetField(frmColor hdfield nil)
else
axlVisibleLayer(hdly t)
crblayer = axlLayerGet(hdly)
axlFormSetField(frmColor hdfield crblayer->color)
axlFormSetField(frmColor hdfield t)
)
)
)
axlVisibleUpdate(nil)
);end if 'ckbStack'
if(index(frmColor->curField "crbColor") && strlen(frmColor->curField) > strlen("crbColor") then
for(i 0 47
axlFormSetField(frmColor strcat("crbColor" sprintf(nil "%d" i+intCPageIndex*48)) nil)
)
flag = axlFormGetField(frmColor frmColor->curField)
idx = atoi(substring(frmColor->curField 9))
newColor=idx;
;axlUIWPrint(nil sprintf(nil "%d" idx))
);end if 'crbColor
);end let
case(frmColor->curField
("crbOutline" ColorAction("BOARD GEOMETRY/OUTLINE" "crbOutline"))
("crbOutlineo" ColorAction("BOARD GEOMETRY/OUTLINE-O" "crbOutlineo"))
("crbDxftopl" ColorAction("BOARD GEOMETRY/TOP-L" "crbDxftopl"))
("crbDxftoplo" ColorAction("BOARD GEOMETRY/TOP-LO" "crbDxftoplo"))
("crbDxftopn" ColorAction("BOARD GEOMETRY/TOP-N" "crbDxftopn"))
("crbDxftopno" ColorAction("BOARD GEOMETRY/TOP-O" "crbDxftopno"))
("crbDxfbotl" ColorAction("BOARD GEOMETRY/BOT-L" "crbDxfbotl"))
("crbDxfbotlo" ColorAction("BOARD GEOMETRY/BOT-LO" "crbDxfbotlo"))
("crbDxfbotn" ColorAction("BOARD GEOMETRY/BOT-N" "crbDxfbotn"))
("crbDxfbotno" ColorAction("BOARD GEOMETRY/BOT-O" "crbDxfbotno"))
("crbPlaceBoundtop" ColorAction("PACKAGE GEOMETRY/PLACE_BOUND_TOP" "crbPlaceBoundtop"))
("crbPlaceBoundbot" ColorAction("PACKAGE GEOMETRY/PLACE_BOUND_BOTTOM" "crbPlaceBoundbot"))
("crbPackageKOAll" ColorAction("PACKAGE KEEPOUT/ALL" "crbPackageKOAll"))
("crbPackageKOtop" ColorAction("PACKAGE KEEPOUT/TOP" "crbPackageKOtop"))
("crbPackageKObot" ColorAction("PACKAGE KEEPOUT/BOTTOM" "crbPackageKObot"))
("crbSwitchAreatop" ColorAction("BOARD GEOMETRY/SWITCH_AREA_TOP" "crbSwitchAreatop"))
("crbSwitchAreabot" ColorAction("BOARD GEOMETRY/SWITCH_AREA_BOTTOM" "crbSwitchAreabot"))
("crbRoomAll" ColorAction("BOARD GEOMETRY/BOTH_ROOMS" "crbRoomAll"))
("crbRoomtop" ColorAction("BOARD GEOMETRY/TOP_ROOM" "crbRoomtop"))
("crbRoombot" ColorAction("BOARD GEOMETRY/BOTTOM_ROOM" "crbRoombot"))
("crbNoProbetop" ColorAction("MANUFACTURING/NO_PROBE_TOP" "crbNoProbetop"))
("crbNoProbebot" ColorAction("MANUFACTURING/NO_PROBE_BOTTOM" "crbNoProbebot"))
("crbProbetop" ColorAction("MANUFACTURING/PROBE_TOP" "crbProbetop"))
("crbProbebot" ColorAction("MANUFACTURING/PROBE_BOTTOM" "crbProbebot"))
("crbFilmmaskPintop" ColorAction("PIN/FILMMASKTOP" "crbFilmmaskPintop"))
("crbFilmmaskPinbot" ColorAction("PIN/FILMMASKBOTTOM" "crbFilmmaskPinbot"))
("crbFilmmaskViatop" ColorAction("VIA CLASS/FILMMASKTOP" "crbFilmmaskViatop"))
("crbFilmmaskViabot" ColorAction("VIA CLASS/FILMMASKBOTTOM" "crbFilmmaskViabot"))
("crbSoldermaskBDtop" ColorAction("BOARD GEOMETRY/SOLDERMASK_TOP" "crbSoldermaskBDtop"))
("crbSoldermaskBDbot" ColorAction("BOARD GEOMETRY/SOLDERMASK_BOTTOM" "crbSoldermaskBDbot"))
("crbSoldermaskPKGtop" ColorAction("PACKAGE GEOMETRY/SOLDERMASK_TOP" "crbSoldermaskPKGtop"))
("crbSoldermaskPKGbot" ColorAction("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" "crbSoldermaskPKGbot"))
("crbSoldermaskDrwtop" ColorAction("DRAWING FORMAT/SOLDERMASK_TOP" "crbSoldermaskDrwtop"))
("crbSoldermaskDrwbot" ColorAction("DRAWING FORMAT/SOLDERMASK_BOTTOM" "crbSoldermaskDrwbot"))
("crbSoldermaskPintop" ColorAction("PIN/SOLDERMASK_TOP" "crbSoldermaskPintop"))
("crbSoldermaskPinbot" ColorAction("PIN/SOLDERMASK_BOTTOM" "crbSoldermaskPinbot"))
("crbSoldermaskViatop" ColorAction("VIA CLASS/SOLDERMASK_TOP" "crbSoldermaskViatop"))
("crbSoldermaskViabot" ColorAction("VIA CLASS/SOLDERMASK_BOTTOM" "crbSoldermaskViabot"))
("crbPastemaskBDtop" ColorAction("BOARD GEOMETRY/PASTEMASK_TOP" "crbPastemaskBDtop"))
("crbPastemaskBDbot" ColorAction("BOARD GEOMETRY/PASTEMASK_BOTTOM" "crbPastemaskBDbot"))
("crbPastemaskPKGtop" ColorAction("PACKAGE GEOMETRY/PASTEMASK_TOP" "crbPastemaskPKGtop"))
("crbPastemaskPKGbot" ColorAction("PACKAGE GEOMETRY/PASTEMASK_BOTTOM" "crbPastemaskPKGbot"))
("crbPastemaskDrwtop" ColorAction("DRAWING FORMAT/PASTEMASK_TOP" "crbPastemaskDrwtop"))
("crbPastemaskDrwbot" ColorAction("DRAWING FORMAT/PASTEMASK_BOTTOM" "crbPastemaskDrwbot"))
("crbPastemaskPintop" ColorAction("PIN/PASTEMASK_TOP" "crbPastemaskPintop"))
("crbPastemaskPinbot" ColorAction("PIN/PASTEMASK_BOTTOM" "crbPastemaskPinbot"))
("crbPastemaskViatop" ColorAction("VIA CLASS/PASTEMASK_TOP" "crbPastemaskViatop"))
("crbPastemaskViabot" ColorAction("VIA CLASS/PASTEMASK_BOTTOM" "crbPastemaskViabot"))
("crbAssemblyPKGtop" ColorAction("PACKAGE GEOMETRY/ASSEMBLY_TOP" "crbAssemblyPKGtop"))
("crbAssemblyPKGbot" ColorAction("PACKAGE GEOMETRY/ASSEMBLY_BOTTOM" "crbAssemblyPKGbot"))
("crbAssemblyReftop" ColorAction("REF DES/ASSEMBLY_TOP" "crbAssemblyReftop"))
("crbAssemblyRefbot" ColorAction("REF DES/ASSEMBLY_BOTTOM" "crbAssemblyRefbot"))
("crbDisplayPKGtop" ColorAction("PACKAGE GEOMETRY/DISPLAY_TOP" "crbDisplayPKGtop"))
("crbDisplayPKGbot" ColorAction("PACKAGE GEOMETRY/DISPLAY_BOTTOM" "crbDisplayPKGbot"))
("crbDisplayReftop" ColorAction("REF DES/DISPLAY_TOP" "crbDisplayReftop"))
("crbDisplayRefbot" ColorAction("REF DES/DISPLAY_BOTTOM" "crbDisplayRefbot"))
("crbSilkscreenBDtop" ColorAction("BOARD GEOMETRY/SILKSCREEN_TOP" "crbSilkscreenBDtop"))
("crbSilkscreenBDbot" ColorAction("BOARD GEOMETRY/SILKSCREEN_BOTTOM" "crbSilkscreenBDbot"))
("crbSilkscreenPKGtop" ColorAction("PACKAGE GEOMETRY/SILKSCREEN_TOP" "crbSilkscreenPKGtop"))
("crbSilkscreenPKGbot" ColorAction("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" "crbSilkscreenPKGbot"))
("crbSilkscreenDrwtop" ColorAction("DRAWING FORMAT/SILKSCREEN_TOP" "crbSilkscreenDrwtop"))
("crbSilkscreenDrwbot" ColorAction("DRAWING FORMAT/SILKSCREEN_BOTTOM" "crbSilkscreenDrwbot"))
("crbSilkscreenReftop" ColorAction("REF DES/SILKSCREEN_TOP" "crbSilkscreenReftop"))
("crbSilkscreenRefbot" ColorAction("REF DES/SILKSCREEN_BOTTOM" "crbSilkscreenRefbot"))
("crbLogo" ColorAction("BOARD GEOMETRY/LOGO" "crbLogo"))
("crbPinNumber" ColorAction("PACKAGE GEOMETRY/PIN_NUMBER" "crbPinNumber"))
("crbMoat" ColorAction("DRAWING FORMAT/MOAT" "crbMoat"))
("crbXsectionChart" ColorAction("MANUFACTURING/XSECTION_CHART" "crbXsectionChart"))
("crbManNcdrillFigure" ColorAction("MANUFACTURING/NCDRILL_FIGURE" "crbManNcdrillFigure"))
("crbManNcdrillLegend" ColorAction("MANUFACTURING/NCDRILL_LEGEND" "crbManNcdrillLegend"))
("crbDrwNcdrillLegend" ColorAction("DRAWING FORMAT/NCDRILL_LEGEND" "crbDrwNcdrillLegend"))
("crbPhotoplotOutline" ColorAction("MANUFACTURING/PHOTOPLOT_OUTLINE" "crbPhotoplotOutline"))
("crbDimension" ColorAction("PACKAGE GEOMETRY/DIMENSION" "crbDimension"))
("crbRteKIAll" ColorAction("ROUTE KEEPIN/ALL" "crbRteKIAll"))
("crbPkgKIAll" ColorAction("PACKAGE KEEPIN/ALL" "crbPkgKIAll"))
("btnPalceTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("PalceTop") else actPalceTop() clrGetform()))
("btnPalceBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("PalceBot") else actPalceBot() clrGetform()))
("btnPalceAll" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("PalceAll") else actPalceAll() clrGetform()))
("btnTestPinTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("TestPinTop") else actTestPinTop() clrGetform()))
("btnTestPinBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("TestPinBot") else actTestPinBot() clrGetform()))
("btnTestPinAll" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("TestPinAll") else actTestPinAll() clrGetform()))
("btnSoldermaskTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("SoldermaskTop") else actSoldermaskTop() clrGetform()))
("btnSoldermaskBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("SoldermaskBot") else actSoldermaskBot() clrGetform()))
("btnPastemaskTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("PastemaskTop") else actPastemaskTop() clrGetform()))
("btnPastemaskBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("PastemaskBot") else actPastemaskBot() clrGetform()))
("btnAssemblyTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("AssemblyTop") else actAssemblyTop() clrGetform()))
("btnAssemblyBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("AssemblyBot") else actAssemblyBot() clrGetform()))
("btnDisplayTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("DisplayTop") else actDisplayTop() clrGetform()))
("btnDisplayBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("DisplayBot") else actDisplayBot() clrGetform()))
("btnSilkscreenTop" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("SilkscreenTop") else actSilkscreenTop() clrGetform()))
("btnSilkscreenBot" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("SilkscreenBot") else actSilkscreenBot() clrGetform()))
("btnDrill" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("Drill") else actDrill() clrGetform()))
("btnRoute" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("Route") else actRoute() clrGetform()))
("btnEtch" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("Etch") else actEtch() clrGetform()))
("btnCustom1" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("Custom1") else actCustom1() clrGetform()))
("btnCustom2" if( axlFormGetField( frmColor "ckbLayerSetup") then LayerCustom("Custom2") else actCustom2() clrGetform()))
("btnNext"
intCPageIndex=intCPageIndex+1
if( intCPageIndex==5 then intCPageIndex=0)
clrColorPage(intCPageIndex)
clrGetform()
)
("btnPrev"
intCPageIndex=intCPageIndex-1
if(intCPageIndex==0 then intCPageIndex=5)
clrColorPage(intCPageIndex)
clrGetform()
)
;ckb代码区
("ckbSoldermaskTop"
if(axlFormGetField(frmColor "ckbSoldermaskTop") then
axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_TOP" t)
axlVisibleLayer("DRAWING FORMAT/SOLDERMASK_TOP" t)
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_TOP" t)
axlVisibleLayer("PIN/SOLDERMASK_TOP" t)
axlVisibleLayer("VIA CLASS/SOLDERMASK_TOP" t)
else
axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_TOP" nil)
axlVisibleLayer("DRAWING FORMAT/SOLDERMASK_TOP" nil)
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_TOP" nil)
axlVisibleLayer("PIN/SOLDERMASK_TOP" nil)
axlVisibleLayer("VIA CLASS/SOLDERMASK_TOP" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbSoldermaskBot"
if(axlFormGetField(frmColor "ckbSoldermaskBot") then
axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_BOTTOM" t)
axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
axlVisibleLayer("DRAWING FORMAT/SOLDERMASK_BOTTOM" t)
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" t)
axlVisibleLayer("PIN/SOLDERMASK_BOTTOM" t)
axlVisibleLayer("VIA CLASS/SOLDERMASK_BOTTOM" t)
else
axlVisibleLayer("BOARD GEOMETRY/SOLDERMASK_BOTTOM" nil)
axlVisibleLayer("BOARD GEOMETRY/OUTLINE" nil)
axlVisibleLayer("DRAWING FORMAT/SOLDERMASK_BOTTOM" nil)
axlVisibleLayer("PACKAGE GEOMETRY/SOLDERMASK_BOTTOM" nil)
axlVisibleLayer("PIN/SOLDERMASK_BOTTOM" nil)
axlVisibleLayer("VIA CLASS/SOLDERMASK_BOTTOM" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbPastemaskTop"
if(axlFormGetField(frmColor "ckbPastemaskTop") then
axlVisibleLayer("BOARD GEOMETRY/PASTEMASK_TOP" t)
axlVisibleLayer("DRAWING FORMAT/PASTEMASK_TOP" t)
axlVisibleLayer("PACKAGE GEOMETRY/PASTEMASK_TOP" t)
axlVisibleLayer("PIN/PASTEMASK_TOP" t)
axlVisibleLayer("VIA CLASS/PASTEMASK_TOP" t)
else
axlVisibleLayer("BOARD GEOMETRY/PASTEMASK_TOP" nil)
axlVisibleLayer("DRAWING FORMAT/PASTEMASK_TOP" nil)
axlVisibleLayer("PACKAGE GEOMETRY/PASTEMASK_TOP" nil)
axlVisibleLayer("PIN/PASTEMASK_TOP" nil)
axlVisibleLayer("VIA CLASS/PASTEMASK_TOP" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbPastemaskBot"
if(axlFormGetField(frmColor "ckbPastemaskBot") then
axlVisibleLayer("BOARD GEOMETRY/PASTEMASK_BOTTOM" t)
axlVisibleLayer("DRAWING FORMAT/PASTEMASK_BOTTOM" t)
axlVisibleLayer("PACKAGE GEOMETRY/PASTEMASK_BOTTOM" t)
axlVisibleLayer("PIN/PASTEMASK_BOTTOM" t)
axlVisibleLayer("VIA CLASS/PASTEMASK_BOTTOM" t)
else
axlVisibleLayer("BOARD GEOMETRY/PASTEMASK_BOTTOM" nil)
axlVisibleLayer("DRAWING FORMAT/PASTEMASK_BOTTOM" nil)
axlVisibleLayer("PACKAGE GEOMETRY/PASTEMASK_BOTTOM" nil)
axlVisibleLayer("PIN/PASTEMASK_BOTTOM" nil)
axlVisibleLayer("VIA CLASS/PASTEMASK_BOTTOM" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbAssemblyTop"
if(axlFormGetField(frmColor "ckbAssemblyTop") then
axlVisibleLayer("BOARD GEOMETRY/ASSEMBLY_NOTES" t)
axlVisibleLayer("REF DES/ASSEMBLY_TOP" t)
axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_TOP" t)
else
axlVisibleLayer("BOARD GEOMETRY/ASSEMBLY_NOTES" nil)
axlVisibleLayer("REF DES/ASSEMBLY_TOP" nil)
axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_TOP" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbAssemblyBot"
if(axlFormGetField(frmColor "ckbAssemblyBot") then
axlVisibleLayer("BOARD GEOMETRY/ASSEMBLY_NOTES" t)
axlVisibleLayer("REF DES/ASSEMBLY_BOTTOM" t)
axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_BOTTOM" t)
else
axlVisibleLayer("BOARD GEOMETRY/ASSEMBLY_NOTES" nil)
axlVisibleLayer("REF DES/ASSEMBLY_BOTTOM" nil)
axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_BOTTOM" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbDisplayTop"
if(axlFormGetField(frmColor "ckbDisplayTop") then
axlVisibleLayer("REF DES/DISPLAY_TOP" t)
axlVisibleLayer("PACKAGE GEOMETRY/DISPLAY_TOP" t)
else
axlVisibleLayer("REF DES/DISPLAY_TOP" nil)
axlVisibleLayer("PACKAGE GEOMETRY/DISPLAY_TOP" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbDisplayBot"
if(axlFormGetField(frmColor "ckbDisplayBot") then
axlVisibleLayer("REF DES/DISPLAY_BOTTOM" t)
axlVisibleLayer("PACKAGE GEOMETRY/DISPLAY_BOTTOM" t)
else
axlVisibleLayer("REF DES/DISPLAY_BOTTOM" nil)
axlVisibleLayer("PACKAGE GEOMETRY/DISPLAY_BOTTOM" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbSilkscreenTop"
if(axlFormGetField(frmColor "ckbSilkscreenTop") then
axlVisibleLayer("REF DES/SILKSCREEN_TOP" t)
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" t)
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" t)
axlVisibleLayer("DRAWING FORMAT/SILKSCREEN_TOP" t)
else
axlVisibleLayer("REF DES/SILKSCREEN_TOP" nil)
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_TOP" nil)
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_TOP" nil)
axlVisibleLayer("DRAWING FORMAT/SILKSCREEN_TOP" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbSilkscreenBot"
if(axlFormGetField(frmColor "ckbSilkscreenBot") then
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" t)
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_BOTTOM" t)
axlVisibleLayer("REF DES/SILKSCREEN_BOTTOM" t)
axlVisibleLayer("DRAWING FORMAT/SILKSCREEN_BOTTOM" t)
else
axlVisibleLayer("PACKAGE GEOMETRY/SILKSCREEN_BOTTOM" nil)
axlVisibleLayer("BOARD GEOMETRY/SILKSCREEN_BOTTOM" nil)
axlVisibleLayer("REF DES/SILKSCREEN_BOTTOM" nil)
axlVisibleLayer("DRAWING FORMAT/SILKSCREEN_BOTTOM" nil)
)
axlShell( "redraw")
clrGetform()
)
("ckbDrc" ckbStackAllLayer1("ckbDrc" "DRC ERROR CLASS/"))
("ckbEtch" ckbStackAllLayer1("ckbEtch" "ETCH/"))
("ckbPin" ckbStackAllLayer1("ckbPin" "PIN/"))
("ckbRko" ckbStackAllLayer1("ckbRko" "ROUTE KEEPOUT/"))
("ckbVia" ckbStackAllLayer1("ckbVia" "VIA CLASS/"))
("ckbVko" ckbStackAllLayer1("ckbVko" "VIA KEEPOUT/"))
("ckbAnt" ckbStackAllLayer1("ckbAnt" "ANTI ETCH/"))
("ckbBdy" ckbStackAllLayer1("ckbBdy" "BOUNDARY/"))
("ckbCns" ckbStackAllLayer1("ckbCns" "CONSTRAINT REGION/"))
("btnVisAllOn"
axlVisibleDesign(t)
clrGetform()
axlShell( "redraw")
)
("btnVisAllOff"
axlVisibleDesign(nil)
clrGetform()
axlShell( "redraw")
)
))
procedure(frmColor_create()
lstF = outfile( formFileName "w")
fprintf(lstF "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(lstF "FORM\n")
fprintf(lstF "FIXED\n")
fprintf(lstF "PORT 104 30\n")
fprintf(lstF "HEADER \"PalColor\"\n")
fprintf(lstF "TILE\n")
;Visibility
;fprintf(lstF strcat("GROUP \"\" g2\n" "FLOC 2 0\n" "FSIZE 24 4\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Layer Group:\"\n" "FLOC 15 0\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD ckbLayerSetup\n" "FLOC 15 2\n" "CHECKLIST \"Setup\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Global Visibility:\"\n" "FLOC 2 0\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnVisAllOn\n" "FLOC 2 2\n" "MENUBUTTON \"On\" 5 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnVisAllOff\n" "FLOC 7 2\n" "MENUBUTTON \"Off\" 5 2\n" "ENDFIELD\n"))
;Place
fprintf(lstF strcat("GROUP \"\" g2\n" "FLOC 2 3\n" "FSIZE 24 12\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Place:\"\n" "FLOC 15 5\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnPalceAll\n" "FLOC 3 5\n" "MENUBUTTON \"A\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnPalceTop\n" "FLOC 7 5\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnPalceBot\n" "FLOC 11 5\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPlaceBoundtop\n" "FLOC 8 7\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPlaceBoundbot\n" "FLOC 12 7\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"PlaceBound\"\n" "FLOC 15 7\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbPackageKOAll\n" "FLOC 4 9\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPackageKOtop\n" "FLOC 8 9\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPackageKObot\n" "FLOC 12 9\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Package_KO\"\n" "FLOC 15 9\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbSwitchAreatop\n" "FLOC 8 11\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSwitchAreabot\n" "FLOC 12 11\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"SwitchArea\"\n" "FLOC 15 11\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbRoomAll\n" "FLOC 4 13\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbRoomtop\n" "FLOC 8 13\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbRoombot\n" "FLOC 12 13\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Room\"\n" "FLOC 15 13\n" "ENDTEXT\n"))
;TestPin
fprintf(lstF strcat("GROUP \"\" g3\n" "FLOC 2 14\n" "FSIZE 24 13\n" "ENDGROUP\n"))
fprintf(lstF strcat("FIELD btnTestPinAll\n" "FLOC 3 16\n" "MENUBUTTON \"A\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnTestPinTop\n" "FLOC 7 16\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnTestPinBot\n" "FLOC 11 16\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"TestPin:\"\n" "FLOC 15 16\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbNoProbetop\n" "FLOC 8 18\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbNoProbebot\n" "FLOC 12 18\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"No Probe\"\n" "FLOC 15 18\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbProbetop\n" "FLOC 8 20\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbProbebot\n" "FLOC 12 20\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Probe\"\n" "FLOC 15 20\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbFilmmaskPintop\n" "FLOC 8 22\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbFilmmaskPinbot\n" "FLOC 12 22\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Filmmask Pin\"\n" "FLOC 15 22\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbFilmmaskViatop\n" "FLOC 8 24\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbFilmmaskViabot\n" "FLOC 12 24\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Filmmask Via\"\n" "FLOC 15 24\n" "ENDTEXT\n"))
;Masktable head
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 0\n" "FSIZE 37 3\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Manufcture;\"\n" "FLOC 27 1\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"BD\"\n" "FLOC 40 1\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Pkg\"\n" "FLOC 43 1\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Drw\"\n" "FLOC 47 1\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Ref\"\n" "FLOC 50 1\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Pin\"\n" "FLOC 53 1\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Via\"\n" "FLOC 56 1\n" "ENDTEXT\n"))
;Soldermask
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 0\n" "FSIZE 37 27\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Soldermask\"\n" "FLOC 27 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnSoldermaskTop\n" "FLOC 36 3\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnSoldermaskBot\n" "FLOC 36 5\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskBDtop\n" "FLOC 41 3\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskBDbot\n" "FLOC 41 5\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskPKGtop\n" "FLOC 44 3\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskPKGbot\n" "FLOC 44 5\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskDrwtop\n" "FLOC 47 3\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskDrwbot\n" "FLOC 47 5\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskPintop\n" "FLOC 53 3\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskPinbot\n" "FLOC 53 5\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskViatop\n" "FLOC 56 3\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSoldermaskViabot\n" "FLOC 56 5\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbSoldermaskTop\n" "FLOC 59 3\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbSoldermaskBot\n" "FLOC 59 5\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
;Pastemask
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 6\n" "FSIZE 37 21\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Pastemask\"\n" "FLOC 27 9\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnPastemaskTop\n" "FLOC 36 8\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnPastemaskBot\n" "FLOC 36 10\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskBDtop\n" "FLOC 41 8\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskBDbot\n" "FLOC 41 10\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskPKGtop\n" "FLOC 44 8\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskPKGbot\n" "FLOC 44 10\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskDrwtop\n" "FLOC 47 8\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskDrwbot\n" "FLOC 47 10\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskPintop\n" "FLOC 53 8\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskPinbot\n" "FLOC 53 10\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskViatop\n" "FLOC 56 8\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPastemaskViabot\n" "FLOC 56 10\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbPastemaskTop\n" "FLOC 59 8\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbPastemaskBot\n" "FLOC 59 10\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
;Assembly
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 11\n" "FSIZE 37 16\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Assembly\"\n" "FLOC 27 14\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnAssemblyTop\n" "FLOC 36 13\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnAssemblyBot\n" "FLOC 36 15\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbAssemblyPKGtop\n" "FLOC 44 13\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbAssemblyPKGbot\n" "FLOC 44 15\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbAssemblyReftop\n" "FLOC 50 13\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbAssemblyRefbot\n" "FLOC 50 15\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbAssemblyTop\n" "FLOC 59 13\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbAssemblyBot\n" "FLOC 59 15\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
;Display
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 16\n" "FSIZE 37 11\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Display\"\n" "FLOC 27 19\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnDisplayTop\n" "FLOC 36 18\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnDisplayBot\n" "FLOC 36 20\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDisplayPKGtop\n" "FLOC 44 18\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDisplayPKGbot\n" "FLOC 44 20\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDisplayReftop\n" "FLOC 50 18\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDisplayRefbot\n" "FLOC 50 20\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbDisplayTop\n" "FLOC 59 18\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbDisplayBot\n" "FLOC 59 20\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
;Silkscreen
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 21\n" "FSIZE 37 6\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Silkscreen\"\n" "FLOC 27 24\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnSilkscreenTop\n" "FLOC 36 23\n" "MENUBUTTON \"T\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnSilkscreenBot\n" "FLOC 36 25\n" "MENUBUTTON \"B\" 2 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenBDtop\n" "FLOC 41 23\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenBDbot\n" "FLOC 41 25\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenPKGtop\n" "FLOC 44 23\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenPKGbot\n" "FLOC 44 25\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenDrwtop\n" "FLOC 47 23\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenDrwbot\n" "FLOC 47 25\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenReftop\n" "FLOC 50 23\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbSilkscreenRefbot\n" "FLOC 50 25\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbSilkscreenTop\n" "FLOC 59 23\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbSilkscreenBot\n" "FLOC 59 25\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
;other
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 2 26\n" "FSIZE 24 13\n" "ENDGROUP\n"))
; fprintf(lstF strcat("TEXT \"Other:\"\n" "FLOC 4 34\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbLogo\n" "FLOC 3 28\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Logo\"\n" "FLOC 6 28\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbMoat\n" "FLOC 3 30\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Moat\"\n" "FLOC 6 30\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbPinNumber\n" "FLOC 12 28\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Pin Number\"\n" "FLOC 15 28\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbXsectionChart\n" "FLOC 12 30\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Xsection_chart\"\n" "FLOC 15 30\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbRteKIAll\n" "FLOC 3 32\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Rte KI/All\"\n" "FLOC 6 32\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbPkgKIAll\n" "FLOC 14 32\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Pkg KI/All\"\n" "FLOC 17 32\n" "ENDTEXT\n"))
;自定义
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 2 33\n" "FSIZE 24 6\n" "ENDGROUP\n"))
fprintf(lstF strcat("FIELD crbCustom1\n" "FLOC 3 35\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Custom1\"\n" "FLOC 6 35\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbCustom2\n" "FLOC 3 37\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Custom2\"\n" "FLOC 6 37\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbCustom3\n" "FLOC 14 35\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Custom3\"\n" "FLOC 17 35\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbCustom4\n" "FLOC 14 37\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Custom4\"\n" "FLOC 17 37\n" "ENDTEXT\n"))
;Drill
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 26 26\n" "FSIZE 21 13\n" "ENDGROUP\n"))
fprintf(lstF strcat("FIELD btnDrill\n" "FLOC 30 27\n" "MENUBUTTON \"A\" 3 2\n" "ENDFIELD\n"))
;fprintf(lstF strcat("FIELD ckbDrill\n" "FLOC 31 27\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Drill:\"\n" "FLOC 34 27\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbManNcdrillFigure\n" "FLOC 31 29\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Man\"\n" "FLOC 27 29\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Ncdrill_Figure\"\n" "FLOC 34 29\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbManNcdrillLegend\n" "FLOC 31 31\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Man\"\n" "FLOC 27 31\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Ncdrill_Legend\"\n" "FLOC 34 31\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbDrwNcdrillLegend\n" "FLOC 31 33\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Drw\"\n" "FLOC 27 33\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Ncdrill_Legend\"\n" "FLOC 34 33\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbPhotoplotOutline\n" "FLOC 31 35\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Photoplot Outline\"\n" "FLOC 34 35\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbDimension\n" "FLOC 31 37\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Dimension\"\n" "FLOC 34 37\n" "ENDTEXT\n"))
;DXF
fprintf(lstF strcat("GROUP \"\" g2\n" "FLOC 47 26\n" "FSIZE 16 13\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"New\"\n" "FLOC 48 27\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Old\"\n" "FLOC 52 27\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"< DXF >\"\n" "FLOC 56 27\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbOutline\n" "FLOC 49 29\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbOutlineo\n" "FLOC 52 29\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Outline\"\n" "FLOC 55 29\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbDxftopl\n" "FLOC 49 31\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDxftoplo\n" "FLOC 52 31\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Top_lo\"\n" "FLOC 55 31\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbDxftopn\n" "FLOC 49 33\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDxftopno\n" "FLOC 52 33\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Top_o\"\n" "FLOC 55 33\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbDxfbotl\n" "FLOC 49 35\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDxfbotlo\n" "FLOC 52 35\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Bot_lo\"\n" "FLOC 55 35\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbDxfbotn\n" "FLOC 49 37\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDxfbotno\n" "FLOC 52 37\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"Bot_o\"\n" "FLOC 55 37\n" "ENDTEXT\n"))
;Route
fprintf(lstF strcat("GROUP \"\" g1\n" "FLOC 63 0\n" "FSIZE 41 4\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Stack-up:\"\n" "FLOC 64 2\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD btnRoute\n" "FLOC 73 2\n" "MENUBUTTON \"Route\" 6 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnEtch\n" "FLOC 80 2\n" "MENUBUTTON \"Etch\" 6 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnCustom1\n" "FLOC 87 2\n" "MENUBUTTON \"Custom1\" 6 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnCustom2\n" "FLOC 94 2\n" "MENUBUTTON \"Custom2\" 6 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("GROUP \"\" g1\n" "FLOC 63 3\n" "FSIZE 41 43\n" "ENDGROUP\n"))
fprintf(lstF strcat("TEXT \"Etch\"\n" "FLOC 65 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Via\"\n" "FLOC 69 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Pin\"\n" "FLOC 72 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Drc\"\n" "FLOC 75 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Ant\"\n" "FLOC 78 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Rko\"\n" "FLOC 81 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Vko\"\n" "FLOC 84 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Cns\"\n" "FLOC 87 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("TEXT \"Boundary\"\n" "FLOC 90 4\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD ckbEtch\n" "FLOC 66 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbVia\n" "FLOC 69 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbPin\n" "FLOC 72 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbDrc\n" "FLOC 75 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbAnt\n" "FLOC 78 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbRko\n" "FLOC 81 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbVko\n" "FLOC 84 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbCns\n" "FLOC 87 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbBdy\n" "FLOC 90 6\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"All\"\n" "FLOC 96 6\n" "ENDTEXT\n"))
intId=0 intIdE=0 intIdN=0 intNc=0 SatckTop=0
curLayers=axlGetParam("paramLayerGroup:ETCH")->groupMembers
foreach( item curLayers
if(axlIsLayerNegative(strcat("ETCH/" item)) then intNc=intNc+1)
)
foreach( item curLayers
if(axlIsLayerNegative(strcat("ETCH/" item)) then
SatckTop=intIdN*2+8
intIdN=intIdN +1
else
SatckTop=(intIdE+intNc)*2+8+1
intIdE=intIdE +1
)
;SatckTop=intId*2+8
;axlUIWPrint(nil sprintf(nil "%d" SatckTop))
fprintf(lstF strcat("TEXT \"" sprintf(nil "%d" intIdE+intIdN) "\"\n" "FLOC 64 " sprintf(nil "%d" SatckTop) "\n" "ENDTEXT\n"))
fprintf(lstF strcat("FIELD crbEtch" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 66 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbVia" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 69 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbPin" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 72 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbDrc" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 75 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbAnt" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 78 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbRko" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 81 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbVko" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 84 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbCns" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 87 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD crbBdy" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 90 " sprintf(nil "%d" SatckTop) "\n" "COLOR 2 1\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD ckbStack" sprintf(nil "%d" intIdE+intIdN) "\n" "FLOC 93 " sprintf(nil "%d" SatckTop) "\n" "CHECKLIST \"\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("TEXT \"" item "\"\n" "FLOC 96 " sprintf(nil "%d" SatckTop) "\n" "ENDTEXT\n"))
)
;fprintf(lstF strcat("GROUP \"\" g1\n" "FLOC 63 " sprintf(nil "%d" intId*2+7) "\n" "FSIZE 41 " sprintf(nil "%d" 43-intId*2-4) "\n" "ENDGROUP\n"))
intId=intId+1
;界面可放26行
;color plan
fprintf(lstF strcat("GROUP \"\" g0\n" "FLOC 2 38\n" "FSIZE 61 8\n" "ENDGROUP\n"))
for(i 0 47
fprintf(lstF strcat("FIELD crbColor" sprintf(nil "%d" i) "\n" "FLOC " sprintf(nil "%d" modulo(i 16)*3+3) " " sprintf(nil "%d" 40+(i/16)*2) "\n" "COLOR 3 1\n" "ENDFIELD\n"))
)
fprintf(lstF strcat("FIELD ckbColorSetup\n" "FLOC 52 40\n" "CHECKLIST \"ColorSetup\"\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnPrev\n" "FLOC 52 42\n" "MENUBUTTON \"<<\" 3 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnNext\n" "FLOC 57 42\n" "MENUBUTTON \">>\" 3 2\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnColor\n" "FLOC 57 44\n" "MENUBUTTON \"Col\" 5 2\n" "ENDFIELD\n"))
/*
;tools
fprintf(lstF strcat("GROUP \"\" g1\n" "FLOC 63 41\n" "FSIZE 41 5\n" "ENDGROUP\n"))
fprintf(lstF strcat("FIELD btnExchangeTB\n" "FLOC 65 43\n" "MENUBUTTON \"Exchange T/B\" 12 3\n" "ENDFIELD\n"))
fprintf(lstF strcat("FIELD btnFlicker\n" "FLOC 77 43\n" "MENUBUTTON \"Flicker\" 12 3\n" "ENDFIELD\n")) ;闪烁
fprintf(lstF strcat("FIELD btnKeyMaps\n" "FLOC 89 43\n" "MENUBUTTON \"KeyMaps\" 12 3\n" "ENDFIELD\n"))
*/
fprintf(lstF "ENDTILE\n")
fprintf(lstF "ENDFORM\n")
close(lstF)
)
/*
axlGetParam("paramLayerGroup:ETCH")->groupMembers ;读取层面
修改层面颜色
q1=axlLayerGet("PACKAGE GEOMETRY/SILKSCREEN_TOP")
q1->color=63
axlLayerSet(q1)
*/
