[分享]：文字加/减括号、消除重复实体程序

eachy

前几天再作一个工程时处理地形图临时写了三个程序：
1 Ea:AddKH 数字加括号对，表示现状标高，
2 Ea:RemoveKH 去除含有括号文字中的括号对
3 Ea:RemoveMEnt删除重复实体，用来处理无意或恶意对图中实体多次复制造成图形文件增大。

自由的鱼

删除重复图元很有用，但我就是不知道原理是怎样的？能讲讲吗？

eachy

最初由 自由的鱼 发布
[B]删除重复图元很有用，但我就是不知道原理是怎样的？能讲讲吗？ [/B]

看DXF组码，对重复实体（图元）某几个“唯一”标志是不同的，其他的都相同。知道了这个写程序很简单的。

自由的鱼

这是几个重叠圆的组码
选择对象: ((-1 . <图元名: 400c7e08>) (0 . "CIRCLE") (330 . <图元名: 40085c10>)
(5 . "5F1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (100 . "AcDbCircle") (10 139971.0 177602.0 0.0) (40 . 5.0) (210
0.0 0.0 1.0))

选择对象: ((-1 . <图元名: 400c7e10>) (0 . "CIRCLE") (330 . <图元名: 40085c10>)
(5 . "5F2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (100 . "AcDbCircle") (10 139973.0 177602.0 0.0) (40 . 5.0) (210
0.0 0.0 1.0))

选择对象: ((-1 . <图元名: 400c7e18>) (0 . "CIRCLE") (330 . <图元名: 40085c10>)
(5 . "5F3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (100 . "AcDbCircle") (10 139981.0 177602.0 0.0) (40 . 5.0) (210
0.0 0.0 1.0))

区别是有，但不太好比较，能再讲讲吗？：）

eachy

最初由 自由的鱼 发布
[B]这是几个重叠圆的组码
选择对象: ((-1 . <图元名: 400c7e08>) (0 . "CIRCLE") (330 . <图元名: 40085c10>)
(5 . "5F1") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (6 .
"Continuous") (100 . "... [/B]

唉，你这样比较要看多少！给你指出两个吧

-1  组码，实体名称

5 句柄

自由的鱼

哦，是这样，那那也就是说在删除重复图元的时候，只要任意留下一个，其他相似的句柄的图元我就将其删除，那如果是多段线的话还要比较各顶点的坐标，是完全一样就删除，那还真有点麻烦，因为图中的图元类别太多了，：）

eachy

最初由 自由的鱼 发布
[B]哦，是这样，那那也就是说在删除重复图元的时候，只要任意留下一个，其他相似的句柄的图元我就将其删除，那如果是多段线的话还要比较各顶点的坐标，是完全一样就删除，那还真有点麻烦，因为图中的图元类别太多了，：... [/B]

如果你将两个图元的 entget 表去除 -1  5 两个子表，再比较下结果会是什么？这里不用考虑类别的。

自由的鱼

不用考虑类别？也就是说去除-1 5两个子表，其余子表相同就删除图元，是这样吗？操作表是LISP的强项，VBA可能就麻烦一些，：）

studingCAD

eachy大师~
我拿下来,结果的乱码~?

自由的鱼

乱码？那是编译过的，：）

llr-2000

就一个rmt.VLX文件 怎么用啊？

eachy

最初由 llr-2000 发布
[B]就一个rmt.VLX文件 怎么用啊？ [/B]

用 appload 加载，然后输入 1 楼的命令

adsl1

好,我要删除重复的东东

hi71400

图大了以后，很慢！建议：能不能算法上作点改进。
比方
先将选择集按图元类别分组，再，按同类处理……。

eachy

最初由 hi71400 发布
[B]图大了以后，很慢！建议：能不能算法上作点改进。
比方
先将选择集按图元类别分组，再，按同类处理……。 [/B]

这是个旧版本，在Lisp论坛找最新的删除重复图元版本，速度飞快。