很头疼的问题!!HELP!!!

memory · 发表于 2005-8-5 17:02:00

如何在整个模型中查找重复的图形,并只保留一个.
比如:如图片,有三个圆重合在一起,我想查到的圆中,有重合的都删掉,只保留一个.

memory · 发表于 2005-8-5 17:09:00

很头疼的问题!!HELP!!!

如何在整个模型中查找重复的图形,并只保留一个.
比如:如图片,有三个圆重合在一起,我想查到的圆中,有重合的都删掉,只保留一个.

w04s0b0y1xf.jpg

mikewolf2k · 发表于 2005-8-5 21:03:00

可以遍历每一个是否与这个相同，是的话就删除。不过实现起来很麻烦。另外，如果完全重迭的话，有几个又有什么关系呢？

efan2000 · 发表于 2005-8-5 21:36:00

创建一个选择集，选择所有的圆，然后遍历，再创建一个选择集，选择同一圆心坐标和半径的圆，判断不是这个圆的删除。注意遍历的时候要跳过已经删除的圆。

efan2000 · 发表于 2005-8-5 21:40:00

以上是纯图形的方法，还有一种是创建一个数据库表，字段分别为句柄，圆心，半径。然后创建一个选择集，选择所有的圆，依次将属性填入表中，然后借助表的查询功能，相信不会太难了，查询到要删除的记录时，使用HandleToObject返回对象删除即可。

memory · 发表于 2005-8-6 11:36:00

我试了,不行呀??我是菜鸟.真是头疼!!

cbse_smy · 发表于 2005-8-13 15:43:00

以上方法都不正确,因为光是圆心与半径相同,那么这两个圆不一定相同,因为可能处于不同的平面,因为VBA中只能查看圆心与半径,所以准确的说,现在不好判定!