[VBA]几个VBA的简单问题，可是……

68651521

废话不多说

1：能通过VBA编制程序 按块的名字 统计出块的数量吗？

      例如：有一个名叫AAA的块  图中一共出现15次 那程序就返回 15

2：    Set ss2 = ThisDrawing.SelectionSets.Add("TEST")

      程序中包含了这样的语句 该程序执行过后（正常结束） 就不能执行第二次了 卡在上面这句 好象是已经有了TEST这个集 不能重复添加 请问如何释放？ 加了 Set ss2 = Nothing 还是这样……

有人拉小菜鸟一把吗？

dragonboy

on error resum next

On Error Resume Next
 ' Delete the Selection Set if it Exists
 If Not IsNull(ThisDrawing.SelectionSets.Item("xxx")) Then
    Set sset = ThisDrawing.SelectionSets.Item("xxx")
    sset.Delete
 End If

songzhi

这些问题的答案都出现在张帆编辑的那本书上，叫《VBA开发精彩实例》上面，看看那个也不错的。