选择重复点

David Bethel · 发表于 2022-7-5 19:10:17

Storing the enames makes more sense than an (ssget) call. Well done as always ! -David

Lee Mac · 发表于 2022-7-5 19:11:07

Thanks David

Excellent to hear!

I'm not sure why the two programs would yield different results, as the process of determining a duplicate point is essentially following the same method in both programs (rounding X & Y to a given tolerance and querying the result against an association list); my code uses a tolerance of 0.001 defined at the top of the code, whereas David's prompts the user for the tolerance, therefore, did you use the same tolerance when testing both programs?

Lee

sethacre · 发表于 2022-7-5 19:16:36

Sorry I got late for the answer.

Tolerance was predefined as 0.001 at David's code and shown in the command box. When prompted i just pressed enter. I tried typing 0.001 and ended up with the same result.

BIGAL · 发表于 2022-7-5 19:20:13

Tharwat just for your info you can set rules in CIV3d when triangulating to make the surface and the obvious one is a Z must be more than 0.0 so no need to add extra code. Obviously you can go negative when surveying below sea level.

When our guys survey a retaining wall they take top and bottom two points on top of each other but they make sure they are a few mm apart so not true vertical then can have a breakline top and bottom and they do not cross.

David Bethel · 发表于 2022-7-5 19:23:50

Interesting. Can you post a sample dwg ?

sethacre · 发表于 2022-7-5 19:28:28

Sure.

These are the points of a corrider surface from another local CAD program.
DupPoints.DWG

David Bethel · 发表于 2022-7-5 19:30:32

That is weird. Using a similar approach as Lee. I get 1234 entities on the new layer ( 107 duplicates )

copy

[b][color=BLACK]([/color][/b]defun c:maxz-dps [b][color=FUCHSIA]([/color][/b]/ ln lc f ss i en ed pt rp z fl[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq ln [color=#2f4f4f]"NEW1"[/color] lc 1[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] ln[b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]setq lc [b][color=MAROON]([/color][/b]1+ lc[b][color=MAROON])[/color][/b] ln [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"NEW"[/color] [b][color=GREEN]([/color][/b]itoa lc[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]initget 6[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq f [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nPoint Value Tolerence :   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]or f [b][color=NAVY]([/color][/b]setq f 0.001[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"POINT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]                   pt [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 ed[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]                   rp [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]round [b][color=RED]([/color][/b]car pt[b][color=RED])[/color][/b] f[b][color=BLUE])[/color][/b]                            [b][color=BLUE]([/color][/b]round [b][color=RED]([/color][/b]cadr pt[b][color=RED])[/color][/b] f[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]                    z [b][color=GREEN]([/color][/b]caddr pt[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]cond [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]not [b][color=RED]([/color][/b]assoc rp fl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]                    [b][color=BLUE]([/color][/b]setq fl [b][color=RED]([/color][/b]cons [b][color=PURPLE]([/color][/b]list rp z en[b][color=PURPLE])[/color][/b] fl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]                   [b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]> z [b][color=RED]([/color][/b]nth 1 [b][color=PURPLE]([/color][/b]assoc rp fl[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]                    [b][color=BLUE]([/color][/b]setq fl [b][color=RED]([/color][/b]subst [b][color=PURPLE]([/color][/b]assoc rp fl[b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]list rp z en[b][color=PURPLE])[/color][/b] fl[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]princ [b][color=NAVY]([/color][/b]strcat [color=#2f4f4f]"\nMoving Points To Layer "[/color] ln[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]foreach p fl    [b][color=NAVY]([/color][/b]setq ed [b][color=MAROON]([/color][/b]entget [b][color=GREEN]([/color][/b]nth 2 p[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]    [b][color=NAVY]([/color][/b]entmod [b][color=MAROON]([/color][/b]subst [b][color=GREEN]([/color][/b]cons 8 ln[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]assoc 8 ed[b][color=GREEN])[/color][/b] ed[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b][color=#8b4513];;VVA[/color][b][color=BLACK]([/color][/b]defun round [b][color=FUCHSIA]([/color][/b]num prec[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]* prec [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]minusp num[b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]fix [b][color=GREEN]([/color][/b]- [b][color=BLUE]([/color][/b]/ num prec[b][color=BLUE])[/color][/b] 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]fix [b][color=GREEN]([/color][/b]+ [b][color=BLUE]([/color][/b]/ num prec[b][color=BLUE])[/color][/b] 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-David

[编程交流] 选择重复点

发表回复

精选推荐