Tool Library

[Mike Whitten CAD/CAM Contractors]

Hello,

 

I am wondering if anyone could give me a few ideas on a type of software or method to modify the Detail doc file for the Tool Library. We have cells of horizontal mills where we must keep track of the tools. The method I have been using is to make and keep current my Mastercam library and also keep an Excel file that is done manually. This is far to time consuming. I would to take the detail doc file I already have and just manupulate it with a editor scripting type of thing? to get a man readable version for the floor.

 

IE:

 

 

From this:

 

Tool Number = 325

Tool Type = Drill

Tool name = .1719 PARA JOB DR

Diameter = 0.171900

Radius Type = None

Corner Radius = 0.000000

Threads = 0.000000

Tip Angle = 135.000000

Dia. offset number = 325

Length offset number = 325

Feed rate = 0.000000

Plunge rate = 0.000000

Retract rate = 0.000000

Spindle speed = 0

Number of flutes = 1

% of Matl. SFM = 220.000000

% of Matl. Feed/Tooth = 0.006300

Coolant = Flood

Material = Holder dia.

Tool filename = C:MCAM9MILLTOOLSDRILL.MC9

Required pilot dia. = 0.000000

Flute length = 2.125000

Overall length = 2.400000

Shoulder length = 2.125000

Shank Diameter = 0.171900

Holder dia. = 2.000000

Holder length = 1.000000

Spindle rotation = CW

Manufacturer's tool code = CLEVLAND Q-COBALT

Chuck = ER16 LONG

Metric Values = No

1st peck (% dia.) = 100.000000

sub. peck (% dia.) = 50.000000

Peck clear (% dia.) = 10.000000

Dwell = 0.000000

Retract (% dia.) = 10.000000

Cycle = G81/G82 - Drill/Counterbore

 

 

To this:

 

Tool Number = 325

Tool name = .1719 PARA JOB DR

Manufacturer's tool code = CLEVLAND Q-COBALT

Chuck = ER16 LONG

 

Thanks for any suggestions

 

Mike

[crazy^millman]

Have you tried using a set or the html set-up sheet to get this information output and printed?

[Mike Whitten CAD/CAM Contractors]

Ron,

 

I used the HTML for a long time about a year ago but I have not thought about using is for this?

 

Is it possible to get sevaral hundred tools documented from the tool library without having them tied to ops?

 

Thanks for the help

[Mike Whitten CAD/CAM Contractors]

Ron,

 

The same thing goes with the .set file, I have that figured out to output the way I want but I just thought I had to have them tied to ops?

 

Thanks

[crazy^millman]

Ok so can use do a filter to use only certain feilds exported from the Word Doc. I am thiking it would need to look this to get what you want:

code:

---

Filtered Tool List for C:MCAM9MILLTOOLSDURA MILL END MILLS - CHOICES - FOR LOW ALLOY STEELS.TL9

Wed Mar 24 19:40:53 2004

 

Tool Number Tool Type Diameter Tool Name Corner Radius Radius Type

 

1 Chamfer mill 0.1250-3 DuraMill 1/8" SCM-20125-60 2 0.000000 in. None

9 Chamfer mill 0.1250-4 DuraMill 1/8" SCM-20125-90 2 0.000000 in. None

2 Chamfer mill 0.1875-3 DuraMill 3/16" SCM-20188-60 0.000000 in. None

10 Chamfer mill 0.1880-3 DuraMill 3/16" SCM-20188-90 0.000000 in. None

11 Chamfer mill 0.2500-4 DuraMill 1/4" SCM-20250-90 2 0.000000 in. None

3 Chamfer mill 0.2500-3 DuraMill 1/4" SCM-20250-60 2 0.000000 in. None

14 Chamfer mill 0.2500-4 DuraMill 1/4" SCM-40250-90 4 0.000000 in. None

6 Chamfer mill 0.2500-3 DuraMill 1/4" SCM-40250-60 2 0.000000 in. None

12 Chamfer mill 0.3750-4 DuraMill 3/8" SCM-20375-90 2 0.000000 in. None

4 Chamfer mill 0.3750-3 DuraMill 3/8" SCM-20375-60 2 0.000000 in. None

15 Chamfer mill 0.3750-4 DuraMill 3/8" SCM-40375-90 4 0.000000 in. None

7 Chamfer mill 0.3750-3 DuraMill 3/8" SCM-40375-60 4 0.000000 in. None

13 Chamfer mill 0.5000-4 DuraMill 1/2" SCM-20500-90 2 0.000000 in. None

5 Chamfer mill 0.5000-3 DuraMill 1/2" SCM-20500-60 2 0.000000 in. None

16 Chamfer mill 0.5000-4 DuraMill 1/2" SCM-40500-90 4 0.000000 in. None

8 Chamfer mill 0.5000-3 DuraMill 1/2" SCM-40500-60 4 0.000000 in. None

1 Endmill1 Flat 0.0313 i DuraMill 1/32" REM-40031 4F . 0.000000 in. None

1 Endmill1 Flat 0.0313 i DuraMill 1/32" SEM-20031 2F . 0.000000 in. None

1 Endmill1 Flat 0.0313 i DuraMill 1/32" SEM-40031 4F . 0.000000 in. None

1 Endmill1 Flat 0.0313 i DuraMill Double End 1/32" DEM 0.000000 in. None

1 Endmill1 Flat 0.0313 i DuraMill Double End 1/32" DEM 0.000000 in. None

2 Endmill1 Flat 0.0468 i DuraMill Double End 3/64" DEM 0.000000 in. None

---

Is this what you are looking for?

[Mike Whitten CAD/CAM Contractors]

Ron,

 

I need to have a way to documnent the Tool holder and tool part numbers. In a cell that does lots of work we must calculate all of the tool hoder clearances so that we can run a job that has not ran for a year or so in the middle of the night at full rapid without worry.

 

Tool Number = 325

Tool name = .1719 PARA JOB DR

Overall length = 2.000000

Manufacturer's tool code = CLEVLAND Q-COBALT

Chuck = ER16 LONG

 

Thanks

 

Mike

[crazy^millman]

Well this is from the Post Help and I am thinkign you can make a custom post to output this the way you want for the set-up you are looking for. I am also think that Mick or one of the VB guys could show you a cool script. Here is what the post help says:

code:

---

Tool Parameters (20000s) (Mill)

Tool information NCI Lines

Tool info lines are added in the 20000's line range. These are not assigned variable names but can be

scanned for the desired values with the function rpar.

Tool definition - tool name

g

string

g = 20001

string = tool name from tool definition

Tool definition – manufacturer’s tool code

g

string

g = 20002

string = manufacturer’s tool code

Tool definition - chuck (name)

g

string

g = 20003

string = chuck name

---

I hope that helps get you to that point I am only thinking this will work for a spefic file if doen for a post not a complete tool libary.

[Mike Whitten CAD/CAM Contractors]

Ron,

 

Here is an example of one of the set files that I have. I have made it many different ways. I just rigged it. The big thing is that you have to have the tools tied to an operation before you can post it out.

 

I have some tool Libraries that are over 300 tools.

 

 

MASTERCAM TOOL LIST

---------------------

 

PROGRAM NAME = 15.75 X 3.00THK STEEL T-STONE HOLES AND KEY SLOTS FOR VISES

PROGRAM NUMBER = 7000

DATE PROCESSED = Mar-24-04

Time = 10:27

 

Notes:

OAL=Overall Length This is minimum tool hangout length.

If the Tool Info/part number or Holder Info is not

specified, then use standard items.

If Tool or Holder specs can not be met, please contact

the programming department or your supervisor.

 

T428= .500 4FLT 500LOC FINE TICN HOG RUF OAL= .75

(Holder Info.) = 1/2 SOLID STANDARD

 

T427= .375 5FLT .875LOC TICN CEM FIN OAL= 1.25

(Tool Info.) = Basset 02456HL

(Holder Info.) = 3/8 SOLID STANDARD

 

T419= .250 X 90DEG 2FLT CHAMFER CEM OAL= .8

(Holder Info.) = ER16 EXTEND

 

T422= .500 X 90 DEG. SPOT DR. OAL= 2.

(Holder Info.) = 1/2 SOLID STANDARD

 

T483= .368 JOB DR OAL= 4.1

(Holder Info.) = ER32 STANDARD

 

T484= 7/16-14 STANDARD PLUG CUT TAP OAL= 1.8

(Tool Info.) = OSG HYPRO LIST 280 / H5 / 28420-01

(Holder Info.) = ER32 STANDARD

----------------------------------------------

[crazy^millman]

Do you have Access Database. I am thinking you can impoert the data into there set up your fileds to show the data a certain way then you can do a report to print it out the way you want. It has been a few years since I used Access but thinking it could be done with a little work but give you the results you are lookign for. James put up a word macro see if this could be taliored to your needs.

code:

---

Sub MakeToolTable()

'

' MakeToolTable Macro

'

'Remove spaces

Selection.HomeKey Unit:=wdStory

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = " "

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Do While Selection.Find.Execute = True

Selection.Find.Execute Replace:=wdReplaceAll

Loop

 

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "^p "

.Replacement.Text = "^p"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Do While Selection.Find.Execute = True

Selection.Find.Execute Replace:=wdReplaceAll

Loop

 

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = " "

.Replacement.Text = "^t"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Do While Selection.Find.Execute = True

Selection.Find.Execute Replace:=wdReplaceAll

Loop

 

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "i^t"

.Replacement.Text = "^t"

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Do While Selection.Find.Execute = True

Selection.Find.Execute Replace:=wdReplaceAll

Loop

 

'Remove extra lines at top of program

Selection.HomeKey Unit:=wdStory

Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.HomeKey Unit:=wdStory

Selection.EndKey Unit:=wdStory, Extend:=wdExtend

Selection.ConvertToTable Separator:=wdSeparateByTabs, NumColumns:=7

', _

' NumRows:=19, Format:=wdTableFormatNone, ApplyBorders:=True, ApplyShading _

' :=True, ApplyFont:=True, ApplyColor:=True, ApplyHeadingRows:=True, _

' ApplyLastRow:=False, ApplyFirstColumn:=True, ApplyLastColumn:=False, _

' AutoFit:=False

 

'Remove "tool type" and "radius type" columns

Selection.Find.ClearFormatting

With Selection.Find

.Text = "tool type"

End With

Selection.Find.Execute

Selection.SelectColumn

Selection.Columns.Delete

Selection.Find.ClearFormatting

With Selection.Find

.Text = "radius type"

End With

Selection.Find.Execute

Selection.SelectColumn

Selection.Columns.Delete

Selection.SelectColumn

Selection.Columns.Delete

 

'Change column widths

Selection.SelectColumn

Selection.Cells.SetWidth ColumnWidth:=InchesToPoints(2), RulerStyle:= _

wdAdjustNone

Selection.Rows.SpaceBetweenColumns = InchesToPoints(0.15)

Selection.Collapse Direction:=wdCollapseStart

Selection.Move Unit:=wdColumn, Count:=-1

Selection.SelectColumn

Selection.Cells.SetWidth ColumnWidth:=InchesToPoints(2), RulerStyle:= _

wdAdjustNone

Selection.Rows.SpaceBetweenColumns = InchesToPoints(0.15)

Selection.Collapse Direction:=wdCollapseStart

Selection.Move Unit:=wdColumn, Count:=-1

Selection.SelectColumn

Selection.Cells.SetWidth ColumnWidth:=InchesToPoints(1.5), RulerStyle:= _

wdAdjustNone

Selection.Rows.SpaceBetweenColumns = InchesToPoints(0.15)

Selection.Collapse Direction:=wdCollapseStart

Selection.Move Unit:=wdColumn, Count:=-1

Selection.SelectColumn

Selection.Cells.SetWidth ColumnWidth:=InchesToPoints(1), RulerStyle:= _

wdAdjustNone

Selection.Rows.SpaceBetweenColumns = InchesToPoints(0.15)

 

'Bold top row

Selection.HomeKey Unit:=wdStory

Selection.SelectRow

Selection.Font.Bold = wdToggle

Selection.Font.Size = 12

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

 

' Sort Tool Table

Selection.MoveLeft Unit:=wdCharacter, Count:=1

Selection.Sort ExcludeHeader:=True, FieldNumber:="Column 1", SortFieldType _

:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _

:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _

wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _

wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _

wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _

:=wdLanguageNone

Selection.MoveLeft Unit:=wdCharacter, Count:=1

 

'Remove extra zeros from CORNER RADIUS Column

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

.Text = "00 in."

.Replacement.Text = " in."

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

 

End Sub

---

[Mike Whitten CAD/CAM Contractors]

Ron,

 

Thanks for the help, I will check this out in the morning. When I got office, I did not get Access. I did not know better. I think I have it at the shop though. I will also look at this code.

 

I will let you now if we figure it out. I must sleep now.

 

Thanks again,

 

Mike

[Hacsta]

mill man i have a question along or about the same line or maybe not. i want to put the tool diameter offset# and the height offset# in my tool library thanks for any help.

[Mike Whitten CAD/CAM Contractors]

Both of those values are on the Tool and will output properly if you go into the tool library and > right click > detail doc file.

 

The problem for me is I just want to control what comes out in the "detail doc file".

 

Thanks

[Hacsta]

they sure are, but i wanted to move the "tool type" bar over in the tool manager page and have a spot with those values

[Mike Whitten CAD/CAM Contractors]

That sounds like a good idea.

 

You can always put in an Enhancement request.

 

Mike

[Hacsta]

did you say good i think you did

 

i want to do this so when i have tools with same # but different hieght and diameter offset # (ie. T6 D26 H26) you can see them ,instead of having to click to find the right tool with the right offset

[Mike Whitten CAD/CAM Contractors]

I see.

 

Unfortunately, like some of the things that I do, this is something not many people do. They really consider this when doing Enhancements. I have tried many things..

 

Mike