;;;Get entity data. EDUMP, ASO or UCSC 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 "\nEntity list is named: 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:ucsc ( / )
  (setq num (getreal(strcat"\nAssociation no. of Coord to TRANS: ")))
  (while (or(not tcode)(and tcode (=(strlen tcode)2)))
    (setq coord(cdr(assoc num edata)))
    (princ"\nWCS coordinates = ")
    (princ coord)
    (setq tcode (getstring(strcat"\nEnter TRANS code: ")))
    (setq count -2)
    (setq tfrom (atoi(substr tcode 1 1)))
    (setq tto (atoi(substr tcode 2 1)))
    (princ(trans coord tfrom tto))
  )
  (setq tcode nil)
);defun
(defun c:edump ( / )
  (setq coord(cdr(assoc num edata)))
  (textscr)
  (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
(defun c:makeit ()
  (C:GENT)
  (setq makedata edata)
  (if (assoc 7 makedata)
    (setq makedata (subst (cons 7 "STANDARD")(assoc 7 makedata)makedata))
  )
  (setq makedata (subst (cons 8 "0")(assoc 8 makedata)makedata))
  (if(eq(cdr(assoc 0 makedata))"ATTRIB")
    (progn
      (setq makedata (subst (cons 0 "TEXT")(assoc 0 makedata)makedata))
      (setq makedata (append (reverse(cdr(member(assoc 2 makedata)(reverse makedata))))(cdr(member (assoc 2 makedata)makedata))))
      (setq makedata (append (reverse(cdr(member(assoc 70 makedata)(reverse makedata))))(cdr(member (assoc 70 makedata)makedata))))
      (setq makedata (subst (cons 73 (cdr(assoc 74 makedata)))(assoc 74 makedata)makedata))
    )
  )
  (entmake makedata)
)