2021.01.20 18:18
(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)
)