Camera export (2)

[batboy]

I am a maya user who is attempting to do a project with a xsi user. We would like to export camera data from xsi to maya. I've already written a script in maya to import camera data from a text file in the format tx ty tz rx ry rz aperture focal_length. Does any one know of a simple script to print out an xsi camera into a text file? Or more generally is this a simple script to write in xsi? Thanks in advance.

[mazer]

Try this:

Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub

Holger Sch

[batboy]

Many thanks! For everyone here's what I came up with:

Dim fso, txtfile
dim tx, ty, tz
dim rx, ry, rz
dim sp,cam,frame,fov

cam="camera1"
file_location = "c:"

sp = " "
data_file=cam & "_data.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile(file_location&""&data_file, True)

for i = 1 to 30
frame = i
tx=GetValue (cam & ".kine.local.posx",frame)
ty=GetValue (cam & ".kine.local.posy",frame)
tz=GetValue (cam & ".kine.local.posz",frame)

rx=GetValue (cam & ".kine.local.rotx",frame)
ry=GetValue (cam & ".kine.local.roty",frame)
rz=GetValue (cam & ".kine.local.rotz",frame)

fov=GetValue (cam & ".camera.fov",frame)

txtfile.WriteLine(tx&sp&ty&sp&tz&sp&rx&sp&ry&sp&rz&sp&fov)

next

txtfile.Close

Field of view can be converted to focal length and aperture(frame_width) with the following formula (from Renderman Companion)

field_of_view=2*atan((frame_width/2)/focal_length)

Happy scripting!

In reply to:
Try this:

Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End SubHolger Sch