Delete Duplicate Points

[Anonymous]

I have a project data base (from a client) with hundreds of duplicated
points.
The only difference in the dups is their point numbers.

Has anyone see a way to delete these dups and only leave one instance of
each point?

--
Jeff Clark
Designer III
Consulting Engineer Services
Sewell, NJ
Acad 2006 LDT w/CD

[Anonymous]

I've experienced this before in 3i & 04, 05 , 06

I bet in your point settings the check box for allow ACAD to Move point is
checked..? clear it.

Then I would rebuild the point database - you may have to bite the bullet of
anxiety and answer yes to delete all.

A backup survey with clean point layer would be helpful or ans ASCII file.


Joe


"Jeff Clark" wrote in message
news:5563076@discussion.autodesk.com...
I have a project data base (from a client) with hundreds of duplicated
points.
The only difference in the dups is their point numbers.

Has anyone see a way to delete these dups and only leave one instance of
each point?

--
Jeff Clark
Designer III
Consulting Engineer Services
Sewell, NJ
Acad 2006 LDT w/CD

[Anonymous]

I'd probably try to do it in the point database. Making a backup first of
course.

Allen

"Joe Bouza" wrote in message
news:5563297@discussion.autodesk.com...
I've experienced this before in 3i & 04, 05 , 06

I bet in your point settings the check box for allow ACAD to Move point is
checked..? clear it.

Then I would rebuild the point database - you may have to bite the bullet of
anxiety and answer yes to delete all.

A backup survey with clean point layer would be helpful or ans ASCII file.


Joe


"Jeff Clark" wrote in message
news:5563076@discussion.autodesk.com...
I have a project data base (from a client) with hundreds of duplicated
points.
The only difference in the dups is their point numbers.

Has anyone see a way to delete these dups and only leave one instance of
each point?

--
Jeff Clark
Designer III
Consulting Engineer Services
Sewell, NJ
Acad 2006 LDT w/CD

[Anonymous]

Would the Map clean-up tools work using duplicate entities? At least you
would not disturb the database, initially.

Bill

[Anonymous]

I recall a lisp program to do this. Let me look...

Found it. Go to Dotsoft.com (thanks Terry) & look for a free app called
DupPntDel.lsp (sorry I don't like to distribute someone else's work).

This can also happen when a user confuses the Insert Points Into Drawing
command with the Import Points command. 😮




--
John Mayo
Project Engineer
Conklin Associates
Ramsey, NJ

Civil 3D 2007, LDT 2007, Raster Design 2007
P-IV at 3.5 GHz
2 GB Ram
Nvidea Quadro FX w/ 128 MB Ram
"Jeff Clark" wrote in message
news:5563076@discussion.autodesk.com...
I have a project data base (from a client) with hundreds of duplicated
points.
The only difference in the dups is their point numbers.

Has anyone see a way to delete these dups and only leave one instance of
each point?

--
Jeff Clark
Designer III
Consulting Engineer Services
Sewell, NJ
Acad 2006 LDT w/CD

[Anonymous]

Thanks Guys!!
I have the original TXT points files from the client, so I can always read
them back in.......
I inserted ALL points into a new drawing.
Then I ran the Express tool OVERKILL. It worked beautifuly. 5000 points
became 2500 real fast.
Then I ran 'check points' turning on the 'delete all points not in the
current drawing' option.
Packed the data base and Wa-La! I have a clean project!! How cool is that!
Thanks again folks.

-JC

John - I couldn't find that routine at Dotsoft. Is it in the Free Stuff
section?


"Jeff Clark" wrote in message
news:5563076@discussion.autodesk.com...
I have a project data base (from a client) with hundreds of duplicated
points.
The only difference in the dups is their point numbers.

Has anyone see a way to delete these dups and only leave one instance of
each point?

--
Jeff Clark
Designer III
Consulting Engineer Services
Sewell, NJ
Acad 2006 LDT w/CD

[Anonymous]

I believe the OP was talking about he database having the duplicate points.
Not the drawing. Whether Map Clean-up would work on points in a drawing
would depend on what level it checks to determine if the objects are
identical. If it can check the contents of an AEC point it would not
consider them identical. If it only looked at type of object and insertion
point then it would.

I think if the OP changes the flag in the database that identifies whether a
point has been erased or not and then pack the database. That should
eliminate the duplicate points.

Allen

"wfb" wrote in message
news:5563583@discussion.autodesk.com...
Would the Map clean-up tools work using duplicate entities? At least you
would not disturb the database, initially.

Bill

[Anonymous]

I thought it was Jeff. You may find it if you search this NG on a web
browser. I believe Terry has posted it a few times. With a little luck he
may chime in as well. It worked fantastic on a similar situation here once.

Glad you found a solution and thanks for providing feedback with the
Overkill method. I have been reluctant to use overkill in the past on
anything but linework because it has renamed blocks on me when I used it in
the past. It took every block in my dwg & renamed each block with a
different name (i.e. MH became MH1, MH2, MH3, etc.). That messed up a few
things in my project at the time.


--
John Mayo
Project Engineer
Conklin Associates
Ramsey, NJ

Civil 3D 2007, LDT 2007, Raster Design 2007
P-IV at 3.5 GHz
2 GB Ram
Nvidea Quadro FX w/ 128 MB Ram
"Jeff Clark" wrote in message
news:5563781@discussion.autodesk.com...
Thanks Guys!!
I have the original TXT points files from the client, so I can always read
them back in.......
I inserted ALL points into a new drawing.
Then I ran the Express tool OVERKILL. It worked beautifuly. 5000 points
became 2500 real fast.
Then I ran 'check points' turning on the 'delete all points not in the
current drawing' option.
Packed the data base and Wa-La! I have a clean project!! How cool is that!
Thanks again folks.

-JC

John - I couldn't find that routine at Dotsoft. Is it in the Free Stuff
section?


"Jeff Clark" wrote in message
news:5563076@discussion.autodesk.com...
I have a project data base (from a client) with hundreds of duplicated
points.
The only difference in the dups is their point numbers.

Has anyone see a way to delete these dups and only leave one instance of
each point?

--
Jeff Clark
Designer III
Consulting Engineer Services
Sewell, NJ
Acad 2006 LDT w/CD

[Anonymous]

Jeff Clark wrote:

> I have a project data base (from a client) with hundreds of duplicated
> points.
> The only difference in the dups is their point numbers.
>
> Has anyone see a way to delete these dups and only leave one instance of
> each point?

Here's one approach.

Terry

; ------------------------------------------------------
; (Delete duplicate AECC points from drawing)
; (Duplicate defined as having same XYZ coordinates)
; Copyright (C) 2000 DotSoft, All Rights Reserved
; Website: http://www.dotsoft.com
; ------------------------------------------------------

(defun C:AECPTDUP2 ()
(setq llc (getpoint "\nDS> Pick LL Corner: "))
(setq urc (getcorner llc "\nDS> Pick UR Corner: "))
(setq dsx (- (car urc)(car llc)))
(setq dsy (- (cadr urc)(cadr llc)))
(setq ndx (+ (fix (/ dsx 100.0)) 1))
(setq ndy (+ (fix (/ dsy 100.0)) 1))
(setq tmp (getint (strcat "\nDS> X Divisions <" (itoa ndx) ">: ")))
(if (/= tmp nil)(setq ndx tmp))
(setq tmp (getint (strcat "\nDS> Y Divisions <" (itoa ndy) ">: ")))
(if (/= tmp nil)(setq ndy tmp))
(setq tmp (getdist "\nDS> Fuzz Factor <0.00000001>: "))
(if (/= tmp nil)(setq fuzz tmp)(setq fuzz 0.00000001))
(setq incx (/ dsx ndx))
(setq incy (/ dsy ndy))
;
(setq cmdecho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "_.UNDO" "_G")
(setq cel 0)
(setq tot (* ndx ndy))
(setq llx (car llc))
(setq lly (cadr llc))
(princ "\nDS>")
(repeat ndx
(setq urx (+ llx incx))
(repeat ndy
(setq cel (1+ cel))
(princ (strcat "\rDS> Processing Cell " (itoa cel)
" of " (itoa tot)))
(setq ury (+ lly incy))
(setq sset (ssget "_C" (list llx lly) (list urx ury)
'((0 . "AECC_POINT"))))
(if sset
(progn
(setq lst nil)
(setq num (sslength sset) itm 0)
(while (< itm num)
(setq hnd (ssname sset itm))
(setq ent (entget hnd))
(setq xyz (cdr (assoc 11 ent)))
(setq ptn (cdr (assoc 90 ent)))
(setq rec (list ptn xyz hnd))
(setq lst (append lst (list rec)))
(setq itm (1+ itm))
)
(setq sset nil)
;
(if (> (length lst) 1)
(progn
(foreach rec lst
(if (/= rec nil)
(progn
(setq ptn (car rec))
(setq xyz (cadr rec))
(setq hnd (caddr rec))
(foreach crec lst
(if (/= rec nil)
(if (/= crec nil)
(progn
(setq cptn (car crec))
(setq cxyz (cadr crec))
(setq chnd (caddr crec))
(if (equal cxyz xyz fuzz)
(cond
((> cptn ptn)
(setq lst (subst nil crec lst))
(entdel chnd)
)
((< cptn ptn)
(setq lst (subst nil rec lst))
(setq rec nil)
(entdel hnd)
)
(t nil)
)
)
)
)
)
)
)
)
)
)
)
)
)
(setq lst nil)

(setq lly (+ lly incy))
)
(setq llx (+ llx incx))
(setq lly (cadr llc))
)
(princ ", Done.")
(command "_.UNDO" "_E")
(setvar "CMDECHO" cmdecho)
(princ)
)

(princ "\nDS> AECPTDUP2.LSP Loaded ... type AECPTDUP2 to run.")
(princ)