Hi Gordon
try this
(defun c:shadow-glass-layers-to-back ( / ss1 ss2 )
(setq ss1 (ssget "x" '((8 . "shadow"))) )
(setq ss2 (ssget "x" '((8 . "win-glz"))) )
(command "draworder" ss1 "" "back" )
(command "draworder" ss2 "" "back" )
(command "regen")
(princ)
) ; defun
(defun c:sg () (c:shadow-glass-layers-to-back))
Cheers
Henrique