rollout renderpictrue "render" 162 height:300
(
spinner spn2 "" pos:[70,80] 46 height:16 range:[0,10000,640] type:#integer scale:1
spinner spn3 "" pos:[70,100] 46 height:16 range:[0,10000,480] type:#integer scale:1
button btn1 "渲染" pos:[7,129] 66 height:33
button btn2 "保存" pos:[7,40] 50 height:33
dropDownList BitmapType "格式：" pos:[72,27] 47 height:41 items:#(".jpg", ".tga", ".png", ".tif")
groupBox grp1 "渲染工具" pos:[4,9] 130 height:163
label lbl2 "宽：" pos:[17,81] 41 height:14
label lbl3 "高：" pos:[16,101] 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 outputspn2.value outputheight:spn3.value outputfile:savepath
save rendertextrue
close rendertextrue
)
)
)
createdialog renderpictrue 140 180