Мне нужен скрипт, записывающий в txt файл инфу по расположению моделей в сцене

object1 [12.23,45.56,78.9] [0,0,-135]
object2 [21.32,54.65,87.9] [0,0,90]
object3 [1,1,1] [0,0,0]

igorznagВ новой сцене создайте один объект чайник (Teapot), установите какие-нибудь координаты положения, вращения.
Сохраните его координаты с помощью скрипта из этой ТЕМЫ. Проверьте если координаты правильно сохраняются.

outFile = getSaveFileName caption:"Safe coords.:" types:"Coords. list (*.txt)|*.txt|All Files (*.*)|*.*|" 

if outFile != undefined then 
( 
outFile = createfile outFile 
for i in objects do 
( 
 pos2 = i.pos 
 rot1 = i.rotation as eulerAngles 
 rot2 = [rot1.x,rot1.y,rot1.z] 

 format "% %\n" pos2 rot2 to:outFile 
); 
close outFile 
);

[485.827,2235.43,354.331] [0,0,135]

fn precision_3 n= (return (floor (n*1000))/1000)
if(selection.count>0)then
(
outFile = getSaveFileName caption:"Save coords.:" types:"Coords. list (*.txt)|*.txt|All Files (*.*)|*.*|" 
if outFile != undefined then 
( 
outFile = createfile outFile 
for i in selection do 
(
obj_name=i.name; obj_pos=[precision_3 i.pos.x,precision_3 i.pos.y, precision_3 i.pos.z]
if(units.DisplayType==#Metric and units.MetricType==#Meters)then
(
s=(units.formatValue i.pos.x); s_array=filterString s "m";obj_pos_x=s_array[1];
s=(units.formatValue i.pos.y); s_array=filterString s "m";obj_pos_y=s_array[1];
s=(units.formatValue i.pos.z); s_array=filterString s "m";obj_pos_z=s_array[1];
obj_pos="["+obj_pos_x+","+obj_pos_y+","+obj_pos_z+"]";
)
obj_rot_x=precision_3 i.rotation.x_rotation; obj_rot_y=precision_3 i.rotation.y_rotation;
obj_rot_z=precision_3 i.rotation.z_rotation; obj_rot=[obj_rot_x,obj_rot_y,obj_rot_z];
format "% % %\n" obj_name obj_pos obj_rot to:outFile 
); 
close outFile 
);
);

Teapot001 [-0,607,1,618,5,1] [0,0,-135]

Teapot001 [-0.607,1.618,5.1] [0,0,-135]

fn sep n= (f=filterString n ",";if(f.count==2)then n=f[1]+"."+f[2];return n;)
fn precision_3 n= (return (floor (n*1000))/1000)
if(selection.count>0)then
(
outFile = getSaveFileName caption:"Save coords.:" types:"Coords. list (*.txt)|*.txt|All Files (*.*)|*.*|" 
if outFile != undefined then 
( 
outFile = createfile outFile 
for i in selection do 
(
obj_name=i.name; obj_pos=[precision_3 i.pos.x,precision_3 i.pos.y, precision_3 i.pos.z]
if(units.DisplayType==#Metric and units.MetricType==#Meters)then
(
s=(units.formatValue i.pos.x); s_array=filterString s "m";obj_pos_x=sep s_array[1];
s=(units.formatValue i.pos.y); s_array=filterString s "m";obj_pos_y=sep s_array[1];
s=(units.formatValue i.pos.z); s_array=filterString s "m";obj_pos_z=sep s_array[1];
obj_pos="["+obj_pos_x+","+obj_pos_y+","+obj_pos_z+"]";
)
obj_rot_x=precision_3 i.rotation.x_rotation; obj_rot_y=precision_3 i.rotation.y_rotation;
obj_rot_z=precision_3 i.rotation.z_rotation; obj_rot=[obj_rot_x,obj_rot_y,obj_rot_z];
format "% % %\n" obj_name obj_pos obj_rot to:outFile 
); 
close outFile 
);
);

Teapot001 [-0.607,1.618,5.1] [0.70710677,0,0,0.70710677]

fn sep n= (f=filterString n ",";if(f.count==2)then n=f[1]+"."+f[2];return n;) 
fn precision_3 n= (return (floor (n*1000))/1000) 
if(selection.count>0)then 
( 
outFile = getSaveFileName caption:"Save coords.:" types:"Coords. list (*.txt)|*.txt|All Files (*.*)|*.*|" 
if outFile != undefined then 
( 
outFile = createfile outFile 
for i in selection do 
( 
obj_name=i.name; obj_pos=[precision_3 i.pos.x,precision_3 i.pos.y, precision_3 i.pos.z] 
if(units.DisplayType==#Metric and units.MetricType==#Meters)then 
( 
s=(units.formatValue i.pos.x); s_array=filterString s "m";obj_pos_x=sep s_array[1]; 
s=(units.formatValue i.pos.y); s_array=filterString s "m";obj_pos_y=sep s_array[1]; 
s=(units.formatValue i.pos.z); s_array=filterString s "m";obj_pos_z=sep s_array[1]; 
obj_pos="["+obj_pos_x+","+obj_pos_y+","+obj_pos_z+"]"; 
) 

obj_rot_x=precision_3 i.rotation.x; obj_rot_y=precision_3 i.rotation.y; 
obj_rot_z=precision_3 i.rotation.z; obj_rot_w=precision_3 i.rotation.w; 
obj_rot=[obj_rot_x,obj_rot_y,obj_rot_z,obj_rot_w]; 
format "% % %\n" obj_name obj_pos obj_rot to:outFile 
); 
close outFile 
); 
);