This is a recorded macro (I know... I know...)
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
Set swApp = _
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)
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.