hexagon logo
Register Sign in
  • Replies 6 replies
  • Subscribers 221 subscribers
  • Views 112 views
  • Users 0 members are here
Options
Related

learning looping.... I Want to just repeat program in the program?

Joe.Reilly
So I have 100 small squares with 4 holes on the corners, I am set up to run 3 then the program ends.

I want to just replace the parts while the machine measures the last one, is this looping or a subroutine?

I will be getting 500 more tommorrow, and will likely measure 10 at a time instead.

any examples or point to previous thread appreciated!

Optivv 3 PCDMIS CAD 2011 MR1 Vision probe.

JoeSlight smile
  • I'm not sure 100% what you're after, but looping is fairly simple.
    Under the "Insert" menu, open the "Flow Control Command" sub menu, then click Looping.
    Fill in the parameters of the end number, start number(usually 1), skip number(usually blank), Variable ID(default should be fine).
    If you need to offset X, Y, or Z fill those in accordingly(from your description I'm guessing not).
    If you leave the box for "loop ID's" ticked, it will add[1], [2], [3], etc. to the feature ID's as it loops. If you want the ID's to be the same each loop, clear the tick box.
    At the end follow the menu above and select "End Loop".

    You need to decide how you're going record the results of each run(print or save file) and add the command before the End Loop. If your going to save you'll probably want to select the autoincrement feature in the print/report command.

    I hope this helps or at least gets you started.
  • Looping is meant for a single 'part' but checked in multiple places on the table at once time, in your case, if all you are checking is the 4 holes on the corners, your program would be just 4 holes, then the looping would make it 'increment' to the right (or left, or front, or back) a specified distance to check a second one and so on. If you set them up in a 4x4 grid, it would be a double loop, increment 4 times in one direction, then an increment in the other direction repeated 4 times.

    If you are putting the parts in the same place, you could do it as easily as placing a LABEL at the beginning of the program and a COMMENT/OPER and a GOTO at the end. The comment will make the machine pause until you hit "DONE" then it will take off again. The GOTO will send it to the label at the beginning. You can by-pass the COMMENT/OPER if you are using Datapage by having it set to query you for the STAT COUNT when it runs, which can also be 'continued' by hitting the DONE button as it will auto-increment.
  • Okay, thanks, I will be working in variations of "If you set them up in a 4x4 grid, it would be a double loop, increment 4 times in one direction, then an increment in the other direction repeated 4 times."

    Joe
  • This will do a 4x4 grid.

    You MUST have a constant spacing for each loop for it to work. You need the same spacing for X (inner loop) and the Y needs the same spacing (but doesn't have to match the X).

    Manual alignment of first part eliminated do to length constraints. 
    ALIGN01    =ALIGNMENT/START,RECALL:STARTUP, LIST= YES
            ALIGNMENT/LEVEL,ZPLUS,TOP
            ALIGNMENT/ROTATE,XPLUS,TO,ROTLINE,ABOUT,ZPLUS
            ALIGNMENT/TRANS,XAXIS,H1
            ALIGNMENT/TRANS,YAXIS,H1
            ALIGNMENT/TRANS,ZAXIS,TOP
            ALIGNMENT/TRANS_OFFSET,XAXIS,0
            ALIGNMENT/TRANS_OFFSET,YAXIS,0
            ALIGNMENT/TRANS_OFFSET,ZAXIS,0
            ALIGNMENT/END
            MODE/DCC
            CLEARP/ZPLUS,20,ZPLUS,0
            MOVE/CLEARPLANE
V2         =LOOP/START, ID = YES, NUMBER = 4, START = 1, SKIP = ,
               OFFSET: XAXIS = 0, YAXIS = 200, ZAXIS = 0, ANGLE = 0
V1         =LOOP/START, ID = YES, NUMBER = 4, START = 1, SKIP = ,
               OFFSET: XAXIS = 200, YAXIS = 0, ZAXIS = 0, ANGLE = 0
A1         =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
            THEO/10.32,109.25,0,0,0,1
            ACTL/10.32,109.25,0,0,0,1
            TARG/10.32,109.25,0,0,0,1
            THEO_THICKNESS = 0,RECT,SNAP = YES,$
            AUTO MOVE = NO,DISTANCE = 125
            MOVE/CLEARPLANE
A2         =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
            THEO/4.95,16.88,0,0,0,1
            ACTL/4.95,16.88,0,0,0,1
            TARG/4.95,16.88,0,0,0,1
            THEO_THICKNESS = 0,RECT,SNAP = YES,$
            AUTO MOVE = NO,DISTANCE = 125
            MOVE/CLEARPLANE
A3         =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
            THEO/98.97,106.38,0,0,0,1
            ACTL/98.97,106.38,0,0,0,1
            TARG/98.97,106.38,0,0,0,1
            THEO_THICKNESS = 0,RECT,SNAP = YES,$
            AUTO MOVE = NO,DISTANCE = 125
            MOVE/CLEARPLANE
A4         =AUTO/VECTOR POINT,SHOWALLPARAMS = YES
            THEO/98.97,106.37,0,0,0,1
            ACTL/98.97,106.37,0,0,0,1
            TARG/98.97,106.37,0,0,0,1
            THEO_THICKNESS = 0,RECT,SNAP = YES,$
            AUTO MOVE = NO,DISTANCE = 125
            MOVE/CLEARPLANE
B1         =AUTO/CIRCLE,SHOWALLPARAMS = YES,SHOWHITS = NO
            THEO/0,0,0,0,0,1,7
            ACTL/0,0,0,0,0,1,7
            TARG/0,0,0,0,0,1
            THEO_THICKNESS = 0,RECT,IN,STRAIGHT,LEAST_SQR,ONERROR = NO,$
            AUTO MOVE = NO,DISTANCE = 125,RMEAS = None,None,None,$
            READ POS = NO,FIND HOLE = NO,REMEASURE = NO,$
            NUMHITS = 4,INIT = 0,PERM = 0,SPACER = 3,PITCH = 0,$
            START ANG = 0,END ANG = 0,DEPTH = 3,$
            ANGLE VEC = 1,0,0
            MOVE/CLEARPLANE
C1         =AUTO/CIRCLE,SHOWALLPARAMS = YES,SHOWHITS = NO
            THEO/110,0,0,0,0,1,7
            ACTL/110,0,0,0,0,1,7
            TARG/110,0,0,0,0,1
            THEO_THICKNESS = 0,RECT,IN,STRAIGHT,LEAST_SQR,ONERROR = NO,$
            AUTO MOVE = NO,DISTANCE = 125,RMEAS = None,None,None,$
            READ POS = NO,FIND HOLE = NO,REMEASURE = NO,$
            NUMHITS = 4,INIT = 0,PERM = 0,SPACER = 3,PITCH = 0,$
            START ANG = 0,END ANG = 0,DEPTH = 3,$
            ANGLE VEC = 1,0,0
ADATUM     =FEAT/PLANE,RECT,TRIANGLE
            THEO/53.303,84.72,0,0,0,1
            ACTL/53.303,84.72,0,0,0,1
            CONSTR/PLANE,BF,A1,A2,A3,A4,,
            OUTLIER_REMOVAL/OFF,3
            FILTER/OFF,WAVELENGTH=0
BDATUM     =FEAT/LINE,RECT,UNBND
            THEO/0,0,0,1,0,0
            ACTL/0,0,0,1,0,0
            CONSTR/LINE,BF,2D,B1,C1,,
            OUTLIER_REMOVAL/OFF,3
            FILTER/OFF,WAVELENGTH=0
ALIGN02    =ALIGNMENT/START,RECALL:ALIGN01, LIST= YES
            ALIGNMENT/LEVEL,ZPLUS,ADATUM
            ALIGNMENT/ROTATE,XPLUS,TO,BDATUM,ABOUT,ZPLUS
            ALIGNMENT/TRANS,XAXIS,B1
            ALIGNMENT/TRANS,YAXIS,B1
            ALIGNMENT/TRANS,ZAXIS,ADATUM
            ALIGNMENT/TRANS_OFFSET,XAXIS,0
            ALIGNMENT/TRANS_OFFSET,YAXIS,0
            ALIGNMENT/TRANS_OFFSET,ZAXIS,0
            ALIGNMENT/END
            MOVE/CLEARPLANE
CIR1       =AUTO/CIRCLE,SHOWALLPARAMS = YES,SHOWHITS = NO
            THEO/0,0,0,0,0,1,7
            ACTL/0,0,0,0,0,1,7
            TARG/0,0,0,0,0,1
            THEO_THICKNESS = 0,RECT,IN,STRAIGHT,LEAST_SQR,ONERROR = NO,$
            AUTO MOVE = NO,DISTANCE = 125,RMEAS = None,None,None,$
            READ POS = NO,FIND HOLE = NO,REMEASURE = NO,$
            NUMHITS = 4,INIT = 0,PERM = 0,SPACER = 3,PITCH = 0,$
            START ANG = 0,END ANG = 0,DEPTH = 3,$
            ANGLE VEC = 1,0,0
DIM D001= LOCATION OF CIRCLE CIR1  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X       0.000      0.000      0.000      0.000      0.000      0.000 ----#----
Y       0.000      0.000      0.000      0.000      0.000      0.000 ----#----
D       7.000      0.000      0.000      7.000      0.000      0.000 ----#----
END OF DIMENSION D001
            MOVE/CLEARPLANE
CIR2       =AUTO/CIRCLE,SHOWALLPARAMS = YES,SHOWHITS = NO
            THEO/110,0,0,0,0,1,7
            ACTL/110,0,0,0,0,1,7
            TARG/110,0,0,0,0,1
            THEO_THICKNESS = 0,RECT,IN,STRAIGHT,LEAST_SQR,ONERROR = NO,$
            AUTO MOVE = NO,DISTANCE = 125,RMEAS = None,None,None,$
            READ POS = NO,FIND HOLE = NO,REMEASURE = NO,$
            NUMHITS = 4,INIT = 0,PERM = 0,SPACER = 3,PITCH = 0,$
            START ANG = 0,END ANG = 0,DEPTH = 3,$
            ANGLE VEC = 1,0,0
DIM D002= LOCATION OF CIRCLE CIR2  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     110.000      0.000      0.000    110.000      0.000      0.000 ----#----
Y       0.000      0.000      0.000      0.000      0.000      0.000 ----#----
D       7.000      0.000      0.000      7.000      0.000      0.000 ----#----
END OF DIMENSION D002
            MOVE/CLEARPLANE
CIR3       =AUTO/CIRCLE,SHOWALLPARAMS = YES,SHOWHITS = NO
            THEO/0,110,0,0,0,1,7
            ACTL/0,110,0,0,0,1,7
            TARG/0,110,0,0,0,1
            THEO_THICKNESS = 0,RECT,IN,STRAIGHT,LEAST_SQR,ONERROR = NO,$
            AUTO MOVE = NO,DISTANCE = 125,RMEAS = None,None,None,$
            READ POS = NO,FIND HOLE = NO,REMEASURE = NO,$
            NUMHITS = 4,INIT = 0,PERM = 0,SPACER = 3,PITCH = 0,$
            START ANG = 0,END ANG = 0,DEPTH = 3,$
            ANGLE VEC = 1,0,0
DIM D003= LOCATION OF CIRCLE CIR3  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X       0.000      0.000      0.000      0.000      0.000      0.000 ----#----
Y     110.000      0.000      0.000    110.000      0.000      0.000 ----#----
D       7.000      0.000      0.000      7.000      0.000      0.000 ----#----
END OF DIMENSION D003
            MOVE/CLEARPLANE
CIR4       =AUTO/CIRCLE,SHOWALLPARAMS = YES,SHOWHITS = NO
            THEO/110,110,0,0,0,1,7
            ACTL/110,110,0,0,0,1,7
            TARG/110,110,0,0,0,1
            THEO_THICKNESS = 0,RECT,IN,STRAIGHT,LEAST_SQR,ONERROR = NO,$
            AUTO MOVE = NO,DISTANCE = 125,RMEAS = None,None,None,$
            READ POS = NO,FIND HOLE = NO,REMEASURE = NO,$
            NUMHITS = 4,INIT = 0,PERM = 0,SPACER = 3,PITCH = 0,$
            START ANG = 0,END ANG = 0,DEPTH = 3,$
            ANGLE VEC = 1,0,0
DIM D004= LOCATION OF CIRCLE CIR4  UNITS=MM ,$
GRAPH=OFF  TEXT=OFF  MULT=1.00  OUTPUT=BOTH
AX   NOMINAL     +TOL       -TOL       MEAS        DEV      OUTTOL   
X     110.000      0.000      0.000    110.000      0.000      0.000 ----#----
Y     110.000      0.000      0.000    110.000      0.000      0.000 ----#----
D       7.000      0.000      0.000      7.000      0.000      0.000 ----#----
END OF DIMENSION D004
            LOOP/END
            LOOP/END
  • So I have 100 small squares with 4 holes on the corners, I am set up to run 3 then the program ends.

    I want to just replace the parts while the machine measures the last one, is this looping or a subroutine?

    I will be getting 500 more tommorrow, and will likely measure 10 at a time instead.

    any examples or point to previous thread appreciated!

    Optivv 3 PCDMIS CAD 2011 MR1 Vision probe.

    JoeSlight smile

    Just one possible solution.

    Insert a label

    LABEL/L1

    your code to loop the 3 parts

    Insert a yes/no comment such as "measure more parts?"

    use Flow Control (C1.INPUT or change to whatever your yes/no comment name is)

    IF C1.INPUT == "YES"
    GOTO/L1
    END_IF

    Hope this helps
  • Just one possible solution.

    Insert a label

    LABEL/L1

    your code to loop the 3 parts

    Insert a yes/no comment such as "measure more parts?"

    use Flow Control (C1.INPUT or change to whatever your yes/no comment name is)

    IF C1.INPUT == "YES"
    GOTO/L1
    END_IF

    Hope this helps

    More on this, you could always put an INPUT comment at the beginning asking how many parts the inspector will be running. That way the inspector is not having to click YES/NO after each part.

    C1=COMMENT/INPUT, "HOW MANY ARTICLES ARE YOU INSPECTING?"
    ASSIGN/COUNT=1
    DO/
    "RUN PROGRAM FOR PART"
    COMMENT, "MEASURED " + COUNT + " OUT OF " C1.INPUT + " TIMES."
    ASSIGN/COUNT=COUNT+1
    UNTIL/COUNT == C1.INPUT

    At the end you could always add in an operator comment asking if there are anymore pieces to inspect, like the quoted IF statement and have it loop back to L1.
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement