How to measure concentric circles

Hi every one.

can you give me advise to checking concentric circles as below picture.

Parents

Here basic example, which only create a generic point.
In your case, the part alignment must be saved as an external one in the sub.

1st the part program

STARTUP  =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
            ALIGNMENT/END
            MODE/MANUAL
            PREHIT/3
            RETRACT/3
            CHECK/10,1
            MOVESPEED/ 120
            FLY/ON
            FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, , 
            LOADPROBE/LSPX1_L50_D5
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
            SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
[COLOR=#FF0000] SUBROUTINE/TEST SSPROG,[/COLOR]
                 = 
            RECALL/ALIGNMENT,EXTERNAL,STARTUP1
F1         =GENERIC/POINT,DEPENDENT,CARTESIAN,$
            NOM/XYZ,<0,0,0>,$
            MEAS/XYZ,<0,0,0>,$
            NOM/IJK,<0,0,1>,$
            MEAS/IJK,<0,0,1>
[COLOR=#FF0000]ENDSUB/[/COLOR]

2nd the multiple parts program

STARTUP  =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
            ALIGNMENT/END
            MODE/MANUAL
            PREHIT/3
            RETRACT/3
            CHECK/10,1
            MOVESPEED/ 120
            FLY/ON
            FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, , 
            LOADPROBE/LSPX1_L50_D5
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
            ASSIGN/V2=1
            DO/
            RECALL/ALIGNMENT,EXTERNAL,STARTUP1
V1         =LOOP/START,ID=YES,NUMBER=3,START=1,SKIP=,
              OFFSET:XAXIS=0,YAXIS=0,ZAXIS=0,ANGLE=0
              IF/V1*V2==1
                RECALL/ALIGNMENT,INTERNAL,STARTUP
                SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
              END_IF/
              RECALL/ALIGNMENT,EXTERNAL,STARTUP1
CS1          =CALLSUB/TEST SSPROG,D:\Données PCDMIS\Programmes\test sous-prog 1.PRG:,,
REF1         =ALIGNMENT/START,RECALL:STARTUP1,LIST=YES
                ALIGNMENT/TRANS_OFFSET,XAXIS,10
              ALIGNMENT/END
              SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
            LOOP/END
            RECALL/ALIGNMENT,INTERNAL,STARTUP
            SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
REF2       =ALIGNMENT/START,RECALL:STARTUP1,LIST=YES
              ALIGNMENT/TRANS_OFFSET,YAXIS,30
              ALIGNMENT/TRANS_OFFSET,XAXIS,-20
            ALIGNMENT/END
            SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
            ASSIGN/V2=V2+1
            UNTIL/V2==4

Reply

JEFMAN over 6 years ago

Here basic example, which only create a generic point.
In your case, the part alignment must be saved as an external one in the sub.

1st the part program

STARTUP  =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
            ALIGNMENT/END
            MODE/MANUAL
            PREHIT/3
            RETRACT/3
            CHECK/10,1
            MOVESPEED/ 120
            FLY/ON
            FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, , 
            LOADPROBE/LSPX1_L50_D5
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
            SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
[COLOR=#FF0000] SUBROUTINE/TEST SSPROG,[/COLOR]
                 = 
            RECALL/ALIGNMENT,EXTERNAL,STARTUP1
F1         =GENERIC/POINT,DEPENDENT,CARTESIAN,$
            NOM/XYZ,<0,0,0>,$
            MEAS/XYZ,<0,0,0>,$
            NOM/IJK,<0,0,1>,$
            MEAS/IJK,<0,0,1>
[COLOR=#FF0000]ENDSUB/[/COLOR]

2nd the multiple parts program

STARTUP  =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
            ALIGNMENT/END
            MODE/MANUAL
            PREHIT/3
            RETRACT/3
            CHECK/10,1
            MOVESPEED/ 120
            FLY/ON
            FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, , 
            LOADPROBE/LSPX1_L50_D5
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
            ASSIGN/V2=1
            DO/
            RECALL/ALIGNMENT,EXTERNAL,STARTUP1
V1         =LOOP/START,ID=YES,NUMBER=3,START=1,SKIP=,
              OFFSET:XAXIS=0,YAXIS=0,ZAXIS=0,ANGLE=0
              IF/V1*V2==1
                RECALL/ALIGNMENT,INTERNAL,STARTUP
                SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
              END_IF/
              RECALL/ALIGNMENT,EXTERNAL,STARTUP1
CS1          =CALLSUB/TEST SSPROG,D:\Données PCDMIS\Programmes\test sous-prog 1.PRG:,,
REF1         =ALIGNMENT/START,RECALL:STARTUP1,LIST=YES
                ALIGNMENT/TRANS_OFFSET,XAXIS,10
              ALIGNMENT/END
              SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
            LOOP/END
            RECALL/ALIGNMENT,INTERNAL,STARTUP
            SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
REF2       =ALIGNMENT/START,RECALL:STARTUP1,LIST=YES
              ALIGNMENT/TRANS_OFFSET,YAXIS,30
              ALIGNMENT/TRANS_OFFSET,XAXIS,-20
            ALIGNMENT/END
            SAVE/ALIGNMENT,STARTUP1.aln,MACHINETOPARTS
            ASSIGN/V2=V2+1
            UNTIL/V2==4

Children

No Data