How can I change all the models in a file to the same annotation scale at one time?
Better yet I would like to be able to select certain models in the model dialog and choose the desired scale.
Is there a way to achieve this or do I need to file a CR?
I would look into Project Explorer (PE) and Element Information to do this. There is a small caveat to this though. For us to know about a models annotation scale it must first be read into memory. So you must open each model, you can do this by double clicking on the models in PE. Once you have them in memory select the models you want to change and then right click choose properties. In element information you should be able to change the models annotation scale.
Unknown said: So you must open each model, you can do this by double clicking on the models in PE.
So you must open each model, you can do this by double clicking on the models in PE.
Presumably this is individually, unless we can now open muliple models at once.
Stuart,
When a fiel is opened we only read the active model into memory. As you open more models from the same file we retain certain parts of the models in memory. You would need to open each model in the same session. Once this is done we have enough information to allow you to change multiple annotation scales at once.
Right now I can be in any model in a file and open the model dialog, select a model and then select properties and change the annotation scale. There is no need to open multiple models or files. Wouldn't be ideal if you could select the models as if you were selecting file in windows explorer and then be able to change the annotation scale through properties? Going through PE is not an easier solution
Kirk
I Wish Cadland was Reality
Hi Kirk,
Maybe Axiom could be a good help !
http://axiomint.com/microstation/garage/#changer
Regards,
Fabrice
Kirk,
The key-in command MODEL SET ANNOTATIONSCALE will help if you want to write a little script/vba to do this.
To change annotation scale to 1:20 the key-in is: MODEL SET ANNOTATIONSCALE 20
To change annotation scale to 1":20' the key-in is: MODEL SET ANNOTATIONSCALE 240
It's relatively simple in VBA to iterate through and active each model in a dgn file.
So the macro could be something as simple as
Sub ChangeModelScale()
Dim myModel As ModelReference
For Each myModel In ActiveDesignFile.Models
myModel.Activate
CadInputQueue.SendKeyin "MODEL SET ANNOTATIONSCALE 20"
Next
End Sub
I'm thinking I might put a menu interface on the front of this and let the user choose the scale along with which models to update then make it available as one of our free monthly macros.
Rod Wing
Rod WingSenior Systems Analyst
Thanks Rod
I haven't toyed w\ vba. I would like to see you post this. Keep me in the loop
Hi Rod,
That would be an awesome app bro!
You got my vote.
Lorys Lea
Lorys
Started msnt work 1990 - Retired Nov 2022 ( oh boy am I old )
But was long time user V8iss10 (8.11.09.919) dabbler CE update 16 (10.16.00.80)
MicroStation user since 1990 Melbourne Australia.click link to PM me