'
' 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"
|