'

' Use marking to key an null's X scaling, Y orientation and Z position 

'

dim oNull,m,p

set oNull = GetPrim("Null")

'

' Mark sclx, roty, and posz, then key the marked 

' parameters at the current frame

'

SetMarking "kine.local.sclx,kine.local.roty,kine.local.posz"

SaveKey

'

' Log the parameters that are marked (we prepend the 

' name of oNull to make the output easier to compare, 

' and because we know we only marked oNull's parameters).

'

for each m in GetMarking()

	logmessage oNull & "." & m & " is marked"

next

'

' Use the X3DObject.NodeAnimatedParameters property to 

' log the null's animated parameters.

'

for each p in oNull.NodeAnimatedParameters( siAnySource )

	logmessage p.FullName & " is animated"

next 

' Results of running this script:

'INFO : "null.kine.local.sclx is marked"

'INFO : "null.kine.local.roty is marked"

'INFO : "null.kine.local.posz is marked"

'INFO : "null.kine.local.posz is animated"

'INFO : "null.kine.local.roty is animated"

'INFO : "null.kine.local.sclx is animated"