;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-30-97
;;;>		   EDITED: 08-18-1999
;;;
(defun c:findla ()
  (setq ename (entnext) matchent_lst nil)
  (while ename
    (setq edata (entget ename))
    (if (eq(cdr(assoc 8 edata))"CSTNWX01|C-TABLE")
      (progn
        (if matchent_lst
          (setq matchent_lst
            (append matchent_lst (list ename (assoc 0 edata))))
          (setq matchent_lst (list(list ename (assoc 0 edata))))
        )
        (princ "\n")
        (princ (assoc 0 edata))
;        (princ (assoc 2 edata))
      )
    )
    (setq ename (entnext ename))
    (if (eq (cdr(assoc 0 edata)) "INSERT")
      (progn
        (if matchent_lst
          (setq matchent_lst
            (append matchent_lst (list(list ename (assoc 0 edata)(assoc 2 edata)))))
          (setq matchent_lst (list(list ename (assoc 0 edata)(assoc 2 edata))))
        )
        (princ "\n")
        (princ (assoc -1 edata))
        (princ (assoc 0 edata))
        (princ (assoc 2 edata))
      )
    )
  )
  (princ)
)