Makro-Einheitenänderung

3D Design
1

Hallo
Ich möchte wissen, ob jemand ein Makro hat, um die Einheiten des Dokuments zu ändern.
Zum Beispiel setze im Zeichnen die Längeneinheiten auf "Nicht", ohne die Dokumenteigenschaften durchzugehen.
Vielen Dank

1 „Gefällt mir“
2

Zu gute Idee, meine Figuren (Vorlagen) wechseln regelmäßig die Einheit :roll_eyes:
Sehr gute Idee für dieses Makro

3

Hallo;
Um die Anzahl der Dezimalstellen in linearen Dimensionen zu ändern...

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

mit:

Und um die Einheitentypen (metrisch/imperial...) zu ändern.

4

Riesig dieses Makro.
Es ist genau das, was ich wollte, ich habe 0 am Ende der letzten Zeile gesetzt und das war's!
Am Ende des Tages noch ein paar Minuten gewonnen.

Vielen Dank