Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

We had similar problems with hightlight sets a couple of time ago, 
we don't use it anymore, instead we use color override from face.
I guess  through the pick command, when selecting an 2time, 'the color overwrite from the face that is attached from highlight set is reset/clear '
(the .pick has some hidden functions : like its return always an proxy if you use it on assembly environment))
here's an small snippet from our code : (in your case, after the command you want the face back in de original collor -- > store value first or use Face.AppearanceSourceType Property to set the override to bodyappearance.

Dim docAsset As Assets
docAsset = partDoc1.Assets

Dim oAppearanceGreen As Asset

oAppearanceGreen = docAsset.Add(AssetTypeEnum.kAssetTypeAppearance, "Generic", "AppearencesGreen", "New AppearenceGreen")

Dim generic_color_green As ColorAssetValue
generic_color_green = oAppearanceGreen.Item("generic_diffuse")
generic_color_green.Value = oTG.CreateColor(0, 128, 0) ' Groen
Dim oAppearanceYellow As Asset

oAppearanceYellow = docAsset.Add(AssetTypeEnum.kAssetTypeAppearance, "Generic", "AppearencesYellow", "New AppearenceYellow")

Dim generic_color_yellow As ColorAssetValue
generic_color_yellow = oAppearanceGreen.Item("generic_diffuse")
generic_color_yellow.Value = oTG.CreateColor(255, 255, 0) ' Geel


Dim ptx1 As Point = bf.PointOnFace
Dim ptx2 As Point = oppositface.PointOnFace


If ptx1.Y < ptx2.Y Then

bf.Appearance = oAppearanceGreen
oppositface.Appearance = oAppearanceYellow
Else

bf.Appearance = oAppearanceYellow
oppositface.Appearance = oAppearanceGreen

End If