请各位大侠帮帮我解释一下代码的意思

42142

(defun c:tt ()
  (setq ss (ssget '((-4 . "<OR")
    (0 . "INSERT")
    (0 . "TCH_BLOCK_INSERT")
    (-4 . "OR>"))))
  (setq i 0)
  (setq lst nil)
  (repeat (sslength ss)
    (setq ent (assoc 1 (entget (entnext (ssname ss i)))))
    (if
      (not (member (cdr ent) lst))
       (progn
  (setq lst (cons (list (cdr ent)) lst))
       )  
    )
    (setq i (1+ i))
    )
(mapcar '(lambda (x)
        (if (setq tmp (assoc x have))
               (setq have (subst (cons x (1+ (cdr tmp))) tmp have))
               (setq have (cons (cons x 1) have))
               )) lst)   
  (princ have)
  (princ)
  )   涂了颜色的那段是怎么运行的 看不明白？