AnsweredAssumed Answered

Tolerance values don't change when loaded from style

Question asked by Fabio Turrini on Nov 26, 2020
Latest reply on Dec 1, 2020 by Andrea Orlando

Like • Show 0 Likes0
Comment • 1

I have many tolerance styles that I load from the button .

But when I apply the style to dimensions:

with:

and change the diameter value from Ø10 to Ø100, the tolerance don't change:

when the correct value is:

I have many damaged drawings, how can I correct them ?

Thanks.

PS: SolidWorks 2018, but I suspect this problem is present in older and newer version.

1 person has this question

Outcomes

1 Reply

Andrea Orlando Dec 1, 2020 5:05 AM

I am looking for a solution via a macro:

Dim swApp   As SldWorks.SldWorks        ' Oggetto Applicazione SolidWorks.

Sub Main()
    Debug.Print "INITIALIZING (" & Now() & ")"
    
    Set swApp = Application.SldWorks
    
    Dim swModel                 As SldWorks.DrawingDoc
    Dim swDraw                  As SldWorks.DrawingDoc
    Dim vSheetName              As Variant
    Dim iSheetsNumber           As Integer: iSheetsNumber = 0
    Dim swSheet                 As SldWorks.Sheet
    Dim sFirstSheetName         As String
    Dim swCurrentView           As SldWorks.View
    Dim i                       As Integer: i = 0
    Dim bRet                    As Boolean: bRet = False
    Dim sCurrentSheetName       As String
    Dim vViews                  As Variant
    Dim vView                   As Variant
    Dim swView                  As SldWorks.View
    Dim vAnnotation             As Variant
    Dim oAnnotation             As Variant
    Dim swAnnotation            As SldWorks.Annotation
    Dim swDisplayDimension      As SldWorks.DisplayDimension
    Dim swDimension             As SldWorks.Dimension
    Dim swDimensionTolerance    As SldWorks.DimensionTolerance
    Dim dMaxValue               As Double
    Dim dMinValue               As Double
    Dim lMaxValueValid          As Long
    Dim lMinValueValid          As Long
    
    ' Imposta il modello e disegno corrente
    Set swModel = swApp.ActiveDoc
    Set swDraw = swApp.ActiveDoc
    
    ' Ottiene l'elenco dei fogli
    vSheetName = swDraw.GetSheetNames
    If IsEmpty(vSheetName) Then
        'SendMsgToUserInternal "ATTENZIONE: Non sono presenti fogli da elaborare, devo abortire.", _
        '    swMessageBoxIcon_e.swMbStop, _
        '    swMessageBoxBtn_e.swMbOk
        
        Exit Sub
    End If
    
    iSheetsNumber = UBound(vSheetName) + 1
    Debug.Print "SHEETS QTY     : " & iSheetsNumber
    
    ' Si ricorda di qual'e' il foglio corrente.
    Set swSheet = swDraw.GetCurrentSheet
    sFirstSheetName = swSheet.GetName
    Debug.Print "INITIAL SHEET  : " & sFirstSheetName
    
    Set swCurrentView = Nothing ' Per default la vista corrente e' nulla.
    For i = 0 To UBound(vSheetName)
        'CheckLoop   ' Controlla i loop infiniti.
        
        ' Imposta il foglio corrente
        bRet = swDraw.ActivateSheet(vSheetName(i))
        
        ' Zoom al cartiglio
        swModel.Extension.ViewZoomToSheet
        
        Set swSheet = swDraw.GetCurrentSheet
        sCurrentSheetName = swSheet.GetName
        Debug.Print "CURRENT SHEET  : " & sCurrentSheetName
        
        ' Controlla tutte le viste.
        vViews = swSheet.GetViews
        If Not IsEmpty(vViews) Then
            For Each vView In vViews
                'CheckLoop   ' Controlla i loop infiniti.
                
                Set swView = vView
                If swView.GetVisible = 1 Then
                    Debug.Print "CURRENT VIEW   : " & swView.Name
                    vAnnotation = swView.GetAnnotations
                    If Not IsEmpty(vAnnotation) Then
                        For Each oAnnotation In vAnnotation
                            Set swAnnotation = oAnnotation
                            If swAnnotation.GetType = swAnnotationType_e.swDisplayDimension Then
                                Debug.Print "DIM. NAME      : " & swAnnotation.GetName
                                
                                Set swDisplayDimension = swAnnotation.GetSpecificAnnotation
                                'debug.print "Is DimXpert ?  : " & IIf(swDisplayDimension.IsDimXpert = False, "False", "True")
                                If swDisplayDimension.IsDimXpert = False Then
                                    Set swDimension = swDisplayDimension.GetDimension2(0)
                                    Set swDimensionTolerance = swDimension.Tolerance
                                    
                                    If swDimensionTolerance.Type = swTolType_e.swTolFIT _
                                    Or swDimensionTolerance.Type = swTolType_e.swTolFITTOLONLY _
                                    Or swDimensionTolerance.Type = swTolType_e.swTolFITWITHTOL Then
                                        Debug.Print "STYLE          : " & swAnnotation.GetStyleName
                                        If swDimensionTolerance.GetShaftFitValue <> "" Then Debug.Print "SHAFT TOLL.    : " & swDimensionTolerance.GetShaftFitValue
                                        If swDimensionTolerance.GetHoleFitValue <> "" Then Debug.Print "HOLE TOLL.     : " & swDimensionTolerance.GetHoleFitValue
                                        'Debug.Print swDimensionTolerance.Type
                                        lMaxValueValid = swDimensionTolerance.GetMaxValue2(dMaxValue)
                                        lMinValueValid = swDimensionTolerance.GetMinValue2(dMinValue)
                                        Debug.Print "DIM. VALUE/TOLL: " & swDimension.Value & "(" & dMaxValue & "/" & dMinValue & ")"
                                        'Debug.Print "Maximum dimension tolerance: " & dMaxValue & ":" & IIf(lMaxValueValid = swDimensionToleranceWarning_e.swDimensionTolerance_ValidForType, "VALIDO", "ERRATO")
                                        'Debug.Print "Minimum dimension tolerance: " & dMinValue & ":" & IIf(lMinValueValid = swDimensionToleranceWarning_e.swDimensionTolerance_ValidForType, "VALIDO", "ERRATO")
                                        'Debug.Print swDimension.IsReference
                                        'Debug.Print swDimension.DrivenState
                                        Debug.Print "DRIVEN DIM.    : " & IIf(swDimension.DrivenState = 2, "VERO", "FALSO")
                                        Debug.Print "----------------------------------------"
                                    End If
                                End If
                            End If
                        Next
                    End If
                End If
            Next
        End If
    Next i
    
    Debug.Print "CLEAN EXIT"
End Sub

My goal is to identify if tolerance is wrong.

At this moment, I am reading all the dimensions, relative tolerances and even if they have a style applied (which however is irrelevant).

But I have a problem: how do I know the correct tolerance deviation?

I have searched a lot on the internet, but I can't find an API that helps me calculate the correct tolerance values.

Is there anyone who can help me?

Thanks.

Actions

Tolerance values don't change when loaded from style

Outcomes

Related Content

Recommended Content