Yea, I saw that there was another thread basically doing what I want. I did request if the routine by Gile could be made for multiple selection and ronjonp was so nice to respond with..... Thanks ronjonp
(defun c:duplicated? (/ ss1 ent ss)
(setq ss1 (ssget))
(if ss1
(progn
(setq ss1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1))))
(mapcar
'(lambda (e)
(setq ss (ssget "_X"
(vl-remove-if
'(lambda (x) (member (car x) '(-1 5)))
(entget e)
)
)
)
(alert (strcat "\nObject duplicated "
(itoa (1- (sslength ss)))
" times."
)
)
)
ss1
)
)
)
(princ)
)
But... It gives you an alert dialog for every instance. I would like for it to hatch each duplicate not alert.
Almost there but I need a little assistance.
Thanks