0 Members and 1 Guest are viewing this topic.
I fix it thanks ronjonpCode - Auto/Visual Lisp: [Select](defun c:blockdup ( / ent idx ins lst rtn sel ) (if (setq sel (ssget "_X" '((0 . "INSERT")))) (progn (setq rtn (ssadd)) (repeat (setq idx (sslength sel)) (setq ent (ssname sel (setq idx (1- idx))) ins (cdr (assoc 10 (entget ent))) ) (if (vl-some '(lambda ( x ) (equal ins x 1e-4)) lst) (ssadd ent rtn) (setq lst (cons ins lst)) ) ) (princ (strcat "\n" (itoa (sslength rtn)) " found.")) (sssetfirst nil rtn) (if (= (sslength rtn) 0) (princ "\n<< No duplicate block found >>") ) ) ) (princ))