;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1997-2001
;;;>		   EDITED: 08-18-1999
;;;
(defun c:ulintbl ( / numtag nument brgent lenent numtxt_lst brgtxt_lst lentxt_lst)
  (setq tagss (ssget '((0 . "INSERT")(2 . "LIN_NUM"))))
  (setq sslen (sslength tagss))
  (setq count 0)
  (while (< count sslen)
    (setq nument (entget (ssname tagss count))
          nxtent nument)
    (while (/=(cdr(assoc 0 nxtent))"SEQEND")
      (cond ((=(cdr(assoc 2 nxtent))"LINNUM")
              (setq numstr (cdr(assoc 1 nxtent))))
            ((=(cdr(assoc 2 nxtent))"LINBRG")
              (setq brgstr (cdr(assoc 1 nxtent))))
            ((=(cdr(assoc 2 nxtent))"LINLEN")
              (setq lenstr (cdr(assoc 1 nxtent))))
      )
      (setq nxtent (entget(entnext(cdar nxtent))))
    )
;    (if numstr
;      (if (and
;            (setq selent (entsel "\nSelect Text to update: "))
;            (eq(cdr(assoc 0(entget(car selent))))"TEXT")
;          )
;        (progn
;          (setq numtxt_lst (entget (car selent)))
;          (setq nument (subst (cons 1 numstr)(assoc 1 numtxt_lst) numtxt_lst))
;          (entmod nument)
;          (setq numstr nil)
;        )
;        (princ "\nText not selected. Please select again: ")
;      )
;    )
    (if brgstr
      (if (and
            (setq selent (entsel (strcat "\nSelect " numstr  " Bearing Text to update: ")))
            (eq(cdr(assoc 0(entget(car selent))))"TEXT")
          )
        (progn
          (setq brgtxt_lst (entget (car selent)))
;          (survang brgstr)
          (setq brgent (subst (cons 1 brgstr)(assoc 1 brgtxt_lst) brgtxt_lst))
          (entmod brgent)
          (setq brgstr nil)
        )
;        (princ "\nText not selected. Please select again: ")
      )
    )
    (if lenstr
      (if (and
            (setq selent (entsel (strcat "\nSelect " numstr  " Length Text to update: ")))
            (eq(cdr(assoc 0(entget(car selent))))"TEXT")
          )
        (progn
          (setq lentxt_lst (entget (car selent)))
          (setq lenent (subst (cons 1 lenstr)(assoc 1 lentxt_lst) lentxt_lst))
          (entmod lenent)
          (setq lenstr nil)
        )
;        (princ "\nText not selected. Please select again: ")
      )
    )
;    (entupd (car numtag))
    (setq count (1+ count))
  )
  (princ)
)