Problem Rotation

i have this code:

STARTUP    =ALIGNMENT/START,RECALL:,LIST=YES
            ALIGNMENT/END
            MODE/DCC
            FORMAT/TEXT,OPTIONS, ,HEADINGS,SYMBOLS, ;NOM,TOL,MEAS,DEV,OUTTOL, , 
            LOADPROBE/1MM
            ASSIGN/AUX=2
            IF/AUX==1
            ASSIGN/AUX=100
            END_IF/
            IF/AUX==2
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
            ASSIGN/AUX=200
            END_IF/
            IF/AUX==3
            ASSIGN/AUX=300
            END_IF/
            IF/AUX==4
            TIP/T1A45B0, SHANKIJK=0, 0.707, 0.707, ANGLE=0
            ASSIGN/AUX=400
            END_IF/
C1         =COMMENT/YESNO,NO,AUX

Result:
AUX = 200 OK
TIP = T1A45B0 WHY??
________
N02 VAPORIZER

dph51 over 14 years ago

This doesn't work:

STARTUP    =ALIGNMENT/START,RECALL:,LIST=YES
            ALIGNMENT/END
            MODE/MANUAL
            PREHIT/ 4
            RETRACT/ 4
            MOVESPEED/ 50
            FLY/ON,3
            FORMAT/TEXT,OPTIONS,ID,HEADINGS, , ;MEAS,NOM,TOL,DEV,OUTTOL, , 
            LOADPROBE/05BY10BYTP2
$$ NO,/*
     ,/* SELECT CASE FOR PROBE ROTATION
     ,/*
C3         =COMMENT/INPUT,NO,'SELECT :   A0B0   -   ENTER '1'
                            ,                   A45B90   -   ENTER '2'
                            ,                   A45B-90   -   ENTER '3'
                            ,                            ANY OTHER NUMBER EXITS LOOP'
$$$$ NO,***************************************************
            SELECT/C3.INPUT
            CASE/1
            TIP/T1A0B0, SHANKIJK=0, 0, 1, ANGLE=0
            END_CASE/
            CASE/2
            TIP/T1A45B90, SHANKIJK=-0.7071, 0, 0.7071, ANGLE=90
            END_CASE/
            CASE/3
            TIP/T1A45B-90, SHANKIJK=0.7071, 0, 0.7071, ANGLE=-90
            END_CASE/
            END_SELECT/

It rotates back to the last probe rotation used. Sorry

Chally72 over 14 years ago

Sorry for not catching this. The only way to reliably skip probe rotations is labels. That solution is not elegant. A better solution would be:

If/Aux==10
Assign/Probeangle="T1A90B0"
End If
If/Aux==20
Assign/Probeangle="T1A0B0"
End If

Loadprobe/Yourprobehere
Tip Probeangle, ShankIJK etc etc etc.......

This way, you only have one Tip angle line, with the angle assigned through a variable. It avoids having to skip any probe rotations, and the problems that come along with it.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
tking over 14 years ago

I like, thanks, Chally!

TK
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel