Lights Off

-- create interface
myobj = undefined
rollout lightoff "Lights Off"
(
button picklight "Select Lights"
spinner offby "Off by" range:[2,200,2] scale:1
button offbtn "Off"
button undobtn "Undo Off"
on picklight pressed do
(
myobj = selectByName title:"Select Lights"
)

-- press off button
on offbtn pressed do
(
if myobj != undefined do
(


-- light off
select myobj
for i in 1 to selection.count by offby.value do
(
select myobj[i]
$.enabled = off
)

)
)

-- press undo button
on undobtn pressed do
(
if myobj != undefined do
(

-- undo light off
select myobj
for i in 1 to selection.count by offby.value do
(
select myobj[i]
$.enabled = on
)

)
)


)
createdialog lightoff width:180