CAD VBA中的选择集过滤