Macro-eenheidsverandering

3D Design
1

Hallo
Ik wil weten of iemand een macro heeft om de eenheden van het document te veranderen.
Stel bijvoorbeeld in tekening de lengte-eenheden in op "Geen" zonder de documenteigenschappen te doorlopen.
Bedankt

1 like
2

Te goed idee, mijn stukken (sjabloon) wisselen regelmatig van eenheid :roll_eyes:
Heel goed idee voor deze macro

3

Hallo;
Om het aantal decimalen in lineaire dimensies te veranderen...

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

met:

En om de soorten eenheden te veranderen (metrisch/imperial...)

4

Enorm groot met deze macro.
Het is precies wat ik wilde, ik zette 0 aan het einde van de laatste regel en dat was het!
Een paar minuten extra gewonnen aan het einde van de dag.

Hartelijk dank