Macro changement d'unité

3D Design
1

Bonjour,
je souhaite savoir si quelqu’un aurait une macro pour changer les unités du document.
Par exemple en mise en plan mettre les unités de longueur sur " Aucune" sans passer par les propriétés du document.
Merci

1 « J'aime »
2

Trop bonne idée, mes pièces (template) change d’unité régulièrement :roll_eyes:
Très bonne idée cette macro

3

Bonjour;
Pour modifier la quantité de décimales dans les cotes linéaires…

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As ModelDoc2
    Dim swModelExtension As ModelDocExtension
    
    Set swApp = Application.SldWorks '
    Set swModel = swApp.ActiveDoc
    
    If Not swModel Is Nothing Then
        Set swModelExtension = swModel.Extension
        swModelExtension.SetUserPreferenceInteger swUserPreferenceIntegerValue_e.swUnitsLinearDecimalPlaces, swUserPreferenceOption_e.swDetailingNoOptionSpecified, 2 'Valeur à modifier exemple :2=2 decimales...
    End If
End Sub

avec:

Et pour changer les types d’unité ( métrique/impérial…)

4

Enorme cette macro.
C’est exactement ce que je voulais, j’ai mis 0 en bout de dernière ligne et le tour est joué!
Encore quelques minutes de gagné en fin de journée.

Merci beaucoup