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?
I wrote several MVBA code as below link:
The set working unit code is as below:
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
Dim myUnit As MeasurementUnit
myUnit.System = msdMeasurementSystemMetric
myUnit.Base = msdMeasurementBaseMeter
myUnit.Label = "mm"
myUnit.UnitsPerBaseDenominator = 1
myUnit.UnitsPerBaseNumerator = 1000
ActiveModelReference.MasterUnit = myUnit
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,
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.