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 static/image/common/back.gif
谢谢大家！

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

菜鸟的萌 发表于 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 static/image/common/back.gif


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

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

陈进佳 发表于 2016-2-20 17:02 static/image/common/back.gif


(setq lst(vl-remove-if '(lambda(x)(or(=(car x)-1)(=(car x)5)(=(car x)8)(=(car x)330)))lst))你好这个为什么要选择这几个组码呢
页: [1] 2
查看完整版本: 请教各位高手，怎样把完全重复的两条多段线查找出来？