Hi,
I have a macro from Deepak Gupta that changes mass properties from grams to kilograms.
Can someone modify that macro and set a function that will change decimal numbers and set them to check how many decimals are written and then set them to 2 decimals?
Like: 1,142358 to 1,14
Here is that old macro:
' Mass_Section Properties (Mass) ---------------------------------06/08/10
' ******************************************************************************
' Macro will change the Mass units for Mass/Section Properties from Grams to Kilograms
' or vice versa
' ------------------------------------------------------------------------------
' Written by: Deepak Gupta (http://gupta9665.wordpress.com/)
' ------------------------------------------------------------------------------
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
' Set the Unit system to Custom
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, swUnitSystem_Custom)
' Get/Check Mass/Section Properties - Mass - Unit, if Grams
If (Part.Extension.GetUserPreferenceInteger(swUnitsMassPropMass, 0) = 2) Then
' Change to Kilograms
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, 3) '
Else
' Else keep or set to Grams
boolstatus = Part.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropMass, 0, 2)
End If
End Sub
SolidworksApi macros