hexagon logo
Register Sign in
  • Replies 32 replies
  • Subscribers 223 subscribers
  • Views 511 views
  • Users 0 members are here
Options
Related

Need help!!! Need Out Of Tol warning pop-up

daberger
I have been having an issue with our night shift operators that cant seem to read their reports before sending them along to the next op. AngryAngryAngryAngry This is the 3rd time that parts have been sent back because a bad report was sent to a customer. Each group that is returned has to be 100% inspected, costing 20+ hours of inspection time. This has got to stop. I was wondering if there was a way to make a dialog box pop up if a dimension registers out of tolerance. Anything would help!

I greatly appreciate any help.
Parents
  • There's a script kicking around which analyses how many out tol dims, which could be modified to give a warning, much better than hard coding for every dimension in every program.


    Sub Main()

    'this *.bas is a simple, modified version of the outtol.bas whose author I do not know
    'if any one knows the author credit them here
    '
    'craig

    Dim objApp As Object
    Set objApp = CreateObject("PCDLRN.Application")
    Dim objPart As Object
    Set objPart = objApp.ActivePartProgram
    Dim objCmds As Object
    Set objCmds = objPart.Commands
    Dim objCmd As Object
    Dim objDimCmd As Object
    Dim lngOutTol As Long
    lngOutTol = 0
    Dim lngTotalMeas As Long
    lngTotalMeas = 0
    Dim objOutTol As Object
    Set objOutTol = objPart.GetVariableValue("NUMBEROUTTOL")
    Dim objTotalMeas As Object
    Set objtTotalMeas = objPart.GetVariableValue("TOTALMEASURED")


    For Each objCmd In objCmds
    If objCmd.IsDimension Then
    If objCmd.Type <> DIMENSION_START_LOCATION And _
    objCmd.Type <> DIMENSION_END_LOCATION And _
    objCmd.Type <> DIMENSION_TRUE_START_POSITION And _
    objCmd.Type <> DIMENSION_TRUE_END_POSITION Then
    Set objDimCmd = objCmd.DimensionCommand
    If objDimCmd.OutTol > 0 Then
    lngOutTol = lngOutTol + 1
    End If
    lngTotalMeas = lngTotalMeas + 1
    End If
    End If
    Next objCmd

    objOutTol.LongValue = lngOutTol
    objtTotalMeas.LongValue = lngTotalMeas
    objPart.SetVariableValue "NUMBEROUTTOL", objOutTol
    objPart.SetVariableValue "TOTALMEASURED", objtTotalMeas

    End Sub



    Note - this only works for Legacy dimensions, NOT FCF's
Reply
  • There's a script kicking around which analyses how many out tol dims, which could be modified to give a warning, much better than hard coding for every dimension in every program.


    Sub Main()

    'this *.bas is a simple, modified version of the outtol.bas whose author I do not know
    'if any one knows the author credit them here
    '
    'craig

    Dim objApp As Object
    Set objApp = CreateObject("PCDLRN.Application")
    Dim objPart As Object
    Set objPart = objApp.ActivePartProgram
    Dim objCmds As Object
    Set objCmds = objPart.Commands
    Dim objCmd As Object
    Dim objDimCmd As Object
    Dim lngOutTol As Long
    lngOutTol = 0
    Dim lngTotalMeas As Long
    lngTotalMeas = 0
    Dim objOutTol As Object
    Set objOutTol = objPart.GetVariableValue("NUMBEROUTTOL")
    Dim objTotalMeas As Object
    Set objtTotalMeas = objPart.GetVariableValue("TOTALMEASURED")


    For Each objCmd In objCmds
    If objCmd.IsDimension Then
    If objCmd.Type <> DIMENSION_START_LOCATION And _
    objCmd.Type <> DIMENSION_END_LOCATION And _
    objCmd.Type <> DIMENSION_TRUE_START_POSITION And _
    objCmd.Type <> DIMENSION_TRUE_END_POSITION Then
    Set objDimCmd = objCmd.DimensionCommand
    If objDimCmd.OutTol > 0 Then
    lngOutTol = lngOutTol + 1
    End If
    lngTotalMeas = lngTotalMeas + 1
    End If
    End If
    Next objCmd

    objOutTol.LongValue = lngOutTol
    objtTotalMeas.LongValue = lngTotalMeas
    objPart.SetVariableValue "NUMBEROUTTOL", objOutTol
    objPart.SetVariableValue "TOTALMEASURED", objtTotalMeas

    End Sub



    Note - this only works for Legacy dimensions, NOT FCF's
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement