'
' This example demonstrates how to use the Model property
'
NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
set oModel = oRoot.AddModel( , "Harry" )
set oNull = oModel.AddNull
set oNull1 = oNull.AddNull
Application.LogMessage oNull1.Name & " is a member of the model " & oNull1.Model
Application.LogMessage oRoot.Model
Application.LogMessage oModel.Model
Application.LogMessage oNull.Model
Application.LogMessage oNull.Kinematics.Model
' Expected result:
'INFO : null1 is a member of the model Harry
'INFO : Scene_Root
'INFO : Scene_Root
'INFO : Harry
'INFO : Harry