measure levels

[Anonymous]

;Lisp-Marking Levels.......
(defun c:LVL()
(setq p1(getreal"\Enter Datum Level:")
ptx(rtos p1 2 3 )
po(getpoint"\Pick Datum Point:")
idy(cadr po) )
(if(> p1 0)(COMMAND "text" "BL" po "200" "0" (strcat "+" ptx" m") "")
(COMMAND "text" "BL" po "200" "0" (strcat ptx" m") ""))
(while p1
(setq NT(getpoint "\n Pick Next Level:"))
(if NT
(progn
(setq y1 (cadr NT)
d(/(- y1 idy)1000 )
d1(+ d p1))
(setq txt (rtos d1 2 3) )))
(if(> d1 0)(COMMAND "text" "BL" nt "200" "0" (strcat "+" txt" m") "")
(COMMAND "text" "BL" nt "200" "0" (strcat txt" m") "")))
(Princ"Program written by 'Denson Davis'"))

[BeKirra]

Do you ask for help or something else?

Please specify your question with more details. Thank you.

If you are asking for help, please take note of "text" command format:

(command "text" "justify" "BL" InsertionPoint "TextHeightValue" "RotationAngleValue" "TextContent")

Without looking to your code details, you may remove the "" (in red) from your text command:

(COMMAND "text" "BL" po "200" "0" (strcat ptx" m") ""))