[求助]如何用VBA删去CAD中的重复块

wycl8

问题已解决！谢谢各位！！

chtd

要是一次性插入的块，不是后来修改的话，应该不会存在块比例、旋转角度不同的问题，只要考虑块名就行了。

我的方法是选择多有块生成选择集sset1，再根据sset1中的每个块的坐标为基点，做一个新的选择集（半径为定值的圆范围），对该选择集内的要素进行类型与名称的比较。这样不仅能查出坐标完全相同的重复块，而且可以查出距离非常接近的块，并且比进行全图要素的比较要快的多。

wycl8

谢谢楼上！