NewScene , false
set oRoot = Application.ActiveProject.ActiveScene.Root
set oSphere = oRoot.AddGeometry( "Sphere", "NurbsSurface" )
set oNull1 = oSphere.AddNull()
set oNull2 = oSphere.AddNull()
set oNull3 = oSphere.AddNull()
set oNull4 = oSphere.AddNull()
for each oChild in oSphere.Children
Application.LogMessage oChild.Name
next
Application.LogMessage "Remove a null "
oSphere.RemoveChild( oNull1 )
for each oChild in oSphere.Children
Application.LogMessage oChild.Name
next
' Expected results:
'INFO : null
'INFO : null1
'INFO : null2
'INFO : null3
'INFO : Remove a null
'INFO : null1
'INFO : null2
'INFO : null3 |