求高手给vba代码增加鼠标的框选步骤

dcl1214

诞生此代码的原因:因为我绘图的时候可能图纸中有100个'标记'完全一样的图块,但是这100个中可能'标记'的值有区别(举例说:可能10个块中'位置'标记的值都是"P1",其余90个块中的'位置'标记值可能是P2,所以我需要通过匹配来一次行完成'位置'标记的值;通过匹配一次完成某个标记值一样的所有块),因此诞生了这个代码

目前问题点:1这个vba代码只能在其中的一个dwg图纸中可以用(不能通用)
                  2.这个代码只能通过寻找到了"位置"这个标记后才可以匹配其它的属性值(我想增加一个可以框选的步骤)

期望目标:1.增加鼠标的框选步骤
               2.窗体上增加"鼠标框选"的复选框
              3.代码调整为通用型(只要'标记'一样均可以匹配相同的值)

poly168

可以使用SelectOnScreen功能，可以框选也可以多次选择，选完后右键就可以完成选择，再后再把选择集中的图元一个一个判断是否是要处理的图元

dcl1214

能否帮我改改啊？