;;;Deletes any number of equal AECC_POINT objects from the drawing leaving just one instance of each.
;;;Only the description, elevation , northing, and easting are compared for equality.
;;;A fuzz factor of 0.001 is applied to these values.
;;;The numbers can be different without failing the equality check.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-12-2006
;;;>		   EDITED: 01-26-2006
;;;
(DEFUN c:delaeccdup ()
  (SETQ aecc_ss (SSGET '((0 . "AECC_POINT"))))
  (SETQ aecc_len (SSLENGTH aecc_ss))
  (SETQ aecc_cnt 0)
  (WHILE (< aecc_cnt aecc_len)
    (PRINC "\010\010\010\010\010\010\010\010")
    (PRINC aecc_cnt)
    (PRINC)
    (SETQ aecc_ent (ENTGET (SSNAME aecc_ss aecc_cnt)))
    (IF aecc_ent
      (SETQ aecc_ss2 (SSGET "CP"
                          (LIST
                            (POLAR(CDR(ASSOC 10 aecc_ent))0 0.05)
                            (POLAR(CDR(ASSOC 10 aecc_ent))(* PI 0.667) 0.05)
                            (POLAR(CDR(ASSOC 10 aecc_ent))(* PI 1.334) 0.05)
                          )
                          (LIST '(0 . "AECC_POINT")(ASSOC 302 aecc_ent))
                   )
      )
      (SETQ aecc_ss2 NIL)
    )
    (IF (AND
          aecc_ss2
          (> (SSLENGTH aecc_ss2) 1)
;;;          (/=(CDR(ASSOC 90(entget(SSNAME aecc_ss2 0))))(CDR(ASSOC 90(entget(SSNAME aecc_ss2 1)))))
        )
      (PROGN
        (SETQ aecc2_cnt (1-(SSLENGTH aecc_ss2)))
        (WHILE (> aecc2_cnt 0)
          (IF (EQUAL (ASSOC 11 (ENTGET (SSNAME aecc_ss2 0)))(ASSOC 11 (ENTGET (SSNAME aecc_ss2 aecc2_cnt)))0.001)
            (ENTDEL (SSNAME aecc_ss2 aecc2_cnt))
          )
          (SETQ aecc2_cnt (1- aecc2_cnt))
        )
      )
    ) ;_ end of if
    (setq aecc_cnt (1+ aecc_cnt))
  ) ;_ end of while
  (PRINC "\010\010\010\010\010\010\010\010")
  (PRINC aecc_cnt)
  (princ)
) ;_ end of defun
;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil nil T)
;*** DO NOT add text below the comment! ***|;