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