请各位大侠帮帮我解释一下代码的意思
(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)
) 涂了颜色的那段是怎么运行的 看不明白？
页:
[1]