MicroStation V8i (SELECTseries 3)
I have to change Format on a number of .dgn file from MU:SU:PU to Std MU and the Accuracy to 0.1234 or 0.0000, I figure there is either a VBA command (not finding) or
a super Key-in command. I asked the question a few various ways did not read any examples I needed. I saw a comment on the "tcb-> command and on MDL ...... nothing.
appeared it was for the above. I also found this command:
Sub Accuracy4()' 122113 Drawing Accuracy setting, TEST ActiveSettings.CoordinateAccuracy = msdAccuracy4 CadInputQueue.SendKeyin "m,ms Set Accuracy 0.0001"End Sub
Did not seem to do anything. Can someone help me on this?
Hello Richard,
I wrote several MVBA code as below link:
https://communities.bentley.com/communities/other_communities/chinafirst/w/chinawiki/30497/mvba
The set working unit code is as below:
https://communities.bentley.com/communities/other_communities/chinafirst/w/chinawiki/30782/30782
Sorry, all contents are in Chinese but code is same. You can use Google translator to turn to English.
well thank you for being willing to help. I will attempt to get a person to assist. on the Goggle translator. Do appreciate
Version: MicroStation V8i SS 10
RJB Phillips III (Richard) Praise the Lord for His Mercy and grace in Christ Jesus
Yongan.Fu So thank you This is what I got, super but I am going to English. I tried to convert your great example
but got lost in the Denominator and Numerator . I had started a new post with much more detail on the settings. Jan did give me the basic information, but I needed the Inches, Custom
Sub SetUnits() Dim myUnit As MeasurementUnit myUnit.System = msdMeasurementSystemMetric myUnit.Base = msdMeasurementBaseMeter myUnit.Label = "mm" myUnit.UnitsPerBaseDenominator = 1 myUnit.UnitsPerBaseNumerator = 1000 ActiveModelReference.MasterUnit = myUnit SaveSettings End Sub
Anyway, I had lost this post and I realized I am way over my head, and did not word the question properly. If I knew the msg stuff you do I think I could get your code to work,
https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/210027/converting-metric-working-units---to-inches-and-custom-setting-in-the-settings-design-file
This link has the correct way to do what I was trying to do, A -G- posted the answer and it worked GREAT !!!!!
SO if it would help anyone else the above link is where it is. Thank you all for any attempt to assist me.