删除重复点

fallen · 发表于 2022-7-6 10:45:05

大家好，我是新手
无论如何，我有一个代码段，它正在删除选择区域中的重复点，它搜索整个选择集，并比较二维点。例如，代码运行1分钟40秒，得到240.000点。如果你感兴趣，我可以分享代码段

非常感谢。

ReMark · 发表于 2022-7-6 10:49:01

第一个帖子，他已经在嘲笑我们了。Smarty裤子。

fallen · 发表于 2022-7-6 10:54:16

谢谢你回复我的评论。你有兴趣吗？

ReMark · 发表于 2022-7-6 10:55:59

肯定掉下来了。里面没有细菌或病毒吗？你知道，这些天再小心也不为过。

fallen · 发表于 2022-7-6 10:57:53

当然不在其中，它只是一个用lisp编写的代码段，仍然需要修改，你知道，仍然以一个错误结束，但它可以工作！

Cad64 · 发表于 2022-7-6 11:01:35

我们为什么要讨论这个？

如果你想发布代码，那么就发布它。但我不知道为什么有人会想要一个不起作用的lisp例程？你说它以一个错误结束，这意味着它不起作用。

我已经把这个线程移到了lisp部分，所以继续发布你的代码，也许这里的一个家伙会看看它，并给你一个如何让它正常工作的建议。

fallen · 发表于 2022-7-6 11:05:09

很抱歉，但正如我说的，我是这里的新手，再次对此表示抱歉，下一篇帖子我将给出代码

Cad64 · 发表于 2022-7-6 11:10:27

你为什么不把它放在上一个帖子里？

我开始觉得你只是想增加你的帖子数量，这样你就可以发布一个链接到某个虚假网站。

我将期待在您的下一个回复中看到代码。

ReMark · 发表于 2022-7-6 11:12:16

以上内容被称为“gotcha”。你最好把倒下的小马扶起来，否则它就会和你一起上绞刑架。

fallen · 发表于 2022-7-6 11:14:03

不好的，这是我刚刚尝试修复错误的代码。
等待建议

（defun dupsil（）
（setq i 0 p1 nil p2 nil p3 nil p4 nil i1 0 i5 0）
（setq秒（ssget’（（0.“点”）））
（setq uzunluk（sslength sec））
（虽然(
（setq p4 nil ss1 nil）
（如果（/=（setq b（cdr（assoc 10（entget（ssname sec i k）а）'））无）
（程序
（setq p1（mapcar’（λ（x y）（+x y））b’（0 200 0）））
（setq p2（mapcar’（λ（x y）（+x y））b’（200-200 0）））
（setq p3（mapcar’（λ（x y）（+x y））b’（-200-200 0）））
（setq p4（追加p4（列表p1）（列表p2）（列表p3）））
（setq p4（应用“append（list（mapcar）”（lambda（x）（list（car x）（cadr x）））p4）））

（setq ss1（ssget“_CP”p4））

（如果（>（sslength ss1）1）
（程序
（setq i5（1+i5））
（setq i1 0 p5 nil）
（虽然(
（setq p5（追加p5（列表（cdr（assoc 10（entget（ssname ss1 i1 k）Ю）Ю）））））
（setq i1（1+i1））
)
（setq p5（应用“append（list（mapcar）”（lambda（x）（list（car x）（cadr x）））p5）））

（setq p6（vl-sort-i p5）
（功能
（λ（e1 e2）
(
（setq i1 0）
（虽然(
（如果(
（程序
（setq i5（1+i5））
（entdel（ssname ss1（nth i1 p6）））
)
)
（ssdel（ssname ss1（nth i1 p6））秒）
（setq i1（1+i1））
)
)
)

（setq i（1+i））
)
)
)
)

[编程交流] 删除重复点

发表回复

精选推荐