乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
楼主: fallen

[编程交流] 删除重复点

[复制链接]
fallen

1

主题

11

帖子

10

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:19:44 | 显示全部楼层
不要介意这个错误！！它正在工作，你可以通过运行代码后重新选择点集来测试它。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:21:28 | 显示全部楼层
这样的事情还不够吗？
 
  2. (defun c:DelDupes ( / ss )
  3.  ;; © Lee Mac 2010
  5.  (if (setq ss (ssget "_X" '((0 . "POINT"))))
  6.    (
  7.      (lambda ( i / e1 e2 p1 p2 )
  8.        
  9.        (while (not (minusp (setq j (1- i) i (1- i))))
  10.          (setq e1 (ssname ss i) p1 (cdr (assoc 10 (entget e1))))
  12.          (while (not (minusp (setq j (1- j))))
  13.            (setq e2 (ssname ss j) p2 (cdr (assoc 10 (entget e2))))
  15.            (if (equal p1 p2) (progn (entdel e2) (ssdel e2 ss)))
  16.          )
  17.        )
  18.      )
  19.      (sslength ss)
  20.    )
  21.  )
  22.  (princ)
  23. )
回复

使用道具 举报

fallen

1

主题

11

帖子

10

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:23:08 | 显示全部楼层
李，我会运行代码，
并进行讨论。
 
谢谢
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 11:28:10 | 显示全部楼层
我肯定我错过了什么，但这行得通吗？
 
顺便说一句，阅读以下内容：代码发布礼仪
回复

使用道具 举报

fallen

1

主题

11

帖子

10

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:32:05 | 显示全部楼层
李，我已经运行了34000点的代码（不是随机的，从地形读数获得的），我认为它溢出了或什么。我阻止了它。原因，2分钟过去了，仍然没有响应。我认为它会一个接一个地搜索这些点。
 
非常感谢。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 11:34:22 | 显示全部楼层
 
很好的一个，艾伦，更好-我的是愚蠢地通过塞尔塞特运行了太多次。。。
回复

使用道具 举报

fallen

1

主题

11

帖子

10

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:36:27 | 显示全部楼层
alanjt，谢谢你们的帖子，但我认为它可能会在很多方面受到影响，但我会运行你们的代码。
谢谢你
回复

使用道具 举报

fallen

1

主题

11

帖子

10

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:41:23 | 显示全部楼层
alanjt，我已经运行了你的代码，这是一个很好的代码，测试了你的代码34000分，耗时65秒，
谢谢你
回复

使用道具 举报

alanjt

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 11:42:12 | 显示全部楼层
谢谢我确信我错过了什么。
 
不客气。这里有一个更清晰的副本，作为一个实际的例程：
 
  1. 2
回复

使用道具 举报

fallen

1

主题

11

帖子

10

银币

初来乍到

Rank: 1

铜币
5
发表于 2022-7-6 11:46:22 | 显示全部楼层
thanx的代码，但你试过我的吗？，34000分只需要10秒左右的时间，如果你能纠正我的错误，我会很高兴。
谢谢你
回复

使用道具 举报

12
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-6 17:10 , Processed in 0.362443 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表