Okay Dave...don't get me started...
The good old days...I still do it that way sometimes...here's a simple program I did for an easy lathe part recently...(I don't own any real graphics CAM system for lathes...poor me....)
Note the cool way of setting colors for on-screen "backplot" if you want to call it that... Woohoo! Graphics! Yes, indeed...we have it pretty good.
PARTNO 12345 MACHIN/MLPOST,1 PRINT/ON L1=LINE/XAXIS ; L2=LINE/YAXIS ; L3=LINE/YCOORD,1.5 L4=LINE/YCOORD,1 ; L6=LINE/YCOORD,.5 ; P1=POINT/2.5,.5 P2=POINT/1,1 ; L5=LINE/P1,P2 ; L8=LINE/XCOORD,3.5 L8B=LINE/XCOORD,3.75 ; L9=LINE/XCOORD,2.5 ; L7=LINE/(POINT/3.5,.44),ATANGL,-45 C1=CIRCLE/YLARGE,L4,XLARGE,L2,RADIUS,.375 ; PL1=PLANE/0,0,1,0 S1=SHAPE/START,L2, L3, L8B, FINISH,L7 $$ BAR STOCK S2=SHAPE/START,L8B, L7, L6, L5, L4, RADIUS,.375, L2, FINISH,L3 $$ PART DRAFT/WHITE FROM/(HOMEPT=POINT/6,4,0),200 TURRET/1,1,-2.5,-1 ; FEDRAT/.012,IPR ; CUTTER/.12 SPINDL/350,SFM,INCR,0.2,RADIUS,3.5 ; COOLNT/ON LATHE/ ROUGH, TURN, S2, S1, STEP,.25 GH: COOLNT/OFF ; SPINDL/OFF ; TURRET/0 ; RAPID, GOTO/HOMEPT RETURN TURRET/2,2,-4.5,-3 CUTTER/.063 ; FEDRAT/.008,IPR ; SPINDL/100,SFM,INCR,.15 DRAFT/RED ; RAPID,GO/L8B,PL1,L7 ; COOLNT/ON ; TLRGT,GO/S2 $$GROOVE GOSUB/GH TURRET/3,3,-4.5,-3 CUTTER/0 ; FEDRAT/.005,IPR ; SPINDL/100,SFM,INCR,.15 DRAFT/GREEN ; RAPID,GOTO/2.5,.625,0 ; GODLTA/0,-.28,0 ; GODLTA/0,.28,0 $$THREADING GOSUB/GH TURRET/4,4,-4.5,-3 CUTTER/0 ; SPINDL/100,RPM ; FEDRAT/.1,IPR DRAFT/BLUE ; RAPID THREAD/AUTO, TURN, DIAMTR,L6, TPI,6, START,L8B,FINISH,L9, STEP,.03,.005 $ ,FEED,IN, ATANGL,29.5 GOSUB/GH END ; FINI
Wearing out the middle mouse button, are we, Phil?
Now curse at me for posting ANOTHER APT program...! |