changerlayer.il allegro的il

when(axlGetAlias("Up") != "UP";此处修改向上翻页快捷键 如"Up" => "+"
/* ========================================================= */
        axlSetFunckey("Up" "skill UP" t);此处修改向上翻页快捷键 如"Up" => "+"
/* ========================================================= */
);when
when(axlGetAlias("Down") != "DOWN";此处修改向下翻页快捷键 如"Down" => "-"
/* ========================================================= */
        axlSetFunckey("Down" "skill DOWN" t);此处修改向下翻页快捷键如"Down" => "-"
/* ========================================================= */
);when
axlCmdRegister("DOWN" 'DOWN)
axlCmdRegister("UP" 'UP)
defun(DOWN ()
        EC_layers = axlGetParam("paramLayerGroup:ETCH")->groupMembers
        sum = length(EC_layers)
        ACT_layer = substring(axlGetActiveLayer() 6 20)
by_ck = 0
        prog( ()
                for(i 0 sum-1
                        when(ACT_layer == nth(i EC_layers) 
by_ck = i 
                                return(by_ck)
                        );when
                );for
        );prog 获取索引 兼容15.x
        
        
        if(by_ck == sum - 1
                then
                        NXT_layer = nth(0 EC_layers)
                else
                        NXT_layer = nth(by_ck+1 EC_layers)
        );
        axlSetActiveLayer(sprintf(nil "ETCH/%s" NXT_layer))
         axlVisibleDesign(nil)
        axlVisibleLayer(sprintf(nil "ETCH/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "VIA CLASS/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "PIN/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "DRC ERROR CLASS/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "ROUTE KEEPOUT/%s" NXT_layer) t)
        axlVisibleLayer("ROUTE KEEPOUT/ALL" t)
        axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
        axlVisibleUpdate(t)

);defun
defun(UP ()
        EC_layers = axlGetParam("paramLayerGroup:ETCH")->groupMembers
        sum = length(EC_layers)
        ACT_layer = substring(axlGetActiveLayer() 6 20)
	by_ck = 0
        prog( ()
                for(i 0 sum-1
                        when(ACT_layer == nth(i EC_layers) 
				by_ck = i 
                                return(by_ck)
                        );when
                );for
        );prog 获取索引 兼容15.x
        
        if(by_ck == 0 
                then
                        NXT_layer = nth((sum-1) EC_layers)
                else
                        NXT_layer = nth((by_ck-1) EC_layers)
        );
        axlSetActiveLayer(sprintf(nil "ETCH/%s" NXT_layer))
        axlVisibleDesign(nil)
        axlVisibleLayer(sprintf(nil "ETCH/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "VIA CLASS/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "PIN/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "DRC ERROR CLASS/%s" NXT_layer) t)
        axlVisibleLayer(sprintf(nil "ROUTE KEEPOUT/%s" NXT_layer) t)
        axlVisibleLayer("ROUTE KEEPOUT/ALL" t)
        axlVisibleLayer("BOARD GEOMETRY/OUTLINE" t)
        axlVisibleUpdate(t)

);defun