hiSetBindKey("layout" "Shift<Key>4" "LayerChange()")

procedure(LayerChange()

let((m1_lpp m1_label_lpp m2_lpp m2_label_lpp m3_lpp m3_label_lpp m4_lpp m4_label_lpp)

m1_lpp=list("MET1" "drawing")

m1_label_lpp=list("MET1" "text")

m2_lpp=list("MET2" "drawing")

m2_label_lpp=list("MET2" "text")

m3_lpp=list("MET3" "drawing")

m3_label_lpp=list("MET3" "text")

m4_lpp=list("MET4" "drawing")

m4_label_lpp=list("MET4" "text")

foreach(layer_sel geGetSelSet()

when(layer_sel~>lpp

cond(

(layer_sel~>lpp==m1_lpp layer_sel~>lpp=m2_lpp)

(layer_sel~>lpp==m1_label_lpp layer_sel~>lpp=m2_label_lpp)

(layer_sel~>lpp==m2_lpp layer_sel~>lpp=m3_lpp)

(layer_sel~>lpp==m2_label_lpp layer_sel~>lpp=m3_label_lpp)

                        (layer_sel~>lpp==m3_lpp layer_sel~>lpp=m4_lpp)

(layer_sel~>lpp==m3_label_lpp layer_sel~>lpp=m4_label_lpp)

                        (layer_sel~>lpp==m4_lpp layer_sel~>lpp=m1_lpp)

(layer_sel~>lpp==m4_label_lpp layer_sel~>lpp=m1_label_lpp)

);cond

);when

);foreach

);let

);procedure