Hi every one!
I am working on road cross section and using this lisp to show the levels and offset from center line, I have to keep vertical scal double to horizantal scale so when I use this it show double value of Y-axis I want change in this lisp that it shows the half value of Y-axis any body can help thanks
 
uploads/381267/LEVEL_Y-X.lsp

If I understand what you're asking, try changing this line:
 (setq north (strcat " " (rtos (cadr pt2) 2 3)))
to this:
 (setq north (strcat " " (rtos (/ (cadr pt2) 2) 2 3)))

Thank you very much Kent cooper I check it little bit it is working properly  i will check more then i will give comments 

Thanks again Mr.Kent cooper I check it, it is working perfectly

You're welcome -- it's good to hear that I understood correctly what you were trying to do.