NewScene ,false
CreatePrim "Cube", "MeshSurface"
SetSelFilter "Edge"
SelectGeometryComponents "cube.edge[7,8,LAST]"
ApplyOp "SetEdgeCreaseValueOp", "cube.edge[7,8,LAST]", 3, siPersistentOperation
SetValue "cube.polymsh.SetEdgeCreaseValue.CreaseValue", 4.606
for each  edge in selection(0).CreateSubComponent.ComponentCollection
        logmessage "Edge of index : " & edge.index & " as a crease value of " & edge.crease
next