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

Parents
  • 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

  • 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

Reply
  • 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

Children
No Data