(defun c:xx()
  (setq e (entsel "\n Select Object!"))
  (if e
    (progn
      (setq e (car e))
      (setq ve (vlax-ename->vla-object e))
      (vlax-dump-Object ve t)
      )
    )
  )