设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 236|回复: 6

[图块] 删除重叠块

[复制链接]

已领礼包: 586个

财富等级: 财运亨通

发表于 2021-12-5 19:43:18 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

x
多个重名块堆叠在一起,删除重叠块,只保留1个
  1. (defun c:tt( / ss ent entpar bp sss)
  2.   (setq ss (ssget "x" (list '(0 . "INSERT"))) i -1)
  3.   (vl-cmdf "undo" "M")
  4.   (while (setq ent (ssname ss (setq i (1+ i))))
  5.      (if (setq entpar (entget ent))
  6.         (progn  (setq bp (cdr (assoc 10 entpar)))
  7.     (setq sss (ssget "x" (list '(0 . "INSERT")(assoc 2 entpar)
  8.       '(-4 . "<AND")'(-4 . ">=,>=") (list 10 (- (car bp) 0.1)(- (cadr bp) 0.1))
  9.       '(-4 . "<=,<=") (list 10 (+ (car bp) 0.1)(+ (cadr bp) 0.1))'(-4 . "AND>"))))
  10.     (setq sss (ssdel ent sss))
  11.     (if (> (sslength sss) 0)(vl-cmdf "erase" sss ""))
  12.         )
  13.      )
  14.   )(princ)
  15. )

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 5295个

财富等级: 富甲天下

发表于 2021-12-5 21:34:09 | 显示全部楼层
这个插件好,可以消除由于电脑反应慢导致的重复粘贴的重复块。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 756个

财富等级: 财运亨通

发表于 2021-12-6 09:49:51 | 显示全部楼层
感谢分享源码
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2223个

财富等级: 金玉满堂

发表于 2021-12-6 10:55:37 | 显示全部楼层
做个对论坛有益的人。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6202个

财富等级: 富甲天下

发表于 2021-12-6 20:08:39 | 显示全部楼层
这个会用得到,谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2022-4-13 07:23:48 | 显示全部楼层
晓东家园终于恢复正常了吗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 296个

财富等级: 日进斗金

发表于 2022-5-4 08:21:10 | 显示全部楼层
这么简洁的插件,功能这么实用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2022-8-19 06:41 , Processed in 0.153602 second(s), 25 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表