;;;modify RIM ELEV. text to match SDSK point value (rnd to 10th).
;;;Requires SDSK point block with correct elevation and
;;;existing RIM ELEV. text string
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-2-95
;;;>		   EDITED: 08-18-1999
;;;
(defun mhel ()
  (while
    (not
      (setq mh_pt (nentselp "\nSelect manhole SDSK point. "))
    )
  )
  (setq lprec (getvar"luprec"))
  (setvar "luprec" 2)
  (setq nxtent (entget(entnext(car mh_pt))))
  (while
    (not
      (eq (cdr(assoc 0 nxtent)) "SEQEND")
    )
    (setq nxtent (entget(entnext(cdr(assoc -1 nxtent)))))
  )
  (setq insent (cdr(assoc -2 nxtent))
        mhelev (atof(cdr(assoc 1 (entget(entnext insent)))))
        vrtoff (ureal 1 "" "Distance above point elevation? (0 = @elev.)" (if vrtoff vrtoff 0))
        mhelev (rtos(/(fix(*(+ mhelev vrtoff)10))10.0))
  )
  (setq rim_txt (strcat "RIM ELEV. " mhelev "'"))
  (setvar "luprec" lprec)
  (princ)
)