Category : Science and Education
Archive   : PER-APT.ZIP
Filename : BARREL.APT

PARTNO BARREL TEST SHAPE PROGRAM
MACHIN/MILL1,1 $$ This program machines traces
PRINT/ON $$ along a barrell shaped part.
C1=CIRCLE/0,0,4 $$ This is a good program to check
P1=POINT/C1,ATANGL,45 $$ the graphic display of tool path
P2=POINT/C1,ATANGL,135 $$ (plotting) features. Use persp-
L1=LINE/P1,(POINT/CENTER,C1) $$ ective mode and Window command.
L2=LINE/P2,(POINT/CENTER,C1) $$ You can inspect the tool path from
PL1=PLANE/0,0,1,0 $$ different eye positions. Use Pitch,
SPINDL/1800,RPM,RANGE,2 $$ Yaw and Roll angle changes and REPAINT.
FEDRAT/.01,IPR $$
CUTTER/.5,.25 $$ Remember to read the documentation.
INTOL/.005
OUTTOL/.005
FROM/0,0,10
LOADTL/1,LENGTH,5
A=45
AGAIN: TRACUT/(MATRIX/YZROT,A)
DNTCUT
GOTO/0,0,10
INDIRP/P1
GO/PAST,C1,PL1,ON,L1
CUT
TLRGT,GOLFT/C1,ON,L2
TRACUT/(MATRIX/YZROT,(A+5))
DNTCUT
GOTO/0,0,10
INDIRP/P2
GO/PAST,C1,PL1,ON,L2
CUT
TLLFT,GORGT/C1,ON,L1
A= A + 10
IF (A - 135) AGAIN, QUIT, QUIT
QUIT: TRACUT/NOMORE
RAPID,GOTO/0,0,5
PPLOT
END
FINI