请问各位大师，切换层面的函数是什么函数啊。望各位大师知道下，非常感谢

Nick740492

请问各位大师，切换层面的函数是什么函数啊。望各位大师知道下，非常感谢

橡皮擦先生

axlSetAlias("EDA_switch_up" "EDA365_SwitchLayer nil")
axlSetAlias("EDA_switch_down" "EDA365_SwitchLayer")

axlCmdRegister( "EDA365_SwitchLayer" 'EDA365_SwitchLayer ?cmdType "interactive")
defun( EDA365_SwitchLayer (@optional (prev nil))
prog((lEtchLayer sCurLayerName iNextLayerNo sNextLayer)
        lEtchLayer = setof(layer axlGetParam("paramLayerGroup:ETCH")->groupMembers nequal(axlDBGetLayerType(strcat("ETCH/" layer)) "PLANE"))
        sCurLayerName = cadr(parseString(axlGetActiveLayer() "/"))
        if( member(sCurLayerName lEtchLayer) then
                if(prev then
                        iNextLayerNo = length(lEtchLayer) - length(member(sCurLayerName lEtchLayer))
                        when(iNextLayerNo < 1 iNextLayerNo = length(lEtchLayer))
                else
                        iNextLayerNo = length(lEtchLayer) - length(member(sCurLayerName lEtchLayer)) + 2
                        when(iNextLayerNo > length(lEtchLayer) iNextLayerNo = 1)
                )
        else
                iNextLayerNo = 1
        )
       
        sNextLayer = nthelem(iNextLayerNo lEtchLayer)
        axlMsgPut("Current Layer:%L" sNextLayer)
        axlVisibleDesign(nil)
    axlVisibleLayer( strcat("ETCH/" sNextLayer) t )
        axlVisibleLayer( strcat("PIN/" sNextLayer) t )
        axlVisibleLayer( strcat("VIA CLASS/" sNextLayer) t )
        axlVisibleLayer( strcat("DRC ERROR CLASS/" sNextLayer) t )
    axlVisibleLayer( "BOARD GEOMETRY/OUTLINE" t )
        axlSetActiveLayer(strcat("ETCH/" sNextLayer))
        axlUIWRedraw(nil)
)
)

橡皮擦先生

这有切换层的代码，你可以参考看看。

Nick740492

橡皮擦先生 发表于 2019-10-11 09:08
这有切换层的代码，你可以参考看看。

非常感谢大师的指导，谢谢！

selena19730105

橡皮擦先生 发表于 2019-10-11 09:08
这有切换层的代码，你可以参考看看。

非常感謝大師的指導，謝謝！