How to Retrieve the value of dX and dY in the current window

Guys

 Thanks for the help, this is a very useful function that will see a lot of use across my entire layout team.  Your effort and expertise is greatly appreciated.   

I have brought all the pieces together and fixed a couple issues.  I also have a couple questions  (See end)

Functional Bug

needed absolute value when evaluating which term of delta variable was larger

Code Bug 

added =list( to the abGetDxDy.lastDelta variable in orthogonal and diagonal mode

;Procedure to set a variable that represents the relative X and Y for the last move, copy or stretch

 procedure(abGetDxDy(@optional (win hiGetCurrentWindow()))
 let((refPoint curPoint)
  refPoint=leGetRefPoint(geGetEditCellView(win))
  curPoint=hiGetCommandPoint(win)
  when(refPoint && curPoint && member(hiGetCurrentCmd(win) '("Move" "Copy" "Stretch"))
   case(hiGetCurrentWindow()~>snapMode
         ("anyAngle"
         abGetDxDy.lastDelta=mapcar('difference curPoint refPoint)
         )
         ("orthogonal"
           delta = mapcar('difference curPoint refPoint)
           if(abs(car(delta)) >= abs(cadr(delta))
           abGetDxDy.lastDelta=list(car(delta) 0.0 )
           abGetDxDy.lastDelta=list(0.0 cadr(delta))
           )
         )     
         ("diagonal"
           delta = mapcar('difference curPoint refPoint)
           if(abs(car(delta)) >= abs(cadr(delta))
           abGetDxDy.lastDelta=list(car(delta) 0.0 )
           abGetDxDy.lastDelta=list(0.0 cadr(delta))
           )    
         )
       )
  )
 )
)

;bindkey to make it work 

hiSetBindKey("Layout" "<Btn1down>EF" "abGetDxDy() mouseAddPt()")

 Now my questions. 

I have the variable working as I want inside of stretch/move commands.  However in my quest to get it working inside of copy I am having an issue.  With the bindkey below I need to press it TWICE to make it work ONCE and I get a warning in the icfb.  I think this comes back to my lack of understanding of enter function.  The reason I am trying to do it this way is because I want to maintain the selected set after the copy. 

Can you give me a hint on how to make this bindkey work?

hiSetBindKey("Layout" "Meta<Key>=" "leHiCopy() le0CopyForm->segSnapMode->value = \"anyAngle\" le0CopyForm->DeltaXField->value = car(abGetDxDy.lastDelta) le0CopyForm->DeltaYField->value = cadr(abGetDxDy.lastDelta) _leApplyDeltaCB (hiGetCurrentWindow()) " )

*WARNING* hiGetWindowStackPts: enter function is inactive

Thanks 

Clint

Guys

 Thanks for the help, this is a very useful function that will see a lot of use across my entire layout team.  Your effort and expertise is greatly appreciated.   

I have brought all the pieces together and fixed a couple issues.  I also have a couple questions  (See end)

Functional Bug

needed absolute value when evaluating which term of delta variable was larger

Code Bug 

added =list( to the abGetDxDy.lastDelta variable in orthogonal and diagonal mode

;Procedure to set a variable that represents the relative X and Y for the last move, copy or stretch

 procedure(abGetDxDy(@optional (win hiGetCurrentWindow()))
 let((refPoint curPoint)
  refPoint=leGetRefPoint(geGetEditCellView(win))
  curPoint=hiGetCommandPoint(win)
  when(refPoint && curPoint && member(hiGetCurrentCmd(win) '("Move" "Copy" "Stretch"))
   case(hiGetCurrentWindow()~>snapMode
         ("anyAngle"
         abGetDxDy.lastDelta=mapcar('difference curPoint refPoint)
         )
         ("orthogonal"
           delta = mapcar('difference curPoint refPoint)
           if(abs(car(delta)) >= abs(cadr(delta))
           abGetDxDy.lastDelta=list(car(delta) 0.0 )
           abGetDxDy.lastDelta=list(0.0 cadr(delta))
           )
         )     
         ("diagonal"
           delta = mapcar('difference curPoint refPoint)
           if(abs(car(delta)) >= abs(cadr(delta))
           abGetDxDy.lastDelta=list(car(delta) 0.0 )
           abGetDxDy.lastDelta=list(0.0 cadr(delta))
           )    
         )
       )
  )
 )
)

;bindkey to make it work 

hiSetBindKey("Layout" "<Btn1down>EF" "abGetDxDy() mouseAddPt()")

 Now my questions. 

I have the variable working as I want inside of stretch/move commands.  However in my quest to get it working inside of copy I am having an issue.  With the bindkey below I need to press it TWICE to make it work ONCE and I get a warning in the icfb.  I think this comes back to my lack of understanding of enter function.  The reason I am trying to do it this way is because I want to maintain the selected set after the copy. 

Can you give me a hint on how to make this bindkey work?

hiSetBindKey("Layout" "Meta<Key>=" "leHiCopy() le0CopyForm->segSnapMode->value = \"anyAngle\" le0CopyForm->DeltaXField->value = car(abGetDxDy.lastDelta) le0CopyForm->DeltaYField->value = cadr(abGetDxDy.lastDelta) _leApplyDeltaCB (hiGetCurrentWindow()) " )

*WARNING* hiGetWindowStackPts: enter function is inactive

Thanks 

Clint