[LISP程序]：亮显框选文本字符串中重叠的文本.

lsjjm

亮显框选文本字符串中重叠的文本.
[php]
(defun c:test (/ lst tt)
  (setq ss (ssget '((0 . "TEXT"))))
  (setq lst (acet-ss-to-list ss))
  (setq n 0)
  (while (< n (sslength ss))
    (setq  ent (ssname ss n))
    (setq   el (entget ent))
    (setq lst (vl-remove ent lst))
    (if (member (cdr (assoc 1 el))(mapcar '(lambda (x)(cdr (assoc 1 (entget x)))) lst))
      (redraw ent 3)
    )
    (setq n (1+ n))
  )
)
[/php]