CAD_VBA中的选择集过滤