Trying to make a custom bindkey for Virtuoso to work - Select by line but for certain object types only

Hi Cadence Support,

I am trying to create a custom bindkey for VXL that will do the following
     1. Enable Select by Line, then
     2. Disable selection for all object type except: via, pin, label, path & pathseg.

So I come up with the following, but it is not working.
Please help me to make this work.

Thanks.

hiSetBindKeys( "Layout" list(

;; This contains the default bindkeys etc etc
;; I just deleted the key that will correspond to my custom bindkey below
     )
)

hiSetBindKey("Layout" "None<Key>`" "SelectbyLine()")
                        procedure( SelectbyLine()
                                geSelectByLine()
                                drdToggleSmartSnapMode()
                                
                                pteSetSelectable("Instances" nil "Objects")
                                pteSetSelectable("Shapes;Circle/Ellipse" nil "Objects")
                                pteSetSelectable("Shapes;Donut" nil "Objects")
                                pteSetSelectable("Polygon" nil "Objects")
                                pteSetSelectable("Shapes;Rectangle" nil "Objects")
                                pteSetSelectable("Shapes;Other Shapes" nil "Objects")
                                pteSetSelectable("Mosaic" nil "Objects")
                                pteSetSelectable("Rulers" nil "Objects")
                                pteSetSelectable("Markers" nil "Objects")
                                pteSetSelectable("Fluid Guardring" nil "Objects")
                                pteSetSelectable("Fluid Shapes" nil "Objects")
                                pteSetSelectable("Fluid Groups" nil "Objects")
                                pteSetSelectable("Boundaries" nil "Objects")
                                pteSetSelectable("Soft Blocks" nil "Objects")
                                pteSetSelectable("Blockages" nil "Objects")
                                pteSetSelectable("Symmetric Axes" nil "Objects")
                                pteSetSelectable("Rows" nil "Objects")
                                pteSetSelectable("Glyph" nil "Objects")
                                
                                pteSetSelectable("Pins" t "Objects")
                                pteSetSelectable("Vias" t "Objects")
                                pteSetSelectable("Label" t "Objects")
                                pteSetSelectable("Shapes;Path" t "Objects")
                                pteSetSelectable("Shapes;PathSeg" t "Objects")
                                )