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

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.

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.

JosedelBosque over 9 years ago

If you need the steps to add that information to your report, send me a message and I'll post them here
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
BIGWIG7 over 9 years ago

are you the supervisor?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
John Riggins over 9 years ago

Hmmmm... Old man complaining about some young punks walking on his lawn speaking now: Doesn't it seem to anyone else that this is a personnel procedural problem and not a software issue?
How is a programming solution going to solve a human attention issue?
Cripes folks!
Kick some a$$ and take some names!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
dph51 over 9 years ago

Contact

https://Www.monkeypro.com

Lisa Whiteaker - professional monkey trainer.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
April11996 over 9 years ago

Contact

https://Www.monkeypro.com

Lisa Whiteaker - professional monkey trainer.

+1 dph51

We went with Monkeypro.com and now they run our LAB!!! I'm still working on teaching them to program, cause if I can do it.... you know a monkey can.

In all seriousness we went with adding inputs for the CMM operator's clock number, and a note at the end that pops up with either pass / fail and our issues stopped with the employees "missing" the out of tolerance items. OR maybe it was the Monkeys!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
daberger over 9 years ago

I have tried to convince management that this is a discipline problem, but they are convinced that it will not change anything. This is the route they wanted me to look into so I am just trying to make them happy.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
NinjaBadger over 9 years ago

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
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
sealevel over 9 years ago

leave out a few bunches of poisoned bananas in the break room. (may as well send management a couple too)
next day, only thing left to do is haul off the carcasses. its a stern measure, to be sure... but cave monkeys never play nice... so why should you?
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

AndersI over 9 years ago

In the Code section there's my "Count OUTTOL" script, which includes FCF:s - http://www.pcdmisforum.com/showthread.php?30251-Counting-OUTTOL-in-a-program

Just insert the red lines at the indicated end of the script:

  If Not OutTolValue is Nothing Then
    Part.SetVariableValue OutTolVar, OutTolValue
  End If
[COLOR="#FF0000"]
  if (OutTolValue > 0) then
    MsgBox "Some values are out of tolerance! Check the report"
  end if
[/COLOR]
Else
   MsgBox "Variabeln " + OutTolVar + " saknas i PCDMIS-programmet!"

NinjaBadger over 9 years ago

in the code section there's my "count outtol" script, which includes fcf:s - http://www.pcdmisforum.com/showthread.php?30251-counting-outtol-in-a-program

just insert the red lines at the indicated end of the script:
  if not outtolvalue is nothing then
    part.setvariablevalue outtolvar, outtolvalue
  end if
[color="#ff0000"]
  if (outtolvalue > 0) then
    msgbox "ooook ook ook, ooook oooook okkkk! Good boy want a 'nanna?"
  end if
[/color]
else
   msgbox "variabeln " + outtolvar + " saknas i pcdmis-programmet!"

fify