Leaderboard

looks like we must have a serious discussion about the definition of 'fun'

If you're only looking to list the duplicate text items at the command-line, the code can be simplified greatly, e.g.: (defun c:dupetext ( / d i l s x ) (if (setq s (ssget "_X" (list '(0 . "TEXT") (if (= 1 (getvar 'cvport)) (cons 410 (getvar 'ctab)) '(410 . "Model"))))) (repeat (setq i (sslength s)) (setq x (cdr (assoc 1 (entget (ssname s (setq i (1- i))))))) (cond ( (not (member x l)) (setq l (cons x l))) ( (not (member x d)) (setq d (cons x d)) (print x)) ) ) ) (princ) )

It' OK, solved problem....i found a simple lisp on internet..

nos problemos I allways use 'check code in editor' in the vlisp editor and this would have found the error. Also the fact that 'list' turns blue is a clue. But of course this one was a little obvious. But hey, that's what learning is all about . Check the 'subst' function... And if you want only subst the first item look at this one : http://www.lee-mac.com/substonce.html