为vb中的每个循环在相同的实体上应用相同的颜色

Question

下面的代码将随机颜色应用于程序集中的所有组件，而不管每个组件的名称相同或不同。程序集可能有相同的命名组件打包在一起。我只想在tempComp.DisplayName相同的时候涂上相同的颜色。我不知道如何在循环运行或以某种方式存储名称时检查名称并进行比较。任何帮助都将不胜感激。

        Dim i as integer = 0
    For Each tempComp As Assemblies.Component In myAsmInfo.AllComponents
        lw.WriteLine(tempComp.DisplayName & " | Color ID:" & i)
        ''' Select random color between 1 to 216
        i = CInt(Math.Ceiling(Rnd() * 216)) + 1

        Dim markId1 As NXOpen.Session.UndoMarkId = Nothing
        markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Edit Object Display")

        Dim displayModification1 As NXOpen.DisplayModification = Nothing
        displayModification1 = theSession.DisplayManager.NewDisplayModification()

        displayModification1.ApplyToAllFaces = True

        displayModification1.ApplyToOwningParts = False
        'lw.WriteLine("Color Before " & i)
        displayModification1.NewColor = i

        Dim objects1(0) As NXOpen.DisplayableObject

        objects1(0) = tempComp
        displayModification1.Apply(objects1)

        Dim nErrs1 As Integer = Nothing
        nErrs1 = theSession.UpdateManager.DoUpdate(markId1)

       ' lw.WriteLine("Color After " & i)
        displayModification1.Dispose()            

    Next 

Answer 1

考虑到您需要在名称旁边存储tempComp.DisplayName和一个数值，您需要使用一个Dictionary (Of String, Integer)来保存这些值。

在启动For循环之前，添加以下行：

Dim coloursDictionary As New Dictionary(Of String, Integer)

在For循环中，在决定要分配的颜色时：

If coloursDictionary.ContainsKey(tempComp.DisplayName) Then
    i = coloursDictionary(tempComp.DisplayName)
Else
    i = CInt(Math.Ceiling(Rnd() * 216)) + 1
    coloursDictionary(tempComp.DisplayName) = i
End If