快速切换层面的skill

cc毛毛虫 · 发表于 2022-6-20 11:29

EDA365欢迎您登录！

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

x

以下源码是可以按空格快速按顺序切换单个层面的skill,我想要在走线命令下运行这个skill，请问大神们我应该如何修改源码

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)
)
)