'

' 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