How to set Pin text layer base on LSW select layer

Dear,

I want to set a auto pin text layer while create pin on different metal layer. 

For example, create pin use "M1:pin" and its pin text layer is "M1:net", since there is a case different layer to one Pin text case. So I can't simply to use "Same As Pin" option in "Set Pin Label Text Style“ form. 

Below  is my code, but it is not work on my request. Could you help to let me know the problem?

procedure(setPinText()

 let((layer purpose)

     case(leGetEntryLayer()

             ('("M1" "pin")  layer = "M1" purpose = "net")

             ('("M1_Match" "pin")  layer = "M1" purpose = "net")

             ('("M2" "pin")  layer = "M2" purpose = "net")

             ('("M2_Match" "pin")  layer = "M2" purpose = "net")

             ('("PAA" "pin")  layer = "AA" purpose = "net")

             ('("NAA" "pin")  layer = "AA" purpose = "net")

      );case

hiEnqueueCmd("le0PinSetNameDisplayForm->pinTDLayerName->value = layer")

hiEnqueueCmd("le0PinSetNameDisplayForm->pinTDPurposeName->value = purpose")

leHiCreateChoice0fPin()

);let

);procedure

hiSetBindKey("layout" "Alt<key>p" "setPinText()")

After my test, it can active change on leiDisplayPinNameDisplayForm(), but modied value can't keep to work on create pin form. 

My tool version is IC618. thanks for your help！