[Ju...] Posted October 17, 2022 Share Posted October 17, 2022 Prismo Navigator – Vast Head - Integrated Ø400mm Rotary Table - Calypso 5.4.12 (12.12.2012) Is there a way of outputting Cylinder Bore Grades? I assume, if possible, the method would be using PCM? In such the measured diameter would be calculated then assigned the correct letter for the grading. Example, measured Diameter is Ø83.023245, therefore would be assigned the Grade C The Cylinder bore grading spec as follows, GRADE A Ø83.000000 – Ø83.006099 GRADE X Ø83.006100 – Ø83.012099 GRADE B Ø83.012100 – Ø83.018099 GRADE C Ø83.018100 – Ø83.024099 GRADE D Ø83.024100 – Ø83.030099 GRADE E Ø83.030100 – Ø83.036099 GRADE F Ø83.036100 – Ø83.042099 GRADE G Ø83.042100 – Ø83.050099 GRADE 5 Ø83.050100 – Ø83.060000 Note: Nobody here has had PCM training & the software version is quite old, Calypso 5.4.12 (12.12.2012) Thanks Link to comment Share on other sites More sharing options...
[Is...] Posted October 18, 2022 Share Posted October 18, 2022 viewtopic.php?t=10488 Link to comment Share on other sites More sharing options...
[He...] Posted October 18, 2022 Share Posted October 18, 2022 Unfortunately I don't think Israel's solution will work because of the old (ancient) version. I think selectCase came somewhere after Calypso 6.0. But something like this should work. I'm not at a calypso-computer right now so I can't test it. Test it and if it doesn't work just post a message and I or someone else will try to help. This could be input in the presettings of a text element and then the parameter GradeForHole can be used for the formula in the textbox. //Start defining a list with the grade-name, lower and upper limits. Grade_ID[1] = "GRADE A" Grade_Min[1] = 83.000000 Grade_Max[1] = 83.006099 Grade_ID[2] = "GRADE X" Grade_Min[2] = 83.006100 Grade_Max[2] = 83.012099 Grade_ID[3] = "GRADE B" Grade_Min[3] = 83.012100 Grade_Max[3] = 83.018099 Grade_ID[4] = "GRADE C" Grade_Min[4] = 83.018100 Grade_Max[4] = 83.024099 Grade_ID[5] = "GRADE D" Grade_Min[5] = 83.024100 Grade_Max[5] = 83.030099 Grade_ID[6] = "GRADE E" Grade_Min[6] = 83.030100 Grade_Max[6] = 83.036099 Grade_ID[7] = "GRADE F" Grade_Min[7] = 83.036100 Grade_Max[7] = 83.042099 Grade_ID[8] = "GRADE G" Grade_Min[8] = 83.042100 Grade_Max[8] = 83.050099 Grade_ID[9] = "GRADE 5" Grade_Min[9] = 83.050100 Grade_Max[9] = 83.060000 //Since there are gaps between the interval the need to round the input diameter to the 6th decimal place. Change the name of Cylinder123 to the correct one. Diameter_Rounded = round(getActual("Cylinder123").diameter,6) GradeForHole = "Unknown" for i = 1 to 9 if (Diameter_Rounded >= Grade_Min[i]) and (Diameter_Rounded <= Grade_Max[i]) GradeForHole = Grade_ID[i] i = 9 endif next i Link to comment Share on other sites More sharing options...
[Ju...] Posted October 19, 2022 Author Share Posted October 19, 2022 Thanks for your reply. Please excuse my ignorance, but I may have to go step by step. Some additional information, We have four Cylinder bores to grade, the Feature names are (-58MM CYL 1) (-58MM CYL 2) (-58MM CYL 3) (-58MM CYL 4) The (2 point Diameter) Characteristic names are (GAUGE DIA CYL 1) (GAUGE DIA CYL 2) (GAUGE DIA CYL 3) (GAUGE DIA CYL 4) And just to make it more difficult, the grading is to use the MINIUMUM diameter of a 2 Point Diameter calculation. Because of this I suspect the code part of the code.......Diameter_Rounded = round(getActual("Cylinder123").diameter,6) Would be replaced as either...........................................Diameter_Rounded = round(getMinActual("-58MM CYL 1").diameter,6) or.....................................................................................Diameter_Rounded = round(getMinActual("GAUGE DIA CYL 1").actual,6) So, if I am correct, I created a Text element in Characteristics, right clicked and opened Parameter. Copied your code (with changed the Diameter_Rounded line code) and pasted it into the Presettings. The next step is confusing me "and then the parameter GradeForHole can be used for the formula in the textbox" please could you elaborate? See the full code uploaded in the presettings belowcyl bores pcm.jpg Link to comment Share on other sites More sharing options...
[Gu...] Posted October 20, 2022 Share Posted October 20, 2022 Further possibility for a classification with PCM Link to comment Share on other sites More sharing options...
[He...] Posted October 21, 2022 Share Posted October 21, 2022 Please sign in to view this quote. Since it is the minimum diameter from a 2-point diameter you will need to use this (your second option): Diameter_Rounded = round(getMinActual("GAUGE DIA CYL 1").actual,6) With GAUGE DIA CYL 1 being the name och the 2-point diameter characteristic. Creating the text element and pasting the code in presettings is correct. Then select all the code in presettings, right click and choose compute. This will run the code and hopefully not display any error messages. Then click OK. Then you open the text element, right click the big text box and choose formula. Then you write GradeForHole in the formula dialog. If everything works you will get the text output that corresponds with the current Grade of the hole. Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in