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
Hi Richard,
Richard Phillips said: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?
Richard Phillips said:Levelmanager how to just simply turn off the override color
In my opinion it can be done easily manually in Level Manager:
Richard Phillips said:I tried more key-in
I think, it you want to change all levels, it cannot be done using key-ins only.
Richard Phillips said: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
Bentley Accredited Developer: iTwin Platform - AssociateLabyrinth Technology | dev.notes() | cad.point
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
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
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