리습내용 화면에 뿌리기

(vl-load-com)
(defun c:11 (/ ent i lst ss str typ)
  (if (setq ss (ssget ‘((0 . “LINE,*POLYLINE,CIRCLE”))))
    (progn
      (repeat (setq i (sslength ss))
        (setq ent (entget (ssname ss (setq i (1- i))))
              typ (cdr (assoc 0 ent))
        )
        (if (assoc typ lst)
          (setq lst (subst (cons typ (1+ (cdr (assoc typ lst)))) (assoc typ lst) lst))
          (setq lst (cons (cons typ 1) lst))
        )
      )
      (setq str (vl-string-right-trim
                  “, “
                  (apply
                    ‘strcat
                    (mapcar (function (lambda (x) (strcat (itoa (cdr x)) “-” (car x) “, “))) lst)
                  )
                )
      )
      (princ (strcat str))
    )
    (princ “n No objects selected… “)
  )
  (princ)
)

==============================================
구글링해서 찾은 리습인데요, 작업표시줄에 만 보이는 내용을 캐드화면에 적을수 있게
부탁드립니다, 캡처첨부합니다