''  This file downloaded from www.EdHarriss.com
''  
''  www.EdHarriss.com File Information:
''  
''    Script Name: LM_Rot_Trans_Marking.vbs v1.0
''    Author: Ludovick William Michaud
''    Update/Change this file at by sending e-mail to EdHarriss@EdHarriss.com
''

in_obj = GetValue("SelectionList")

RotTransMarking(in_obj)

sub RotTransMarking(in_obj)
	set lst = Getvalue("SelectionList")
	if lst <> "" then
		SetMarking "kine.local.pos.posx,kine.local.pos.posy,kine.local.pos.posz,kine.local.ori.euler.rotx,kine.local.ori.euler.roty,kine.local.ori.euler.rotz"
	else
		tmpobj = getprim("null","tmpnull")
		SetMarking "kine.local.pos.posx,kine.local.pos.posy,kine.local.pos.posz,kine.local.ori.euler.rotx,kine.local.ori.euler.roty,kine.local.ori.euler.rotz"
		deleteobj tmpobj
		selectobj lst
	end if
end sub