Sript about select edges by orientation and top or bottom faces

[Anonymous]

I have to modeling over 6000 bricks. It is so confusing to draw all of them manually.
I record script which I present below

macroScript Macro2
 category:"DragAndDrop"
 toolTip:""
(
 subobjectLevel = 4
 actionMan.executeAction 0 "50027"
 $.EditablePoly.SetSelection #Face #{45..46}
 $.EditablePoly.buttonOp #Inset
 subobjectLevel = 2
 $.EditablePoly.SetSelection #Edge #{46}
 $.EditablePoly.SelectEdgeLoop ()
 $.EditablePoly.buttonOp #Chamfer
 subobjectLevel = 0
actionMan.executeAction 0 "40471"  -- MAX Script: Macro Recorder Toggle 
)

at line

$.EditablePoly.SetSelection #Face #{45..46}

I need select top and bottom polygon ( or only top polygon if it is impossible to select both at once )
and at line

$.EditablePoly.SetSelection #Edge #{46}

I need select top edge on the border.

So as I realise it isn't possible to use the same chamfer value in each action because of disappearing in code this values.
But maybe I don't know everything and It is so easy to achieve other requirements .

I present pictures in order to understand what I mean

Thanks in advance