NewScene ,false
set oCube = ActiveSceneRoot.AddGeometry("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
aCreases = oCube.ActivePrimitive.Geometry.Edges.CreaseArray
for i = 0 to ubound(aCreases)
        logmessage "Edge of index : " & i & " as a crease value of " & aCreases(i)
next