MaxScript Spinner/progressBar

rollout unnamedRollout "Untitled" width:162 height:235
(
 spinner spn1 "球体半径" pos:[18,14] width:119 height:16

 spinner spn2 "球体数目" pos:[15,49] width:119 height:16 type:#integer
 progressBar pb1 "进度条" pos:[12,97] width:123 height:18 color:(color 255 0 0)
 button btn4 "随机移动" pos:[16,142] width:110 height:25 type:#integer

 on spn1 changed val do
 (
  for a in selection where classof a == sphere do a.radius = spn1.value
 )
 on spn2 changed val do
 (
  c=#()
  for a in selection where classof a==sphere do append c a
  spn2.value = c.count
 )
 on btn4 pressed  do
 (
  for a in selection do
    for t=0 to 100 by 1 do
      animate on
        at time t
        (
          a.pos.x=(t*(random 1.0 5.0))
          pb1.value=t
        )
    pb1.value=0
 )
)

createdialog unnamedRollout