Code:
(defun c:Info (/ opt obj)
;; VLA & DXF Info of selected Primary or Nested object
;; Alan J. Thompson
(initget 0 "Nested Primary")
(setq opt (cond ((getkword "\nSpecify selection mode [Nested/Primary] <Primary>: "))
("Primary")
)
)
(if (setq obj (car ((if (eq opt "Primary")
entsel
nentsel
)
(strcat "\nSelect " opt " object for VLA & DXF info: ")
)
)
)
(progn
(textscr)
(princ "\nVLA Info:\n\n")
(vlax-dump-object (vlax-ename->vla-object obj) T)
(princ "\nDXF Info:\n")
(mapcar 'print (entget obj '("*")))
)
)
(princ)
)