(defun c:ListVLA (/)
(if (setq List:en (entsel))
(setq List:en (car List:en)
List:eo (vlax-ename->vla-object List:en)
)
)
(c:ListPrevVLA)
(princ)
)

(defun c:nListVLA (/)
(if (setq List:en (nentsel))
(setq List:en (car List:en)
List:eo (vlax-ename->vla-object List:en)
)
)
(c:ListPrevVLA)
(princ)
)

(defun c:ListPrevVLA (/ eo)
(if List:eo
(progn (vlax-dump-object List:eo t) (textscr))
)
(textscr)
(princ)
)

(defun c:ListDXF (/)
(if (setq List:en (entsel))
(setq List:ed (entget (car List:en) '("*")))
)
(c:ListPrevDXF)
(princ)
)

(defun c:nListDXF (/)
(if (setq List:en (nentsel))
(setq List:ed (entget (car List:en) '("*")))
)
(c:ListPrevDXF)
(princ)
)

(defun c:ListPrevDXF (/ item)
(if List:ed
(foreach item List:ed (print item))
)
(textscr)
(princ)
)

Advertisements