NewScene ,false
set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
SelectObj oCube
SetSelFilter "Edge"
SelectGeometryComponents "cube.edge[4,6]"
ApplyOp "MarkHardEdgeVertex", "cube.edge[4,6]", 3, siPersistentOperation
set oEdges = oCube.ActivePrimitive.Geometry.Edges
aIsHard = oEdges.IsHardArray
for i = 0 to ubound(aIsHard)
                if aIsHard(i) then
                        logmessage "Edge " & i & " is a hard edge."
                else
                        logmessage "Edge " & i & " is not a hard edge."
                end if 
next