请教各位高手，怎样把完全重复的两条多段线查找出来？

mycad · 发表于 2016-2-20 08:44:33

请教各位高手，怎样把完全重复的两条多段线查找出来？谢谢！

陈进佳 · 发表于 2016-2-20 16:44:26

移除组码来实现

陈进佳 · 发表于 2016-2-20 17:02:06

(defun c:tt();大部分实体查重
(setq lst(entget(setq en(car(entsel"\n请选择要查询的实体：")))))
(setq lst(vl-remove-if '(lambda(x)(or(=(car x)-1)(=(car x)5)(=(car x)8)(=(car x)330)))lst))
(setq ss(ssdel en(ssget "x" lst)))
(if (ssname ss 0)
(progn
(sssetfirst nil ss)
(setq mm(strcat "\n共有"(itoa(sslength ss))"个实体与其完全重合"))
(princ mm)
)
(alert "\n没有重复实体")
)
(prin1)
)

mycad · 发表于 2016-2-20 20:09:14

谢谢大家！

陈进佳 · 发表于 2016-2-21 14:12:53

mycad 发表于 2016-2-20 20:09
谢谢大家！

明明就我一个，怎么。。。。。。。。

菜鸟的萌 · 发表于 2016-2-22 08:13:26

好帖学习学习

haotaer · 发表于 2016-2-22 16:55:37

楼主辛苦啦！楼主好人啊

haotaer · 发表于 2016-2-22 16:57:08

楼主辛苦啦！楼主好人啊
楼主辛苦啦！楼主好人啊

林霄云 · 发表于 2016-2-22 18:58:01

陈进佳发表于 2016-2-20 17:02

很精妙的利用ssget。想请教大师，去除-1 5 8 330组码的考量是？

菜鸟的萌 · 发表于 2016-2-22 20:32:25

陈进佳发表于 2016-2-20 17:02

(setq lst(vl-remove-if '(lambda(x)(or(=(car x)-1)(=(car x)5)(=(car x)8)(=(car x)330)))lst))你好这个为什么要选择这几个组码呢

账号		自动登录	找回密码
密码			注册

[基础] 请教各位高手，怎样把完全重复的两条多段线查找出来？