(defun c:test ( / nt)

(defun *error* (msg)
   (defun *error* (msg)(princ))
   (if nt(redraw nt 4))(princ)
)

(setq nt (car (entsel)))
(princ nt)
(redraw nt 3)
(while nt
   (initget "Object Entity")
   (setq buffer (getkword (strcat "\n표시할 옵션 입력 [Entity(E)/VLA-Object(O)]: ")))
   (princ "\n")
      (cond
    ((= buffer "Object")(princ (vlax-dump-object (vlax-ename->vla-object nt) t)))
    ((= buffer "Entity")(princ (entget nt)))
      )
   (princ "\n\n")
)
(redraw nt 4)
(princ)
)