- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
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