NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
set oSphere = oRoot.AddGeometry( "Sphere", "NurbsSurface" )
set oCube = oRoot.AddGeometry( "Cube", "NurbsSurface" )
for each oChild in oRoot.Children
Application.LogMessage oChild.Name
next
Application.LogMessage "Remove"
oSphere.RemoveFromParent
for each oChild in oRoot.Children
Application.LogMessage oChild.Name
next
' Expected results:
'INFO : Camera_Root
'INFO : light
'INFO : sphere
'INFO : cube
'INFO : Remove
'INFO : Camera_Root
'INFO : light
'INFO : cube
'INFO : sphere
|