oNM = Selection(0).name
Set Prop = ActiveSceneRoot.AddCustomProperty (“Rendermap_Sequence_”&oNM)
Set cStart = prop.AddParameter3 (“Start”,2,0)
Set cEnd = prop.AddParameter3 (“End”,2,100)
Set cName = prop.AddParameter3 (“Name”,8,”Enter A name for the Map”)
Inspectobj “Rendermap_Sequence_”&oNM, , ,4
oStart = cStart.Value
oEnd = cEnd.Value
oName = cName.value
Logmessage cStart.Value
Logmessage cEnd.Value
Logmessage cName.Value
DeleteObj “Rendermap_Sequence_”&oNM
for i = oStart to oEnd
SetValue “PlayControl.Current”, i
‘Translate , i, 0, 0, siAbsolute, siLocal, siObj, siXYZ, , , , , , , , , , 0
SetValue oNM&”.RenderMap.imagefilepath”, “F:\RnD Group\RnD_XSI\Render_Pictures\aaOcean_RenderMap\”&oName&”_0″&i&”.tga”
‘SetValue oNM&”.RenderMap.imagefilepath”, “F:\RnD Group\RnD_XSI\Render_Pictures\aaOcean_RenderMap\”&oName&”.tga”
‘
RegenerateMaps oNM&”.RenderMap”
next
