level override colors off

Win 7 V8i, I have searched found the following but do not seem to understand

ActiveDesignFile.levels("Kerb Invert").UsingOverrideColor=False

And make sure you update the design file with:

ActiveDesignFile.RewriteLevels

Same thing with .UsingOverrideLineStyle and .UsingOverrideLineWeight

Remember that you will only see the effects of an override colour if you have 'Level Overrides' on in Microstation. That can also be changed using code (see the .DisplayLevelSymbology property) .

There is a fair bit of help in the Microstation VBA Help file.

I tried using the VBA record feature , did not work after the record.

All I want to do is opent the level Manager go to overide select all and then turn off. I can do it manually but have to do it very oftern when working on changes to older .dgn files and the overrides mess up changes wanted by my boss. He has specific colors and weights and so on The script files I have 

Example: 

lv=7
co=6
lc=0
wt=1
' active symbology bylevel
m,ms Level 7, 0,7,1 Orange

will not work because the overrides block the color, after reading the above I tried more key-in, could not discover with Levels or Levelmanager how to just simply turn off the override color

I looked in some books my great friend Lorys recommended, did not find Level Override when searching the .pdf books. Part of my probllem is failure to ask the question correct when searching. I also looked in the F1 help which had Level symbology and override properties about printing.  Hope this will help someone help me find the answer

  • Part of my probllem is failure to ask the question correct when searching

    Well, we all have that problem!  Particularly when investigating the dustier corners of MicroStation.

    I suggest that you post your question about level overrides to the MicroStation Forum.  Only when you're satisfied with the answer from the MicroStation gurus should you consider writing a VBA macro.

    ActiveDesignFile.levels("Kerb Invert").UsingOverrideColor=False

    And make sure you update the design file with:

    ActiveDesignFile.RewriteLevels

    When you write VBA, you have a much more detailed view of the innards of MicroStation than as a normal user.  When you change a setting programmatically, usually you must save that change for it to persist.  In the case you cite, MicroStation's level table has changed, and ActiveDesignFile.RewriteLevels ensures that the change will be there the next time you open that DGN file.

     
    Regards, Jon Summers
    LA Solutions

  • Hi Richard,

    All I want to do is opent the level Manager go to overide select all and then turn off.

    Question: Why to simply just to turn off level override display in View Attributes?

    Levelmanager how to just simply turn off the override color

    In my opinion it can be done easily manually in Level Manager:

    1. Set Symbology to Overrides
    2. Choose all elements
    3. In Color column, change the value to Override off
    I tried more key-in

    I think, it you want to change all levels, it cannot be done using key-ins only.

    He has specific colors and weights and so on

    Are references used also? You should be aware that level properties can be changed only for levels in active design file, but to override level properties from references depends on MicroStation configuration and is not possible by default (at least for nested references).

    With regards,

      Jan

  • Thank you Jan, will follow up on this and then reply. Thanks to the VBA record feature I do have a number of routines and all the past tech support from the gurus. I tried the record on the question at hand but never worked. So appreciate folks like you and Lorys who help me so much

    Version: MicroStation V8i SS 10

    RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus

  • Jan, This was the Macro

    Sub TestLVmgr()
    ' 022718 - Recieved from Microstation, help
    ActiveDesignFile.Levels("Kerb Invert").UsingOverrideColor = False

    ActiveDesignFile.RewriteLevels
    End Sub

    This is what happened:

    when I pressed debug it hilighted the first line , perhaps I missed something. so appreciate even a reply

    Version: MicroStation V8i SS 10

    RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus

  • Oh, I put Jan and it was Jon sorry you have given help in the past for sure. There are not Line weights or styles only the colors are being used . Will try and copy this question and find the location you suggested. Thanks

    Version: MicroStation V8i SS 10

    RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus

  • Jan & Jon, after suggestion of where to post my question I searched there for an answer and found the following which worked. I commented out the two lines I did not need but what a blessing. Thanks to all

    Sub Turn_off()
    Dim oLevels As Levels
    Dim oLevel As Level

    ShowStatus "Symbology overrides turning off..."
    CadInputQueue.SendKeyin "level set override color of all"
    CadInputQueue.SendKeyin "level set override style of all"
    CadInputQueue.SendKeyin "level set override weight of all"
    ActiveDesignFile.RewriteLevels
    CadInputQueue.SendKeyin "Up All "

    ShowStatus "All overrides turned off"
    ShowMessage "All overrides are off.", "Symbology overrides are turned off in the active file only."
    End Sub

    Version: MicroStation V8i SS 10

    RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus