selectX0R()

Sub selectX0R()
	SetSelFilter "Object"
	set oSelection = GetValue( "SelectionList" )
	for i = 0 to (oSelection.Count - 1)
		select_point(oSelection(i))
	next
	SelectObj oSelection
	SetSelFilter "Vertex"
End sub
Sub select_point(oObj)
	Set oPoints = oObj.ActivePrimitive.Geometry.Points 
	flg = 0
	for i = 0 to oPoints.count - 1
		if round(oPoints(i).Position.x,8) > 0 then
			if flg = 0 then
				set oSubComponent = oObj.ActivePrimitive.Geometry.Points(i).subcomponent
				flg = 1
			Else
				oSubComponent.AddElement i
			End if
		end if
	next
	if flg = 1 then
		ActivateVertexSelTool
		SelectObj oSubComponent
	End if
End Sub