584,812 active members*
5,595 visitors online*
Register for free
Login
IndustryArena Forum > MetalWorking Machines > Cincinnati CNC > Found in archives - A2100 thread mill subroutine
Results 1 to 3 of 3
  1. #1
    Join Date
    Sep 2009
    Posts
    11

    Found in archives - A2100 thread mill subroutine

    I found a floppy disk with a few interesting files on it - from my past life with Cincinnati Milacron Electronic Systems Division / Vickers / Siemens. I was involved with A850SX and A2100 mainly. I recall writing a subroutine like this for 850/950 and I'm pretty sure I modified it for A2100...anyhow, reproduced here for your benefit. Use with care...I can't remember exactly what moves it made!

    Ron


    (PGM, NAME="external thread sub example", TYPE="A2100_274", EXEMODE="STANDARD", PATH="PATHALL", ACCESS="OPEN", CREATED="THU MAR 16 2000 12:46:22", MODIFIED="THU MAR 16 2000 13:37:06", LEVEL="1")
    :G0 G70 T5 M6
    N010 X7.0 Y5.0 Z-10.0 F200. S2000 M3
    N020; Use parameters in the CLS block to pass information to the subroutine: X, Y=center of boss in X and Y, Z=surface of part, K=thread lead, D=depth of thread from surface, O=major diameter, F=feedrate at tool tip
    N030; starting condition requirements: Correct tool in spindle at proper RPM, coolant specified as desired, all parameters specified in above line established
    N040; Tool data for nominal diameter and diameter offset must be correct!
    N050; Subroutine makes one pass only!
    N060 (CLS, "helical sub" X7.0 y5 Z-11 D1 K0.06 O1.9875 F100)
    N070 M2
    ;
    ;
    N100 (DFS, "helical sub");this sub threads from bottom to top!
    N120 (MSG,Position over center of boss, 0.100" above part surface)
    N120 G90 X[&X] Y[&Y] Z[&Z]+0.100
    N130 (MSG,Move X and Y clear to upper RH of boss)
    N130 G00 X[&X]+([&O]+[$tool_data(0)nom_dia]+[$tool_data(0)dia_offset])/2 Y[&Y]+([&O]+[$tool_data(0)nom_dia]+[$tool_data(0)dia_offset])/2;
    N140 (MSG,Drop Z to bottom of thread)
    N140 G0 Z[&Z]-abs([&D]);
    N150 (MSG,Feedrate move X to 12:00 position)
    N150 g1 X[&X] F!;
    N160 [#numthreads]=abs([&d]/[&K]);calculate number of helical arcs
    N170 [#degrees]=([#numthreads]-int([#numthreads]))*360+90;calculate degrees in last partial arc
    N180 (MSG,CCW helical milling ;int([#numthreads]):3.0; full circles plus ;([#numthreads]-int([#numthreads]))*360:6.3; degrees)
    N190 F([&O]+[$tool_data(0)nom_dia]+[$tool_data(0)dia_offset])*[&F]/[&O];set feedrate taking cutter diameter into consideration
    N200 g3 X[&X] Y[&Y] Z[$curpos_pgm(Z)]+[#numthreads]*[&K] E[#degrees] L([&O]+[$tool_data(0)nom_dia]+[$tool_data(0)dia_offset])/2 I[&X] J[&Y] K[&K]
    N210 (MSG,Retract Z to work surface = 0.100")
    N210 G0 Z[&Z]+.10 F[&F];retract Z to top of part + 0.1 clearance
    N220 (MSG, Move X and Y to center)
    N220 X[&X] Y[&Y];not required, just for the hell of it
    N230 (MSG,)
    N230 (ENS)

  2. #2
    Join Date
    Aug 2010
    Posts
    0
    Just so it's clear, this subroutine allows you to make an external thread mill with one subroutine call. The sub handles all math and positioning.

    Before making the subroutine call, make sure that the following items are as described:
    - Correct tool in spindle, with tool data for nominal diameter and diameter offset correctly set in the tool table
    - Tool running at proper RPM and direction
    - Coolant on or off as desired

    In the CLS block, enter the following:
    X, Y=center of boss in X and Y
    Z=surface of part
    K=thread lead
    D=depth of thread from surface
    O=major diameter
    F=feedrate at tool tip

    That's all you have to do - the sub handles all math, blend in and out, coordination of Z and K so endpoint is correct, etc. It's also all written in G90.

    I hope this helps someone.

  3. #3
    Join Date
    Feb 2011
    Posts
    423
    Thanks for this info.

Similar Threads

  1. I found this thread interesting...
    By Jeff-Birt in forum Taig Mills / Lathes
    Replies: 1
    Last Post: 11-28-2009, 09:54 PM
  2. Thread milling with A2100
    By Clawsie Machine in forum Cincinnati CNC
    Replies: 3
    Last Post: 10-19-2009, 06:17 PM
  3. Cininnati A2100 Mill wont turn on!
    By surreyeng in forum Cincinnati CNC
    Replies: 2
    Last Post: 09-21-2009, 04:42 PM
  4. found a cheap Acme thread source
    By nicanor76 in forum DIY CNC Router Table Machines
    Replies: 6
    Last Post: 06-14-2008, 06:12 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •