hexagon logo
Register Sign in
  • Replies 3 replies
  • Subscribers 30 subscribers
  • Views 56 views
  • Users 0 members are here
Options
Related

incorrect output

Stojan Klavs
I have a problem when printing the correct value. The output should be dependent on which of the deviation of Z value is greater, and that one, must be displayed. In my code I always get the last of the "CASE" command line.
LOC2.Z.DEV = 0.0344
LOC4.Z.DEV = 0.0064
MAXINDEX give me the right result (number 1) and according to result MAXINDEX I should get the value for output LOC2.Z.MEAS = 8.4656. But in my case I always get the last value in CASE statements, that is 8.4936, which belongs measurement LOC4 instead of LOC2.

Please if you can, help me identify where the problem is.
Here is the code:

DIM LOC2= LOCATION OF CIRCLE CIR6 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX MEAS NOMINAL DEV +TOL -TOL OUTTOL
X 0.0632 0.0000 0.0632 0.1500 -0.1500 0.0000 -----#--
Z -8.4656 -8.5000 0.0344 0.1000 -0.1000 0.0000 -----#--
D 8.2821 8.3000 -0.0179 0.1500 -0.1500 0.0000 ---#----
END OF DIMENSION LOC2

DIM LOC4= LOCATION OF CIRCLE CIR4 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH
AX MEAS NOMINAL DEV +TOL -TOL OUTTOL
X 0.0418 0.0000 0.0418 0.1500 -0.1500 0.0000 -----#--
Z -8.4936 -8.5000 0.0064 0.1000 -0.1000 0.0000 ----#---
D 8.3074 8.3000 0.0074 0.1500 -0.1500 0.0000 ----#---
END OF DIMENSION LOC4

ASSIGN/MT = GETCOMMAND("DIMENSION LOCATION","UP",2)
ASSIGN/MTS = STR(MT)
ASSIGN/MERE_Z[1] = ABS(LOC2.Z.DEV)
ASSIGN/MERE_Z[2] = ABS(LOC4.Z.DEV)
ASSIGN/I ZBOR = MAXINDEX(MERE_Z) <--- give me result (1)
SELECT/ IZBOR
CASE/1
ASSIGN/ MERAMAX_Z = ABS(LOC2.Z.MEAS) <--- this should be print out
END_CASE/
CASE/2
ASSIGN/ MERAMAX_Z = ABS(LOC4.Z.MEAS) <--- I always get the second result in print report
END_CASE/
END_SELECT/
ASSIGN/IME_DEL2 = MTS + "LOC4_MERAMAX_Z.TXT"
ASSIGN/IME_CEL = IME_DEL1 + "_" + IME_DEL2
OBSTAJA =FILE/EXISTS,IME_CEL
IF/OBSTAJA==0
FPTR =FILE/OPEN,IME_CEL,WRITE
FILE/WRITELINE,FPTR,"ZAPIS_ST.: ," + ZAPIS + "," + "DATUM: "+ SYSTEMDATE("dd'/'MM'/'yy") + " CAS: "+ SYSTEMTIME("hh':'mm") +","+ IME_CEL
FILE/WRITELINE,FPTR,"Vrsta Meritve,Os, Nominalna Mera,Zg.Toleranca,Sp.Toleranca,Izmerjeno,Odstopanj e"
FILE/CLOSE,FPTR,KEEP
END_IF/
FPTR =FILE/OPEN,IME_CEL,APPEND
ASSIGN/VPIS = MERAMMAX_Z
FILE/WRITELINE,FPTR,STEVEC + "," + ",Z,," + ABS(MTS.Z.NOM) + "," + MTS.Z.PTOL + "," + MTS.Z.MTOL + "," + MERAMAX_Z + "," + MTS.Z.OUTTOL

I have the same problem when I using If/EndIf - Else/EndElse statements.

Thank you in advance
Parents
  • How are you looking at the result? I tried the following: 

    DIM LOC1= LOCATION OF CIRCLE CIR2  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X        0.000      0.150     -0.150     -0.038     -0.038      0.000 ---#-----
Y        0.000      0.150     -0.150      0.022      0.022      0.000 -----#---
Z       -2.000      0.150     -0.150      0.503      2.503      2.353 -------->
D       60.500      0.150     -0.150     60.500      0.000      0.000 ----#----
END OF DIMENSION LOC1
DIM LOC2= LOCATION OF CIRCLE CIR1  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X        0.000      0.150     -0.150      0.000      0.000      0.000 ----#----
Y        0.000      0.150     -0.150      0.000      0.000      0.000 ----#----
Z       -2.000      0.150     -0.150     -2.000      0.000      0.000 ----#----
D       60.500      0.150     -0.150     60.500      0.000      0.000 ----#----
END OF DIMENSION LOC2
            ASSIGN/MT=GETCOMMAND("DIMENSION LOCATION", "UP", 2)
            ASSIGN/MTS=STR(MT)
            ASSIGN/MERE_Z[1]=ABS(LOC1.Z.DEV)
            ASSIGN/MERE_Z[2]=ABS(LOC2.Z.DEV)
            ASSIGN/IZBOR=MAXINDEX(MERE_Z)
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            IZBOR
            SELECT/IZBOR
              CASE/1
                COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                "CASE 1"
                ASSIGN/MERAMAX_Z=ABS(LOC1.Z.MEAS)
              END_CASE/
              CASE/2
                COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                "CASE 2"
                ASSIGN/MERAMAX_Z=ABS(LOC2.Z.MEAS)
              END_CASE/
            END_SELECT/
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            MERAMAX_Z
FPTR       =FILE/OPEN,C:\TEMP\MERAMAX.TXT,WRITE
            FILE/WRITELINE,FPTR,IZBOR
            FILE/WRITELINE,FPTR,MERAMAX_Z
            FILE/CLOSE,FPTR,KEEP


    and when running everything seems OK, the program follows the expected path, the operator messages are correct and the file written is correct but, when afterwards hovering the mouse over MERAMAX_2 I always see the value from CASE/2. This is a known problem with the tooltip display of variables - PC-DMIS just goes backwards in the code searching for the closest ASSIGN of the variable - it does not follow the previously executed path backwards (i.e. it looks backwards through .Commands instead of going backwards through .ExecutedCommands, if you're into automation).

    Don't ever trust the variable values you see in the tooltip when hovering with the mouse!
Reply
  • How are you looking at the result? I tried the following: 

    DIM LOC1= LOCATION OF CIRCLE CIR2  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X        0.000      0.150     -0.150     -0.038     -0.038      0.000 ---#-----
Y        0.000      0.150     -0.150      0.022      0.022      0.000 -----#---
Z       -2.000      0.150     -0.150      0.503      2.503      2.353 -------->
D       60.500      0.150     -0.150     60.500      0.000      0.000 ----#----
END OF DIMENSION LOC1
DIM LOC2= LOCATION OF CIRCLE CIR1  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=10.00  OUTPUT=BOTH  HALF ANGLE=NO
AX    NOMINAL       +TOL       -TOL       MEAS        DEV     OUTTOL
X        0.000      0.150     -0.150      0.000      0.000      0.000 ----#----
Y        0.000      0.150     -0.150      0.000      0.000      0.000 ----#----
Z       -2.000      0.150     -0.150     -2.000      0.000      0.000 ----#----
D       60.500      0.150     -0.150     60.500      0.000      0.000 ----#----
END OF DIMENSION LOC2
            ASSIGN/MT=GETCOMMAND("DIMENSION LOCATION", "UP", 2)
            ASSIGN/MTS=STR(MT)
            ASSIGN/MERE_Z[1]=ABS(LOC1.Z.DEV)
            ASSIGN/MERE_Z[2]=ABS(LOC2.Z.DEV)
            ASSIGN/IZBOR=MAXINDEX(MERE_Z)
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            IZBOR
            SELECT/IZBOR
              CASE/1
                COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                "CASE 1"
                ASSIGN/MERAMAX_Z=ABS(LOC1.Z.MEAS)
              END_CASE/
              CASE/2
                COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                "CASE 2"
                ASSIGN/MERAMAX_Z=ABS(LOC2.Z.MEAS)
              END_CASE/
            END_SELECT/
            COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            MERAMAX_Z
FPTR       =FILE/OPEN,C:\TEMP\MERAMAX.TXT,WRITE
            FILE/WRITELINE,FPTR,IZBOR
            FILE/WRITELINE,FPTR,MERAMAX_Z
            FILE/CLOSE,FPTR,KEEP


    and when running everything seems OK, the program follows the expected path, the operator messages are correct and the file written is correct but, when afterwards hovering the mouse over MERAMAX_2 I always see the value from CASE/2. This is a known problem with the tooltip display of variables - PC-DMIS just goes backwards in the code searching for the closest ASSIGN of the variable - it does not follow the previously executed path backwards (i.e. it looks backwards through .Commands instead of going backwards through .ExecutedCommands, if you're into automation).

    Don't ever trust the variable values you see in the tooltip when hovering with the mouse!
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement