' 

'	This example displays the full name of an X3DObject, its primitive 

'	and its geometry and compares these values to the simple name

'

set oObj = ActiveProject.ActiveScene.Root.AddGeometry( "Disc", "MeshSurface" )

getNameInfo oObj

getNameInfo oObj.Kinematics

getNameInfo oObj.Kinematics.Global

function getNameInfo( in_object )

	Application.LogMessage "Class = " & ClassName( in_object )

	Application.LogMessage "Name = " & in_object.Name

	Application.LogMessage "FullName = " & in_object.FullName

	Application.LogMessage "-----------------------------"

end function

' Output of above script:

'INFO : "Class = X3DObject"

'INFO : "Name = disc"

'INFO : "FullName = disc"

'INFO : "-----------------------------"

'INFO : "Class = Kinematics"

'INFO : "Name = Kinematics"

'INFO : "FullName = disc.kine"

'INFO : "-----------------------------"

'INFO : "Class = KinematicState"

'INFO : "Name = Global Transform"

'INFO : "FullName = disc.kine.global"