bindkeys in IC1.6.5

Here is some code that will help you setup bindkeys to do this. I had to find some help on Source Link so that I could programmatically turn off the "Used Layers Only" on the layer palette. When this is on, if a layer like M2 is not used, we can't make it valid. So the pte commands below I pulled from Sourcelink.

You'll setup bindkeys like this:
hiSetBindKey("Layout" "<Key>1" "adjustLayers(1)")
hiSetBindKey("Layout" "<Key>2" "adjustLayers(2)")

You'll need to put together the list of layers you want for each setting.

procedure(adjustLayers(key)
  let((tfId layers lp)
    tfId = techGetTechFile(geGetEditCellView()~>lib)
    case(key
        (1   layers = list("con" "metal1" "via1"))
        (2   layers = list("via1" "metal2" "via2"))
        (3   layers = list("via2" "metal3"))
    )
    ;Turn off the "used layers" so that unused layers can appear in the list
    pteShowUsedLayers(nil)
    ;Set the metal layer valid and as the entry layer
    leSetLayerValid(list(cadr(layers) "drawing") t)
    leSetEntryLayer(list(cadr(layers) "drawing"))
    ;Make all other layers invisible
    leSetAllLayerVisible(nil)
    foreach(layer layers
        lp = techFindLayer(tfId "metal1")
        ;ensure the layer is valid
        foreach(purpose lp~>lps~>purpose
            leSetLayerValid(list(layer purpose) t)
            leSetLayerVisible(list(layer purpose) t)
        )
    )
    ;Turn on System layers for schematics (this includes text drawing)
    foreach(l setof(lyr tfId~>lps lyr~>number >= 207) 
        l~>visible = t
    )
    t
  ) ;let
) ;proc

procedure(pteShowUsedLayers(show @optional (swin hiGetSessionWindow(hiGetCurrentWindow())))
    _pteHiLayerShowUsedLPP(pteGetLayersWindow() nil)
) ;proc

;The following code was found on Sourcelink
;http://support.cadence.com/wps/mypoc/cos?uri=deeplinkmin:ViewSolution;solutionNumber=11711618;searchHash=94940eb4f4671f56ac55a49dba5988d8
procedure(pteGetWindowList(@optional (name "") (swin hiGetSessionWindow(hiGetCurrentWindow())))
  let(((handle strcat("pte" name)) lst )
    foreach(dwin reverse(hiGetWindowList('dockable))
        when(((hiGetSessionWindow(dwin) == swin) && eqv(0
                    strncmp(sprintf(nil "%L"
                            (dwin->hiHandle)
                        ) handle
                        strlen(handle)
                    )
                ))
            lst = cons(dwin lst)
        )
    )
    lst
  )
)

procedure(pteGetLayersWindow(@optional (swin hiGetSessionWindow(hiGetCurrentWindow())))
  let(((dwins pteGetWindowList("Layer" swin)))
        if(dwins car(dwins) nil)
  )
)

Derek

Here is some code that will help you setup bindkeys to do this. I had to find some help on Source Link so that I could programmatically turn off the "Used Layers Only" on the layer palette. When this is on, if a layer like M2 is not used, we can't make it valid. So the pte commands below I pulled from Sourcelink.

You'll setup bindkeys like this:
hiSetBindKey("Layout" "<Key>1" "adjustLayers(1)")
hiSetBindKey("Layout" "<Key>2" "adjustLayers(2)")

You'll need to put together the list of layers you want for each setting.

procedure(adjustLayers(key)
  let((tfId layers lp)
    tfId = techGetTechFile(geGetEditCellView()~>lib)
    case(key
        (1   layers = list("con" "metal1" "via1"))
        (2   layers = list("via1" "metal2" "via2"))
        (3   layers = list("via2" "metal3"))
    )
    ;Turn off the "used layers" so that unused layers can appear in the list
    pteShowUsedLayers(nil)
    ;Set the metal layer valid and as the entry layer
    leSetLayerValid(list(cadr(layers) "drawing") t)
    leSetEntryLayer(list(cadr(layers) "drawing"))
    ;Make all other layers invisible
    leSetAllLayerVisible(nil)
    foreach(layer layers
        lp = techFindLayer(tfId "metal1")
        ;ensure the layer is valid
        foreach(purpose lp~>lps~>purpose
            leSetLayerValid(list(layer purpose) t)
            leSetLayerVisible(list(layer purpose) t)
        )
    )
    ;Turn on System layers for schematics (this includes text drawing)
    foreach(l setof(lyr tfId~>lps lyr~>number >= 207) 
        l~>visible = t
    )
    t
  ) ;let
) ;proc

procedure(pteShowUsedLayers(show @optional (swin hiGetSessionWindow(hiGetCurrentWindow())))
    _pteHiLayerShowUsedLPP(pteGetLayersWindow() nil)
) ;proc

;The following code was found on Sourcelink
;http://support.cadence.com/wps/mypoc/cos?uri=deeplinkmin:ViewSolution;solutionNumber=11711618;searchHash=94940eb4f4671f56ac55a49dba5988d8
procedure(pteGetWindowList(@optional (name "") (swin hiGetSessionWindow(hiGetCurrentWindow())))
  let(((handle strcat("pte" name)) lst )
    foreach(dwin reverse(hiGetWindowList('dockable))
        when(((hiGetSessionWindow(dwin) == swin) && eqv(0
                    strncmp(sprintf(nil "%L"
                            (dwin->hiHandle)
                        ) handle
                        strlen(handle)
                    )
                ))
            lst = cons(dwin lst)
        )
    )
    lst
  )
)

procedure(pteGetLayersWindow(@optional (swin hiGetSessionWindow(hiGetCurrentWindow())))
  let(((dwins pteGetWindowList("Layer" swin)))
        if(dwins car(dwins) nil)
  )
)

Derek