两组超大量单行文本图元内容比对

672505821

请问如何处理两组超大量文本图元内容比对，1表比2表不同的图元变黄色！！2表比1表不同的图元变红色！！！

自己写的，处理两千对两千个数据三分钟

• (defun c:tt()
•    (time:begin)
•   (setvar "CMDECHO" 0)
•   (setq old_sslst (pickset:to-list (ssget'((0 . "TEXT"))));上一层模板信息
•     new_sslst (pickset:to-list (ssget'((0 . "TEXT"))));本层模板信息
•     old_out'()
•   )
•   (entity:putdxf new_sslst 62 9)
•     (foreach a old_sslst
•       (setq str_a (entity:getdxf a 1)
•         str_new_sslst (mapcar'(lambda(x)(entity:getdxf x 1)) new_sslst)
•          a_position (vl-position str_a str_new_sslst)
•       )
•       (cond ((/= a_position nil)
•               (setq new_sslst (list:remove-nth a_position new_sslst))
•             )
•             (T
•               (setq old_out (cons a old_out))
•             )
•       )
•     )
•   (entity:putdxf new_sslst 62 1)
•   (entity:putdxf old_out 62 2)
•   (if (/= new_sslst nil) (Lst2Table "新增模板" (list:split-3d (mapcar'(lambda(x)(entity:getdxf x 1)) new_sslst))))
•   (if (/= old_out nil) (Lst2Table "取消模板" (list:split-3d (mapcar'(lambda(x)(entity:getdxf x 1)) old_out))))
•   (setvar "CMDECHO" 1)
•     (setq time (time:return))
•   (setq time_str (rtos time 2))
•   (princ (strcat "总计耗时" time_str "秒"))
•   (prin1)
• )