AutoCAD Lisp to Pan a certain, stored distance.

[Michael.Traveller]

Hello everyone,

I work in HVAC and Pluming design where we have multiple floors, and l always have to pan a certain distance to jump between floors which are separated with a certain distance, "a".

Though, l am looking for a lisp which asks me the panning input distance.

Any help is greatly appreciated,

Thank you!

[Sea-Haven]

Just a side comment I wrote a reactor function so if I was to type U2400 it will return unknown command but the rest of the code says pan up or move 2400 up, decimals are supported as well. 

I have it for fillet circles and offsets. C123 o45 etc Happy to post.

[jogibson6PA7C]

I tried to edit this lsp to make it pan horizontally, but after changing all instances of vp to hp it still pans vertically?  I'm not sure what I'm doing wrong here.