Zmiana jednostek makro

3D Design
1

Witam
Chciałbym wiedzieć, czy ktoś ma makr, które zmienia jednostki dokumentu.
Na przykład w rysunku ustaw jednostki długości na "Brak" bez przechodzenia przez właściwości dokumentu.
Dziękuję

1 polubienie
2

Za dobry pomysł, moje figurki (szablon) regularnie zmieniają jednostkę :roll_eyes:
Bardzo dobry pomysł tego makro

3

Witam;
Aby zmienić liczbę miejsc po przecinku w wymiarach liniowych...

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

z:

A także do zmiany typów jednostek (metrycznych/imperialnych...)

4

To duże makro.
To dokładnie to, czego chciałem, na końcu ostatniej linii wpisałem 0 i to wszystko!
Kilka dodatkowych minut na koniec dnia.

Dziękuję bardzo