This is a recorded macro (I know... I know...)

Solidworks 2013

I want to turn on Dual Dimensions and have them appear to the right.

When I run this macro, for some reason they show up formatted TOP.

Here is what I have...

= =

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swDetailingDualDimensions, swUserPreferenceOption_e.swDetailingDimension, True)

boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swDetailingDualDimPosition, swUserPreferenceOption_e.swDetailingDimension, swDetailingDualDimPosition_e.swDualDimensionsOnRight)

End Sub

ps: When I go into Options -> Doc Properties -> Dimensions

Everything is set correctly.

As an addendum, this is to change an existing drawing that was formatted with only IPS units.

We were instructed to change every existing drawing to Dual Display.

Please advise..