A place FOR CAD users BY CAD users
https://mail.cadforum.net/
It didn't give me any errors but in the summary it said the files failed. And if I went into the files I ran the macro on the units weren't changed. Does CAD+ only save it if the SW gives a save warning? The reason I am asking is b/c I noticed if I change the units and close the document it won't give a save warning neither will it save it.
Code: Select all
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim BoolStatus As Boolean
Dim SystemOfUnits As Integer
Dim DualSystemOfUnits As Integer
Dim PrimaryLengthDecPlaces As Integer
Dim AngularUnits As Integer
Dim MassDecPlaces As Integer
Dim DualLengthDecPlaces As Integer
Dim AngularDecPlaces As Integer
Dim DecimalRoundingMethod As Integer
Dim TimeDecPlaces As Integer
SystemOfUnits = swUnitSystem_e.swUnitSystem_IPS
DualSystemOfUnits = swMM
PrimaryLengthDecPlaces = 3
DualLengthDecPlaces = 1
AngularUnits = swDEGREES
AngularDecPlaces = 0
MassDecPlaces = 3
DecimalRoundingMethod = swUnitsDecimalRounding_e.swUnitsDecimalRounding_HalfAway
TimeDecPlaces = 2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
If swModel Is Nothing Then
swApp.SendMsgToUser2 "No drawing document open.", swMessageBoxIcon_e.swMbStop, swMessageBoxBtn_e.swMbOkCancel
Exit Sub
End If
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitSystem, 0, SystemOfUnits)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinear, 0, DualSystemOfUnits)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsLinearDecimalPlaces, 0, PrimaryLengthDecPlaces)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDualLinearDecimalPlaces, 0, DualLengthDecPlaces)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsAngular, 0, AngularUnits)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsAngularDecimalPlaces, 0, AngularDecPlaces)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsMassPropDecimalPlaces, 0, MassDecPlaces)
BoolStatus = swModel.Extension.SetUserPreferenceInteger(swUserPreferenceIntegerValue_e.swUnitsDecimalRounding, 0, DecimalRoundingMethod)
End SubCould you attach your file to check.loebotomy@gmail.com wrote: ↑Sat Feb 12, 2022 5:37 pm I have the following code that works on one file. It works, but has the strange effect of turning on Scene Shadows and Reflections for inactive configurations.
Have used the cods you posted earlier and now even with this macro I see no changes in the model. Can you post pictures/video showing before and after?loebotomy@gmail.com wrote: ↑Sun Feb 13, 2022 6:04 pm Try this swp with the part I attached earlier. Here it is:
I've been unsuccessfully looking for a similar application with a different function.: A simple macro (or something similar) to change all the documents' units of measure in an assembly to MMGS. Any suggestions or pointers?Jaylin Hochstetler wrote: ↑Tue May 04, 2021 5:00 pm I need a macro to open each component in an assembly and change the document units to 0.123.
I tried but my programming knowledge is simply too limited.
Thanks in advance!