블럭안에 있는 중복된 선들 overkill로 한번에 없애는 리습이나 방법 있을까요?

; ————————————————————————–

(defun c:test2 ( / a e i l n o r s x )

    (setq r (ssadd))

    (if (setq s (ssget “_X” ‘((0 . “INSERT”) (66 . 1) (410 . “Model”))))

        (repeat (setq i (sslength s))

            (setq e (ssname s (setq i (1- i)))

                  o (vlax-ename->vla-object e)

                  a (mapcar ‘(lambda ( x ) (cons (vla-get-tagstring x) (strcase (vla-get-textstring x)))) (vlax-invoke o ‘getattributes))

                  n (vla-get-effectivename o)

                  x (assoc n l)

            )

            (if x

                (if (vl-some ‘(lambda ( x ) (vl-every ‘equal a x)) (cdr x))

                    (ssadd e r)

                    (setq l (subst (vl-list* n a (cdr x)) x l))

                )

                (setq l (cons (list n a) l))

            )

        )

    )

    (sssetfirst nil r)

    (princ)

)