home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / cnc / papt_141.exe / LATHEXMP.APT < prev    next >
Text File  |  1989-12-01  |  2KB  |  69 lines
  1. PARTNO PERSONAL APT SAMPLE LATHE PROGRAM
  2. MACHIN/LATHE1,1
  3. PRINT/ON
  4. L1=LINE/(POINT/5,1),ATANGL,0
  5. L2=LINE/(POINT/5.1,1),ATANGL,60
  6. L3=LINE/XCOORD,3
  7. L4=LINE/XCOORD,5.1
  8. LTLCHG=MACRO/IFACE,OFSET,GLX,GLY,DIR=CLW,SPD,FED,TLR=0
  9.    GOHOME
  10.    TURRET/IFACE,OFSET,GLX,GLY,DIR
  11.    SPINDL/SPD,SFM,INCR,.1
  12.    FEDRAT/FED,IPR
  13.    CUTTER/(TLR*2)
  14. TERMAC
  15. THRDOD=MACRO/MAJLN,THPI,DCLR=.05,BEGLN,ENDLN,NPASS=4
  16.    PRINT/OFF
  17.    DEPTH= COSF(30)/THPI
  18.    DINCR= DEPTH/NPASS
  19.    CLRLN=LINE/PARLEL,MAJLN,YLARGE,DCLR
  20.    BEGPT=POINT/INTOF,CLRLN,BEGLN
  21.    THDIR=VECTOR/(POINT/INTOF,BEGLN,MAJLN),(POINT/INTOF,ENDLN,MAJLN)
  22.    PITCH/TPI,THPI
  23.    DP= 0
  24.    REDEF/ON
  25.    TLON
  26. $$BEGIN LOOP
  27.    I= 0
  28. BEGIN: DP= DP+DINCR
  29.        IF (DEPTH - DP) WIPE, AGAIN, AGAIN
  30. AGAIN: RAPID,GOTO/BEGPT
  31.        INDIRV/0,-1,0
  32.        GOFWD/BEGLN,ON,(LX=LINE/PARLEL,MAJLN,YSMALL,DP)
  33.        THREAD/ON
  34.        INDIRV/THDIR
  35.        GOFWD/LX
  36.        INDIRV/0,1,0
  37.        GOFWD/ENDLN,ON,CLRLN
  38.        IF (I) BEGIN, BEGIN, FINIS
  39.  WIPE: DP= DEPTH
  40.        I= 1
  41.        JUMPTO/AGAIN
  42. FINIS: REDEF/OFF
  43.    PRINT/ON
  44. TERMAC
  45. FROM/12,8,0
  46. CALL/LTLCHG,IFACE=1,OFSET=1,GLX=-4,GLY=-5,SPD=350,FED=.012,TLR=.094
  47. RAPID,GO/(LINE/YCOORD,1.25),(PL1=PLANE/0,0,1,0),L4
  48. ID1:  GO/PAST,(LINE/XCOORD,2.75)
  49. RAPID,GODLTA/.05,.05,0
  50. RAPID,GO/PAST,L4
  51. RETURN
  52. RAPID,GO/TO,L1
  53. GOSUB/ID1
  54. CUTTER/0
  55. RAPID,GOTO/5,5,0
  56. GOTO/5,0,0
  57. GOTO/5,2,0
  58. GOTO/4,2,0
  59. GOFWD/(CX=CIRCLE/4,5,3),ON,(LINE/0,5,1,5)
  60. GOBACK/CX,ON,(LINE/4,0,4,1)
  61. CALL/LTLCHG,IFACE=2,OFSET=2,GLX=-3.5,GLY=-4.9,SPD=75,FED=.1
  62. SPINDL/350,RPM
  63. CALL/THRDOD,MAJLN=L1,BEGLN=L2,ENDLN=L3,NPASS=4,THPI=8
  64. CALL/LTLCHG,IFACE=0,OFSET=0,GLX=0,GLY=0,DIR=CCLW,SPD=300,FED=.1
  65. REWIND
  66. PRINT/3,ALL
  67. END
  68. FINI
  69.