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