转载渲染。

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
 global 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