20 选择一样的图形

我对图形的使用是这样的

用一些一样的图形 代表某个一类的数据
比如 长方形 表示变压器，线条表示电线 

可能有些这样的需求

我点一个长方形，就要自动选择所有的长方形

点一个电线，就把所有的电压 都显示出来

这个主要是对图片的类型在操作  已经一个add  或者select操作

 

Dim i As Integer

Dim MyType As Integer

MyType = ThisDisplay.SelectedSymbols.Item(1).Type

For i = 1 To ThisDisplay.Symbols.Count

    If ThisDisplay.Symbols.Item(i).Selected = False Then

        If ThisDisplay.Symbols.Item(i).Type = MyType Then

            ThisDisplay.SelectedSymbols.Add ThisDisplay.Symbols.Item(i).Name

        End If

    End If

Next i

我个人比较喜欢 select  一个true搞定