lisp 删除编组中图元_CAD中怎样快速删除重复图元、块等一些重叠对象

在AutoCAD2016版本里面，命令【62616964757a686964616fe58685e5aeb931333337616536overkill】(其它的版本不清楚有没有)，可以删除重叠的对象(包括直线，多段线，文字等等)

安装天正插件，里面有【删除重元】功能，把重叠的对象删除。

这个删除重叠对象也有缺点，如果对象复杂会造成图元缺失。

你的情况有两个方法给你参考：

1)autoCAD有【自动保存】功能，每10分钟保存一次，右键，选项，在文件里面查看自动保存路径，找到这个文件夹，把自动保存的文件后缀修改为【dwg】，这样打开文件就可以找回最近的文件，减少损失。

2)如果会编程的话，自己编辑一个程序，由于不清楚你的图纸情况无法测试程序，只是提供一个思路：

(defun C:tes ( / &dis1 &dis2 &k1 &k2 &kw1 &ob1 &ob2 c01 c02 c621 c622 c81 c82 i n1 n2 pt1 pt11 pt12 pt2 pt21 pt22)

(vl-load-com)

(princ "\n请选择要删除重叠的对象")

(if (setq &kw1 (ssget))

(progn

(while (setq &k1 (ssname &kw1 0))

(setq &kw1 (ssdel &k1 &kw1) c01 (cdr (assoc 0 (entget &k1))))

;得到图元名

(setq &ob1 (vlax-ename->vla-object &k1));变VBAX对象

(vla-GetBoundingBox &ob1 'pt1 'pt2);包围盒检查

(setq pt11 (Vlax-SafeArray->List pt1) pt21 (Vlax-SafeArray->List pt2))

;得到左下角及右上角坐标

(setq c81 (vla-get-layer &ob1) c621 (vla-get-color &ob1) i 0)

;得到图层及颜色，如果有其它相同的地方，越详细越好

(setq n1 (sslength &kw1) n2 1)

(if (> n1 1)

(progn

(while (setq &k2 (ssname &kw1 i))

(setq i (1+ i) c02 (cdr (assoc 0 (entget &k2))))

(setq &ob2 (vlax-ename->vla-object &k2))

(vla-GetBoundingBox &ob2 'pt1 'pt2)

(setq pt12 (Vlax-SafeArray->List pt1) pt22 (Vlax-SafeArray->List pt2))

(setq c82 (vla-get-layer &ob2) c622 (vla-get-color &ob2))

(if (and (= c01 c02) (

)

(if (= n2 2) (vla-delete &ob1) )

)

(princ)

);确认坐标相同，图元名相同，图层相同，颜色相同，就确定是重元删除一个。

;没有你的图纸，这个程序没有测试，基本上按这个思路来检查

lisp 删除编组中图元_CAD中怎样快速删除重复图元、块等一些重叠对象相关推荐

删除一行下方单元格上移_快速删除Excel工作表多余空单元格
从其他地方复制了数据,有时候会出现多余的空单元格.手动删除很麻烦,就像下面的图中的工作表区域. 下面介绍一种方法,可以快速删除多余空单元格. 1.选中目标区域,在这里就选中A1:A9的单元格区域. 2 ...
如何删除计算机某个盘搜索记录,怎么快速删除搜索记录如何随意删除指定的那条记录...
如何快速删除搜索记录,具体详细内容如下所示我们网吧的时候如果不小心在IE上留下很多隐私的的搜索记录到时候你想哭都来不及,所以我们平时要养成一个好的习惯,我朋友就碰到一次他是一个女同志,有一次他在网吧 ...
notepad批量删除html元素,Notepad文本编辑器怎么快速删除一整行内容?
Notepad++是一款免费的文本编辑器,使用的人也是非常的多,尤其是程序员.但在类似eclipse这种软件中,习惯了Ctrl+D删除一整行的操作,到Notepad++中变成了,复制并粘贴一行的操作. ...
windows系统，删除文件慢，使用命令行快速删除大文件
在删除.复制.移动文件夹的时候经常遇到这样的情况:如果文件夹里的文件非常多,文件夹总容量非常大时,文件删除速度就会变得缓慢,这是因为Windows系统在删除文件时会统计出文件夹里的文件总数目后再执行删 ...
linux 快速删除大量/大文件
linux 快速删除大量/大文件经常会测试海量大数据,在不同文件系统下执行列出(list),删除(rm)等操作的执行时间,下面列出了,执行删除50万个文件时,使用不同的命令或者脚本,执行时间! 从上 ...
Windows 快速删除大量文件
Windows下快速删除上万个文件和子目录这个是工具: http://www.sunqizheng.com/blog/2255.html 为什么会慢如果直接在Windows文件管理器里删除的话(通 ...
android studio 快速删除无用的import包
今天,简单讲讲如何使用 android studio 快速删除无用的import包. 在开发过程中,随着项目的迭代,文件内部分import 可能早已经不用了,对于这种无用的 import,我们不 ...
Windows下快速删除上万个文件和子目录
为什么会慢如果直接在Windows文件管理器里删除的话(通过菜单或者键盘Del或者Shift+Del),删除这个数量的文件需要大概10几分钟,具体根据文件数量目录层次不同耗时不同.这么慢是因为在删除 ...
快速删除一个大目录（FastCopy.exe）
一个大目录,目录中有海量的文件,文件通常都不大,但数量很多,如果你想要删除这个目录,那很可能就会出现下面这个画面耗费时间非常的长,而且很可能经过了漫长计算之后,还告诉你现在由于目录处于被打开状态等原 ...

lisp 删除编组中图元_CAD中怎样快速删除重复图元、块等一些重叠对象

lisp 删除编组中图元_CAD中怎样快速删除重复图元、块等一些重叠对象相关推荐

最新文章

热门文章