Text placrd after dimensionline

[ki76EPG]

I am New to lisp, and would like to place a text fx 500 over a certain dimensionline.

I have a lisp placing the dimensionline, and can ask the user to pick the end where the text should be olaced, but can't get the lisp for placing the text "height" 

[devitg]

@ki76EPG          Please upload your lisp .

 or try this defun

'

(defun add-text	 (str pt heig)
  (if (= (type pt) 'LIST)
    (setq pt (vlax-3d-point pt)))
  (vla-addtext model Str pt Heig)
  )