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=7co=6lc=0wt=1' active symbology bylevelm,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
Richard Phillips said: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.
Richard Phillips said:
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
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, helpActiveDesignFile.Levels("Kerb Invert").UsingOverrideColor = False
ActiveDesignFile.RewriteLevelsEnd Sub
This is what happened:
when I pressed debug it hilighted the first line , perhaps I missed something. so appreciate even a 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 LevelsDim 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.RewriteLevelsCadInputQueue.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