@abdul.raufJJ89F wrote:
....
As I am a new user can somebody provide me with the lisp....
Oh, that should be the reason for us to provide you anything? Really? I would expect something like "Can you recommend me some book that I could start learning" or "I searched the whole Internet, found this but here is this I don't understand..., can you help me?"
So maybe I just expecting too much... so here is something simple that you can learn from... if that's why you're here.
(defun c:BlockOverlaps (/ LM:UniqueFuzz-p ss i ent pnt lst fuz sn)
;; Unique-p with Fuzz - Lee Mac
;; Returns T if a list contains items considered distinct to
;; a given tolerance
(defun LM:UniqueFuzz-p ( l f )
(or (null l)
(and (not (vl-some (function (lambda ( x ) (equal x (car l) f))) (cdr l)))
(LM:UniqueFuzz-p (cdr l) f))))
; -----------------------------------------------------------------------
(if (and (setq fuz 220)
(setq sn (ssadd))
(setq ss (ssget '((0 . "INSERT"))))
)
(repeat (setq i (sslength ss))
(setq ent (ssname ss (setq i (1- i)))
pnt (cdr (assoc 10 (entget ent))))
(if (LM:UniqueFuzz-p (cons pnt lst) fuz)
(setq lst (cons pnt lst))
(ssadd ent sn))))
(command "_.REGEN")
(if (> (sslength sn) 0)
(sssetfirst nil sn))
(princ)
)
