Question about Tool_Type Post..

[Alan Chen]

Can anyone help me..??

 

I modify the post with "strtool_v7" Parameter set to "0"

 

It will output "Flatmill" or "Bullmill" ...etc.

Can I change the common..??

 

if can't, I want to like this...

 

if I select a new tool with "EndMill", Post will output tool common with "EM".

 

if I select a new tool with "CHAMFER MILL", Post will output tool common with "CM".

 

if I select a new tool with "FACE MILL", Post will output tool common with "FM".

 

Can Mastercam post do..??

 

Thanks...

[kinglouie V]

first I'd define your variables (em,fm,etc) in misc variable space, then in the psof write your if/then. I could be all wet but my eyes are heavy from looking at post code all day.

-no expert.

[Chao]

Hi there,

 

Just for reference only:

 

1, open MPmaster.pst and find the block ppredtool to find tool type info, such as tool_type = 3 for drill, tool_type = 10 for flatmill, etc.

 

2, put if .... then ... into whereve you like to output the tool info, such as

 

if tool_type = 10, pbld, n, "E/M", e

3, there are 19 different tools in Mcam, you have to put all types of tools to there.

 

It is not very difficult to get this done, but it will take some time.

 

good luck.

[Allan Brown]

some of the guts of the hmtl setup sheet have this (X version) with the $ after variables:

 

code:

---

styp0      "undefine"  # UNDEFINED        0

styp1 "center" # CENTER DRILL 1

styp2 "spot" # SPOT DRILL 2

styp3 "drill" # DRILL 3

styp4 "tap-rh" # TAP-RH 4

styp5 "tap-lh" # TAP-LH 5

styp6 "reamer" # REAMER 6

styp7 "bore" # BORING BAR 7

styp8 "cbore" # COUNTER BORE 8

styp9 "csink" # COUNTER SINK 9

styp10 "flat" # END MILL FLAT 10

styp11 "ball" # END MILL SPHER 11

styp12 "chamfer" # CHAMFER MILL 12

styp13 "face" # FACE MILL 13

styp14 "slot" # SLOT MILL 14

styp15 "rad" # CORNER RAD MILL 15

styp16 "dove" # DOVETAIL MILL 16

styp17 "taper" # TAPER MILL 17

styp18 "lollipop" # LOLLIPOP MILL 18

styp19 "bull" # END MILL BULL 19

styp20 "blockdrl" # BLOCK DRILL 20

 

if tool_typ$ = 0, styp0 # UNDEFINED 0

if tool_typ$ = 1, styp1 # CENTER DRILL 1

if tool_typ$ = 2, styp2 # SPOT DRILL 2

if tool_typ$ = 3, styp3 # DRILL 3

if tool_typ$ = 4, styp4 # TAP-RH 4

if tool_typ$ = 5, styp5 # TAP-LH 5

if tool_typ$ = 6, styp6 # REAMER 6

if tool_typ$ = 7, styp7 # BORING BAR 7

if tool_typ$ = 8, styp8 # COUNTER BORE 8

if tool_typ$ = 9, styp9 # COUNTER SINK 9

if tool_typ$ = 10, styp10 # END MILL FLAT 10

if tool_typ$ = 11, styp11 # END MILL SPHER 11

if tool_typ$ = 12, styp12 # CHAMFER MILL 12

if tool_typ$ = 13, styp13 # FACE MILL 13

if tool_typ$ = 14, styp14 # SLOT MILL 14

if tool_typ$ = 15, styp15 # CORNER RAD MILL 15

if tool_typ$ = 16, styp16 # DOVETAIL MILL 16

if tool_typ$ = 17, styp17 # TAPER MILL 17

if tool_typ$ = 18, styp18 # LOLLIPOP MILL 18

if tool_typ$ = 19, styp19 # END MILL BULL 19

if tool_typ$ = 20, styp20 # BLOCK DRILL 20

---

You could use that, editing the string for EM instead of flat

[Alan Chen]

Thanks... I have modify finish...

 

pwrtt$ # Write tool table, scans entire file, null tools are negative

tnote = t$

toffnote = tloffno$

tlngnote = tlngno$

 

if t$ >= 0,

if tool_typ$ = 0, "(UNDEFINE ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 1, "(CENTER ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 2, "(SPOT ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 3, "(DRILL ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 4, "(TAP-RH ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 5, "(TAP-LH ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 6, "(REAMER ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 7, "(BORE ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 8, "(CBORE ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 9, "(CSINK ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 10, "(FLAT ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 11, "(BALL ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 12, "(CHAMFER ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 13, "(FACE ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 14, "(SLOT ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 15, "(RAD ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 16, "(DOVE ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 17, "(TAPER ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 18, "(LOLLIPOP ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if tool_typ$ = 19, "(BULL ",*tnote," ",*tlngnote," ", *toffnote," ", *tldia$," " ,"R=" ,*tcr$, ")",e$

if t$ >= 0, tcnt = tcnt + 1