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