Mirroring top to buttom

hai,

I would like to mirror top to bottom i attached   the code but that code mirrored left to right any one please recorrect the code send me please i am new to skill

axlCmdRegister("mirror_box" 'mirror_box ?cmdType "interactive")
symDBID = nil
procedure(mirror_box()
let( (symDBID UC_mbMark UC_mbPopup notdone)

axlSetFindFilter(?enabled '("NOALL" "SYMBOLS" "VIAS" "CLINES" "LINES" "SHAPES" "TEXT")
                       ?onButtons '("SYMBOLS" "VIAS" "CLINES" "LINES" "SHAPES" "TEXT"))
;; Set the Control Panel to the Find tab
axlControlRaise('find)   

    UC_mbMark = axlDBTransactionStart()


UC_mbPopup = axlUIPopupDefine( nil (list
     (list "Oops" 'UC_mbOops)
    (list "Mirror" 'UC_mbMirror)
        (list "Done" 'UC_mbDone)
      (list "Cancel" 'UC_mbCancel)
     ))
    axlUIPopupSet(UC_mbPopup)

    notdone = t
    while(notdone
          symDBID = axlGetSelSet(axlSelect(?prompt "Select objects to mirror"))
        axlDBTransactionMark(UC_mbMark)
          if(symDBID then
            axlTransformObject(symDBID, ?mirror t)
          ); endif
    ); end while   
)); let and procedure

procedure(UC_mbMirror()      
    axlTransformObject(symDBID, ?mirror t)
    axlClearSelSet()
);end procedure


procedure(UC_mbOops()
    axlDBTransactionOops(UC_mbMark)
    axlClearSelSet()
); end procedure

procedure(UC_mbCancel()
      axlUIWPrint(nil "** All changes Cancelled ! **")
      axlDBTransactionRollback(UC_mbMark)
      notdone = nil
      axlClearSelSet()
      axlCancelEnterFun()
    axlUIPopupSet( nil)
); end procedure

procedure(UC_mbDone()
     axlUIWPrint(nil "Done")
     axlDBTransactionCommit(UC_mbMark)
     notdone = nil
      axlClearSelSet()
     axlFinishEnterFun()
    axlUIPopupSet( nil)

); end procedure