Cannot change Working Units Labels using MVBA

The following VBA code works for me.

Sub SetUnit()
    CadInputQueue.SendKeyin "set units ""US Survey Feet""  ""US Survey Inches"""
    CadInputQueue.SendKeyin "SET STORAGEUNIT US Survey Foot"
    CadInputQueue.SendKeyin "FILEDESIGN"
End Sub

Have a look at the units definition file
C:\Program Files\Bentley\MicroStation CONNECT Edition\MicroStation\Default\Data\Units.def

Thank you, Leonard.  How about your unit labels.  Your VBA is setting them to SF and SI.  Do you have code that set them to ' and "?

Warren Malveau said:

Do you have code that set them to ' and "

Please clarify what you are asking.  Leonard's response seems to match your requirement, stated in your first post.

PMFJI...

That code sets the actual units to survey feet, but it doesn't change the way the units will be labeled (in dimensions and measurements). The Survey Feet units will be labeled with SF (as in 100SF) but I believe the OP is looking to change that label to ' (as in 100').

MaryB said:

I believe the OP is looking to change that label to ' (as in 100').

Thanks!  We metric folks get confused easily.

I think that Leonard's suggestion about the Units.def file may be promising.  Here are two relevant extracts...

# Label:
# Used to specify the default label for coordinate readout and dimensioning.  A list of
# labels can be provided but only the first is used by V8.  The other labels are used
# when loading a V7 format file, in which case the label for the V7 file's master unit
# will be matched against all the labels that are provided.

si,in,";  _[SYSTEM]_; _[SYSTEM]_; 39370.0; 1000.0;1;  3#US Survey Inches
sf,ft,';  _[SYSTEM]_; _[SYSTEM]_; 39370.0; 12000.0;1;  3#US Survey Feet  

If I've understood that description, then by changing the order of the comma-separated labels the OP should achieve his goal...

",si,in;  _[SYSTEM]_; _[SYSTEM]_; 39370.0; 1000.0;1;  3#US Survey Inches
',sf,ft;  _[SYSTEM]_; _[SYSTEM]_; 39370.0; 12000.0;1;  3#US Survey Feet  

It's worth a try and involves no programming.

Changing the order of the labels in UNITS.DEF is the way to go.  Works perfectly!

Thanks guys.