设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 每日插件 › 删除重叠块
返回列表 发新帖
查看: 1430|回复: 8

[图块] 删除重叠块

[复制链接]
王鹏_pBZlo

已领礼包: 586个

财富等级: 财运亨通
发表于 2021-12-5 19:43:18 | 显示全部楼层 |阅读模式

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

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

×
多个重名块堆叠在一起,删除重叠块,只保留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. )

评分

参与人数 1D豆 +1 收起 理由
开心68602 + 1 赞 一个

查看全部评分

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

使用道具 举报

tzfcn

已领礼包: 5295个

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

使用道具 举报

hh_lj007

已领礼包: 756个

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

使用道具 举报

yuren008

已领礼包: 2230个

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

使用道具 举报

Michael527

已领礼包: 6202个

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

使用道具 举报

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

使用道具 举报

LXH刚开始

已领礼包: 587个

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

使用道具 举报

15029206890
发表于 2024-1-17 16:45:07 | 显示全部楼层
谢谢分享！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

myairen

已领礼包: 53个

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-21 17:42 , Processed in 0.241116 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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