CreatePrim "Arc", "NurbsCurve"

CreatePrim "Cube", "NurbsSurface"

CreatePrim "Cylinder", "NurbsSurface"

AddToSelection "arc,cube,cylinder", , True

set sel = Application.Selection

sel.Clear

for each i in sel

logmessage i.name

next