CreatePrim "Circle", "NurbsCurve"
SetValue "circle.circle.radius", 2.000
SetValue "circle.Name", "circle_temp"
SetValue "circle_temp.crvlist.geom.subdivu", 8.000
Rotate , 90.000, 0.000, 0.000, siAbsolute, siLocal, siObj, siX
Duplicate , , 2, 1, 1, 0, 0, 1, 0, 1
Translate , 0.000, 4.009, 0.000, siRelative, siView, siObj, siXYZ
SetValue "circle_temp1.circle.radius", 0.010
AddToSelection "circle_temp", , True
ApplyOp "Loft", "circle_temp,circle_temp1", 3
SetValue ".Name", "G_cone"
SelectObj "circle_temp1"
SetValue "circle_temp1.Name", "cone_profile2"
SelectObj "circle_temp"
SetValue "circle_temp.Name", "cone_profile1"