May I know how to turn off overriding function of nominated level (not all level)?
I found the following code the could not work and microstation shut down without any reason.
===========================================================
With ActiveSettings .Level.OverrideColor = False .Level.OverrideLineStyle = ActiveDesignFile.LineStyles.find("") .Level.OverrideLineWeight = False
End With
I have even tried to change "False" to "-1"..... what the number should i put so as to turn it off?
And in turning of LineStyle override, it's more difficult.
To turn off the override colour, you don't use the OverrideColor property; you use the UsingOverrideColor property.
To set it on a nominated level, first specify the level. Eg, if you have a level called 'Kerb Invert', turn if off with:
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.
Hope that helps.