Key-in to Toggle between Direction Mode: Azimuth vs Bearing

Is there a key-in available to toggle between Azimuth and Bearing? One less click is huge difference

Parents
  • You had not mentioned which version of MicroStation you are using but I do not believe this would matter as there doesn't appear to be a specific keyin to toggle the Direction Mode setting on the Angle Readout dialog. If you record a VBA macro it shows the keyin Ron mentioned MDL LOAD DGNSET opens this dialog but the following code is used to change this setting.

        If DialogBoxName = "Design File Settings" Then
    
        '   Set a variable associated with a dialog box
        '   This only modifies a few bits of the variable it changes. It first
        '   creates a mask for clearing the bits it will change. Then it gets
        '   the variable and uses the mask to clear those bits. Finally
        '   it sets the desired bits in the value and saves the updated value.
            lngTemp = Not 255
            lngTemp = GetCExpressionValue("dgnSet.directionMode", "DGNSET") And lngTemp
            SetCExpressionValue "dgnSet.directionMode", lngTemp Or 2, "DGNSET"
    
        '   Remove the following line to let the user close the dialog box.
            DialogResult = msdDialogBoxResultOK
    
        End If  ' Design File Settings

       Regards
       Andrew Bell

Reply
  • You had not mentioned which version of MicroStation you are using but I do not believe this would matter as there doesn't appear to be a specific keyin to toggle the Direction Mode setting on the Angle Readout dialog. If you record a VBA macro it shows the keyin Ron mentioned MDL LOAD DGNSET opens this dialog but the following code is used to change this setting.

        If DialogBoxName = "Design File Settings" Then
    
        '   Set a variable associated with a dialog box
        '   This only modifies a few bits of the variable it changes. It first
        '   creates a mask for clearing the bits it will change. Then it gets
        '   the variable and uses the mask to clear those bits. Finally
        '   it sets the desired bits in the value and saves the updated value.
            lngTemp = Not 255
            lngTemp = GetCExpressionValue("dgnSet.directionMode", "DGNSET") And lngTemp
            SetCExpressionValue "dgnSet.directionMode", lngTemp Or 2, "DGNSET"
    
        '   Remove the following line to let the user close the dialog box.
            DialogResult = msdDialogBoxResultOK
    
        End If  ' Design File Settings

       Regards
       Andrew Bell

Children
No Data