Use Document's Units Code

The below macro will change all the *preselected* dimensions to 1/16th fractional.

Ken

'****************************************************************************** ' Fractional.swb '****************************************************************************** Dim swApp As Object Dim swModel As Object Dim swSelMgr As Object Dim selCount As Integer Dim selType As Integer Dim retval As Variant Dim CurrentSelDimension As Object Dim boolstatus As Boolean Dim useDoc, roundToFraction As String Dim uType, fractBase, fractDenom As Long Dim i As Integer

Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc

If swModel.GetUserPreferenceIntegerValue(swUnitsLinear) swINCHES Then boolstatus = MsgBox("Program only works for files with INCH Primary" & Chr(13) & _ "Units in the Doument Settings." & Chr(13) & _ "Ending routine.", vbExclamation) End End If

useDoc = False 'TRUE=Use the document settings for units uType = swINCHES 'Set to Inches fractBase = swFRACTION 'Set to Fractions fractDenom = 16 'Denominator Base unit roundToFraction = True 'TRUE rounds values to the nearest fraction, FALSE displays fractions only if the values are exact

Set swSelMgr = swModel.SelectionManager() selCount = swSelMgr.GetSelectedObjectCount()

If (selCount > 0) Then For i = 1 To selCount selType = swSelMgr.GetSelectedObjectType2(i) If (selType = swSelDIMENSIONS) Then Set CurrentSelDimension = swSelMgr.GetSelectedObject3(i) CurrentSelDimension.SetDual True CurrentSelDimension.SetUnits useDoc, uType, fractBase, fractDenom, roundToFraction End If Next End If

swModel.ClearSelection2 True swModel.GraphicsRedraw2 End Sub

thanks ken - the code you gave me worked like a charm