CreatePrim "Arc", "NurbsCurve" SetValue ".Name", "G_profile" SetValue ".arc.startangle", 90.000 SetValue ".arc.endangle", 270.000 SetValue ".crvlist.geom.subdivu", 8.000 ApplyOp "Revolution", "", 3 SetValue ".surfmsh.revolution.subdivu", 14 SetValue ".surfmsh.revolution.subdivu", 8.000 SetValue ".surfmsh.revolution.subdivv", 8.000 SetValue ".Name", "G_sphere" SelectObj ".surfmsh.revolution"