;Get entity data. EDUMP or ASO the data.
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
(defun c:gent ( / )
  (setq it(nentselp))
  (setq ename (car it))
  (setq edata (entget ename))
  (setq lname (cdr(assoc 8 edata)))
  (setq nselp (cadr it))
  (setq pt10 (cdr(assoc 10 edata)))
  (princ (strcat"\nLayer name  (lname): "lname))
  (princ (strcat"\nPick point  (nselp): "(rtos(nth 0 nselp))", "(rtos(nth 1 nselp))", "(rtos(nth 2 nselp))))
  (princ (strcat"\nFirst def pt (pt10): "(rtos(nth 0(cdr(assoc 10 edata))))", "(rtos(nth 1(cdr(assoc 10 edata))))", "(rtos(nth 2(cdr(assoc 10 edata))))))
  (princ (strcat"\nEntity type        : "(cdr(assoc 0 edata))))
  (princ)
)
(defun c:aso ( / )
  (setq esymb (eval(read(setq systr(getstring "\nEnter entity symbol: ")))))
  (while
    (setq num (getreal(strcat"\nEnter Association no. to show: ")))
    (princ(cdr(assoc num edata)))
  );while
)
(defun c:edump ( / )
  (setq coord(cdr(assoc num edata)))
  (princ"\nWCS coordinates = ")
  (princ coord)
  (setq count -4)
  (while (< count 1071)
    (if (cdr(assoc count edata))
      (progn
        (setq cstr (itoa count))
        (princ "\n")
        (cond
          ((=(strlen cstr)1)
            (setq cstr (strcat "   "cstr)))
          ((=(strlen cstr)2)
            (setq cstr (strcat "  "cstr)))
          ((=(strlen cstr)3)
            (setq cstr (strcat " "cstr)))
          ((=(strlen cstr)4))
        );cond
        (princ(strcat cstr " = "))
        (princ(type(cdr(assoc count edata))))
        (princ "  ")
        (princ(cdr(assoc count edata)))
      );progn
    )
    (setq count (1+ count))
  )
  (princ)
);defun