You are currently reviewing an older revision of this page.
Level overrides key-in with nested refsLEVEL SET OVERRIDE COLOR # file:all allThis key-in changes level override color for all levels in all attachedreferences. This doesn't work for nested reference levels.MS_LEVEL_EDIT_NESTED_ATTACHMENT_LEVELS = 1Reference level overrides are 'on' for the file and all references (withkey-in "set refleveloverrides on")
Key-in doesn't work - use macroThe following code proves the concept in VBA:Sub ChangeOverrideColor()' KeyinArguments is Bentley variable to transfer arguments into VBA' for this method it is used to enter file, level and color information:' key-in vba run <(><<)>module>.ChangeOverrideColor [[<(><<)>filefilter>]<(><<)>levelfilter> ]<(><<)>colornumber>' Consider this a PROOF OF CONCEPT only, without warranty!Dim Arguments() As StringDim LevelFilter As StringDim FileFilter As StringDim ColorNr As LongArguments() = Split(KeyinArguments, " ")ColorNr = Val(Arguments(UBound(Arguments)))If UBound(Arguments) > 0 Then LevelFilter = Arguments(UBound(Arguments)- 1) Else LevelFilter = "*"If UBound(Arguments) > 1 Then FileFilter = Arguments(UBound(Arguments) -2) Else FileFilter = "*"ChangeOverrideColor_Models ActiveModelReference, ColorNr, LevelFilter,FileFilterRedrawAllViewsEnd SubPrivate Sub ChangeOverrideColor_Models(CurrentModel As ModelReference,ColorNr As Long, LevelFilter As String, FileFilter As String)Dim CurrentAttachment As AttachmentChangeOverrideColor_Levels CurrentModel, ColorNr, LevelFilter,FileFilterFor Each CurrentAttachment In CurrentModel.AttachmentsChangeOverrideColor_Models CurrentAttachment, ColorNr, LevelFilter,FileFilterNext CurrentAttachmentEnd SubPrivate Sub ChangeOverrideColor_Levels(CurrentModel As ModelReference,ColorNr As Long, LevelFilter As String, FileFilter As String)Dim CurrentLevel As LevelFor Each CurrentLevel In CurrentModel.LevelsIf CurrentLevel.Name Like LevelFilter _And CurrentModel.DesignFile.Name Like FileFilter _Then CurrentLevel.OverrideColor = ColorNrNext CurrentLevelEnd Sub