I would suspect it would be something real close to this...
;START OF SCRIPT------------------------------
;ABORT=TRUE
(if(="Model" (getvar "ctab"))
(command "-XREF"
"reload"
"*"
"-XREF"
"BIND"
"*"
"ERASE"
"Box"
"37,3.5"
"36.5,3.75"
""
"-LAYER"
"S"
"0"
"F"
"rev1"
"_No"
""))
(progn
(foreach laylist (vl-remove "Model"(layoutlist))
(setvar "ctab" laylist)
(command "-XREF"
"reload"
"*"
"-XREF"
"BIND"
"*"
"ERASE"
"Box"
"37,3.5"
"36.5,3.75"
""
"-LAYER"
"S"
"0"
"F"
"rev1"
"_No"
"")))
;END OF SCRIPT------------------------------
Cheers!
Bill