move view constantly down With constant number

Good morning world, Could somebody help me with a lisp;

That's the problem : I have to make a check of reinforcement , so I have to look at paper and in autocad , but I have to pan the view a lot of times down ;

The reason is to move from present view down with a constant unit for example 45000, the number could be inscripted in lisp , I mean not to introduce it manualy in autocad.

Thanks in advance !

Try something like this ;

(command "_.-pan" '(0. 0. 0.) (polar '(0. 0. 0.) (* pi 1.5) 45000))

Or just:

(defun c:pd nil (command "_.pan" "_non" '(0 0) "_non" '(0 -45000)) (princ))

It works perfect , phanks again !!!!!!

Have I nice day !!!