;;;
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-19-95
;;;>		   EDITED: 11-13-1997
;;;
(DEFUN C:MMKR ( / );adjv tele chrs nsta
  (setq luprc (getvar"luprec"))
  (setq ndpl 2);(uint 1 "" "Number of decimal places " ndpl))
  (setvar"luprec" ndpl)
  (setq adjv (distof(ustr 1 "\nMile marker? " (if adjv (rtos (+ adjv 0.01)) "") nil)))
  (while (and
           (setq tele (entsel (strcat "\nSelect number to change to " (rtos adjv 2 2) " ")))
           (eq(cdr(assoc 2(entget(car tele))))"DATPT")
         )
    (setq ename (car tele))


    (while (/=(cdr(assoc 0(entget ename)))"SEQEND")
      (setq ename (entnext ename))
      (if(and(=(cdr(assoc 0(entget ename)))"ATTRIB")(=(cdr(assoc 2(entget ename)))"DBLPOSTMILE"))
        (progn
          (setq elem (entget ename))
;          (setq tstr (cdr(assoc 1 elem)))
;          (if (eq (substr tstr (strlen tstr))"'")
            (setq nstr (rtos adjv))
;            (setq nstr (rtos(+(atof tstr)adjv)))
;          )
          (setq elem
            (subst (cons 1 nstr)
                   (assoc 1 elem)
                   elem
            )
          );setq
          (entmod elem)
          (entupd (cdr(assoc -1 elem)))
      ;  (COMMAND)
        )
      )
    )
  );while
  (setvar "luprec" luprc)
);defun