帮朋友修改的小工具

rollout renderpictrue "render" width:162 height:300
(
   spinner spn2 "" pos:[70,80] width:46 height:16 range:[0,10000,640] type:#integer scale:1
   spinner spn3 "" pos:[70,100] width:46 height:16 range:[0,10000,480] type:#integer scale:1
   button btn1 "渲染" pos:[7,129] width:66 height:33
   button btn2 "保存" pos:[7,40] width:50 height:33
   dropDownList BitmapType "格式：" pos:[72,27] width:47 height:41 items:#(".jpg", ".tga", ".png", ".tif")
   groupBox grp1 "渲染工具" pos:[4,9] width:130 height:163
   label lbl2 "宽：" pos:[17,81] width:41 height:14
   label lbl3 "高：" pos:[16,101] width:49 height:13

   Local Getfullpath = ""

   on btn2 pressed do (Getfullpath=getSavepath()) ---取保存路径
   on spn2 changed val do (spn2.value = val)
   on spn3 changed val do (spn3.value = val)
  
  on btn1 pressed  do
  (
        for i = 1 to 8 do
        (
              Tempobject=$标准代理
              cam=$标准摄像机   
              rotate Tempobject (angleaxis -45 [0,0,1])
              savepath =(Getfullpath+"\\"+"小岛"+("0"+i as string)+BitmapType.selected)
              rendertextrue = render  outputwidth:spn2.value outputheight:spn3.value outputfile:savepath
              save rendertextrue  
              close rendertextrue 
         )
    )
 )
 createdialog renderpictrue  140 180