I just got a new vertical mill and just installed it, and the software at my place. I want to test the connection, and the capabilities of the machine (it was pre-owned)Does anyone know of a place I might be able to download a few simple .nc format templates (simple bolt hole pattern, simple circle, etc) to test the various workings of the machine (m08 for coolant on, m03 for spindle forward, etc)
I would most like to figure out a way to create a simple bolt hole pattern (I know the ID of the piece, the radius, diameter, etc)
Well Im a little confused. When I go to the Bolt Hold pattern selection and type in the # of holes and the radius, I get this G70 I0.476 J0.0000 L40 That cant be the only line of programming in my machine?
Well I am using a Benchman 4000 with a 4 tool Automatic Tool Changer from Intelitek (Light MAchines Corp) that I am controlling from an ISA card in my computer (the card is a Baldor NextMove PC Controller) it is an 8 axis PC based motion controller. The program I am using to send the information is a Benchman 4000 program (I think thats what its called) and uses NC code programs with standard G and M codes. I dont really know what else to say about it, if theres anything else I might be looking for please let me know. I have the manuals and I understand, for example, m codes that turn the spindle on and off, the g codes the machine uses, etc. I just dont know how I would even go about writing the bolt hole pattern. I know, for example I could write something like this line by line X-2.5425 Y4.7207 X-2.7019 Y4.9284 X-2.8787 Y5.1213 X-3.0716 Y5.2981 and plot each and every point, but if I write one # wrong it will mess up the whole thing. I want to know if there is a way with a CAD program or something, I could type in # of holes and radius (like mentioned in that above Haas program) and it could plot all of the points.
Yah I guess so. But the experience needed is one copy of any program that runs on his machine laying in front of him and a list of G and M codes for that machine.
============= If the cad program is AutoCAD or a clone line IntelliCAD that supports lisp, load and run the following program. Create a new "CNC" layer for the information. You may need to move the part cartoon so you get a good 0,0 point. Also this assumes the cartoon is correct.
You can use the and circle commands to locate the bolt holes and then use snap int to locate that intersection.
Note that while the file names are different you will need to type just cnc at the prompt
========= cut and paste into cnc.lsp text file ======= mill version ;* CNC.LSP ;* ;* Program to get location of line/arc end, draw a small donut at that ;* location, draw a leader line to text location and them print location ;* of that point on the print. This is particurarly useful for ;* programming CNC turning centers/lathes. Part should be moved so that ;* origin of part is at 0,0. ;* by g. mc duffee at allen county community college 11/9/1993. ;* (prompt "Loading CNC point ID program -- type VCNC to run ") (vmon) (defun C:vcnc () ( setq cmdech (getvar "CMDECHO")) ( setvar "CMDECHO" 0) ( graphscr ) ( setq txthgt (getvar "TEXTSIZE")) ( setq cncp (getpoint "\nPick CNC Point.")) ( setq xnum (car cncp)) ( setq ynum (cadr cncp)) ;* ( setq temp (- xnum)) ;* ( setq xnum temp) ;* ( setq temp (- ynum)) ;* ( setq ynum temp) ( setq xtxt (rtos xnum 2 3)) ( setq ytxt (rtos ynum 2 3)) ( setq cnctxt (strcat xtxt ", " ytxt " ")) ( setq txtp (getpoint "\nPick text location ")) ( command "TEXT" "R" txtp txthgt 90 cnctxt) ( command "LINE" txtp cncp "") ( command "DONUT" "0" "0.05" cncp "") ( setvar "CMDECHO" cmdech) ( princ) )
========== lathe version ======== ;* MLDCNC.LSP ;* ;* Program to get location of line/arc end, draw a small donut at that ;* location, draw a leader line to text location and them print location ;* of that point on the print. This is particurarly useful for ;* programming CNC turning centers/lathes. Part should be moved so that ;* origin of part is at 0,0. ;* by g. mc duffee at allen county community college 11/9/1993. ;* major difference from cnc1.lsp is inversion of axis values ;* x value sign inverted ;* z value doubled for diameter programming (vmon) (defun C:cnc () ( setq cmdech (getvar "CMDECHO")) ( setvar "CMDECHO" 0) ( graphscr ) ( setq txthgt (getvar "TEXTSIZE")) ( setq cncp (getpoint "\nPick CNC Point.")) ( setq xnum (car cncp)) ( setq xnum (-xnum)) ( setq ynum (cadr cncp)) ( setq ynum (2 * ynum)) ( setq xtxt (rtos xnum 2 3)) ( setq ytxt (rtos ynum 2 3)) ( setq cnctxt (strcat xtxt ", " ytxt " ")) ( setq txtp (getpoint "\nPick text location ")) ( command "TEXT" "R" txtp txthgt 90 cnctxt) ( command "LINE" txtp cncp "") ( command "DONUT" "0" "0.05" cncp "") ( setvar "CMDECHO" cmdech) ( princ) )
============= Let the group know how things turn out. Email me with questions if you have any.
Unka' George [George McDuffee]
------------------------------------------- He that will not apply new remedies, must expect new evils: for Time is the greatest innovator: and if Time, of course, alter things to the worse, and wisdom and counsel shall not alter them to the better, what shall be the end?
Francis Bacon (1561-1626), English philosopher, essayist, statesman. Essays, "Of Innovations" (1597-1625).
Reading between the lines and posts the OP made in other forums, it doesn't look like the OP knows how to calculate his program points. If true a simple program or Haas Quick Code is not all the OP is going to need.
In case the OP can use it here is a Generic program for a BHC. And a couple links that may help him.
PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here.
All logos and trade names are the property of their respective owners.