更改重复点的层

Dadgad · 发表于 2022-7-6 00:19:54

虽然在0.3秒内做任何事情听起来都是个好主意，但你建议eldon的方式非常优雅，直截了当，
简单来说，创建自定义lisp似乎不值得。

ymg3 · 发表于 2022-7-6 00:22:55

达德加德，

就我而言，这是一个反复出现的问题，为了构建一组点的Delaunay三角剖分，需要解决这个问题。

ymg公司

Dadgad · 发表于 2022-7-6 00:27:19

作为一个非常欣赏那些写Lisp程序的人，以及李·麦克杰出作品的惯常粉丝，
我经常看到新手希望只需点击一个按钮就能完成一整天的工作。

显然，这不是其中之一。

由于我不擅长写lisps，所以我倾向于寻找类似eldon的模拟解决方案。我也会这样做。

无意冒犯。
希望你能解决。
新年快乐。

ymg3 · 发表于 2022-7-6 00:30:15

达德加德，

一点也不生气。

我倾向于同一学派。
用锤子杀死苍蝇，通常意味着麻烦。

新年快乐！你也是。

ymg公司

Lee Mac · 发表于 2022-7-6 00:31:41

另一种尝试，仅使用一个vl排序表达式：

copy


([color=BLUE]defun[/color] c:fixpoints2 ( [color=BLUE]/[/color] e i l s )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] '((0 . [color=MAROON]"POINT"[/color]))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
               ([color=BLUE]setq[/color] e ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i)))
                     l ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 10 ([color=BLUE]entget[/color] e))) e) l)
               )
           )
           ([color=BLUE]mapcar[/color]
               ([color=BLUE]function[/color]
                   ([color=BLUE]lambda[/color] ( a b )
                       ([color=BLUE]if[/color] ([color=BLUE]equal[/color] ([color=BLUE]list[/color] ([color=BLUE]caar[/color] a) ([color=BLUE]cadar[/color] a)) ([color=BLUE]list[/color] ([color=BLUE]caar[/color] b) ([color=BLUE]cadar[/color] b)) 1e-
                           ([color=BLUE]entmod[/color] ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] -1 ([color=BLUE]cdr[/color] a)) '((8 . [color=MAROON]"Lower Points"[/color]))))
                       )
                   )
               )
               ([color=BLUE]setq[/color] l
                   ([color=BLUE]vl-sort[/color] l
                       ([color=BLUE]function[/color]
                           ([color=BLUE]lambda[/color] ( a b )
                               ([color=BLUE]if[/color] ([color=BLUE]equal[/color] ([color=BLUE]caar[/color] a) ([color=BLUE]caar[/color] b) 1e-
                                   ([color=BLUE]if[/color] ([color=BLUE]equal[/color] ([color=BLUE]cadar[/color] a) ([color=BLUE]cadar[/color] b) 1e-
                                       ([color=BLUE]<[/color] ([color=BLUE]caddar[/color] a) ([color=BLUE]caddar[/color] b))
                                       ([color=BLUE]<[/color] ([color=BLUE]cadar[/color]  a) ([color=BLUE]cadar[/color]  b))
                                   )
                                   ([color=BLUE]<[/color] ([color=BLUE]caar[/color] a) ([color=BLUE]caar[/color] b))
                               )
                           )
                       )
                   )
               )
               ([color=BLUE]cdr[/color] l)
           )
       )
   )
   ([color=BLUE]princ[/color])
)

Lisp方法的一个优势是，如果两个点的X、Y和Z完全相同
它被困住了。

ymg公司

ymg3 · 发表于 2022-7-6 00:34:04

..........

Lee Mac · 发表于 2022-7-6 00:38:52

很抱歉，由于假期的原因，回复太晚
我非常感谢大家的努力，我喜欢Lee Mac提供的代码，我也要求将较高的值分离到不同的层，只保留那些在其原始层上没有重复的值。

祝大家新年快乐

CADWORKER · 发表于 2022-7-6 00:40:11

CADWORKER，

似乎现在您已经有了低海拔的代码，您应该能够进行创建高海拔所需的少量修改。请认识到，在这里发布代码的人正在花费他们的时间和专业知识（他们为此收费）并将其送走。你应该有足够的尊重，尝试做出轻微的修改，以满足你的要求。如果你没有表现出自己的努力，那么你很可能不会得到任何其他人的努力作为回报。

Snownut · 发表于 2022-7-6 00:46:11

我没有看到一幅画。有人贴了吗？

我想知道是否所有的点都是地面上的点，并且在零海拔处有一个重复点。这是一个典型的测量问题，但无需lisp即可轻松解决。

但是Lisp程序的人有一点圣诞节的工作了

eldon · 发表于 2022-7-6 00:47:58

[编程交流] 更改重复点的层

发表回复

精选推荐