Jump to content

Welcome to eMastercam

Register now to participate in the forums, access the download area, buy Mastercam training materials, post processors and more. This message will be removed once you have signed in.

Use your display name or email address to sign in:

Lee1

Verified Members
  • Posts

    71
  • Joined

  • Last visited

Everything posted by Lee1

  1. how can i reset my operation manage. is bug?
  2. how can i use mpfan.pst get this holder name and holder length? thanks
  3. how can i use 45 degree right head angle Aggregate? post :MPROUTER thanks
  4. vbs script code can do it? one by one operation batch post thanks
  5. How to edit and open .PSB flie? Please tell me !!!! thanks
  6. fmt Z 2 u_depth # User island depth fmt 2 m_step # Max rough step size fmt Z 2 n_cut # Numbr of finish cut fmt Z 2 z_cut # Z of finish cut fmt Z 2 k_down # Keep tool down fmt Z 2 d_cut # Depth cut fmt Z 2 d_order # Depth cut order fmt 2 o_sub # Output subprogram lable fmt 2 m_pass # Multi pass fmt Z 2 n_rough # Number of roughing cut fmt Z 2 d_rough # Depth of roughing cut fmt Z 2 n_finish # Number of finish cut fmt Z 2 d_finish # Depth of finish cut fmt Z 2 k_down_1 # Keep tool down fmt Z 2 t_depth # Toolpath depth fmt Z 2 d_mode # Depth fmt Z 2 t_stock # Top of stock fmt Z 2 f_plan # Feed plan fmt Z 2 f_mode # Feed plan mode fmt Z 2 t_stock_mode # Top of stock mode fmt Z 2 c_type # Contour type fmt Z 2 t_wall # Taper wall fmt Z 2 t_angle # Taper angle fmt Z 2 d_order_c # Depth cut order pparameter$ # Run parameter table if prmcode$ = 10064, u_depth = rpar(sparameter$,1) # User island depth if prmcode$ = 10065, m_step = rpar(sparameter$,1) # Max rough step size if prmcode$ = 10066, n_cut = rpar(sparameter$,1) # Numbr of finish cut if prmcode$ = 10067, z_cut = rpar(sparameter$,1) # Z of finish cut if prmcode$ = 10069, k_down = rpar(sparameter$,1) # Keep tool down if prmcode$ = 15211, d_cut = rpar(sparameter$,1) # Depth cut if prmcode$ = 15379, d_order = rpar(sparameter$,6) # Depth cut order if prmcode$ = 15738, o_sub = rpar(sparameter$,1) # Output subprogram lable if prmcode$ = 15214, m_pass = rpar(sparameter$,1) # Multi pass if prmcode$ = 15560, n_rough = rpar(sparameter$,1) # Number of roughing cut if prmcode$ = 15561, d_rough = rpar(sparameter$,1) # Depth of roughing cut if prmcode$ = 15380, n_finish = rpar(sparameter$,1) # Number of finish cut if prmcode$ = 15381, d_finish = rpar(sparameter$,1) # Depth of finish cut if prmcode$ = 15385, k_down_1 = rpar(sparameter$,1) # Keep tool down if prmcode$ = 10029, t_depth = rpar(sparameter$,1) # Toolpath depth if prmcode$ = 15103, d_mode = rpar(sparameter$,1) # Depth if prmcode$ = 10027, t_stock = rpar(sparameter$,1) # Top of stock if prmcode$ = 10024, f_plan = rpar(sparameter$,1) # Feed plan if prmcode$ = 10025, f_mode = rpar(sparameter$,1) # Feed plan mode if prmcode$ = 10028, t_stock_mode = rpar(sparameter$,1) # Top of stock mode if prmcode$ = 12014, c_type = rpar(sparameter$,1) # Contour type if prmcode$ = 12015, t_wall = rpar(sparameter$,1) # Taper wall if prmcode$ = 12016, t_angle = rpar(sparameter$,1) # Taper angle if prmcode$ = 12017, d_order_c = rpar(sparameter$,6) # Depth cut order pwrttparam$ #Information from parameters if prmcode$ = 10064, u_depth = rpar(sparameter$,1) # User island depth if prmcode$ = 10065, m_step = rpar(sparameter$,1) # Max rough step size if prmcode$ = 10066, n_cut = rpar(sparameter$,1) # Numbr of finish cut if prmcode$ = 10067, z_cut = rpar(sparameter$,1) # Z of finish cut if prmcode$ = 10069, k_down = rpar(sparameter$,1) # Keep tool down if prmcode$ = 15211, d_cut = rpar(sparameter$,1) # Depth cut if prmcode$ = 15379, d_order = rpar(sparameter$,6) # Depth cut order if prmcode$ = 15738, o_sub = rpar(sparameter$,1) # Output subprogram lable if prmcode$ = 15214, m_pass = rpar(sparameter$,1) # Multi pass if prmcode$ = 15560, n_rough = rpar(sparameter$,1) # Number of roughing cut if prmcode$ = 15561, d_rough = rpar(sparameter$,1) # Depth of roughing cut if prmcode$ = 15380, n_finish = rpar(sparameter$,1) # Number of finish cut if prmcode$ = 15381, d_finish = rpar(sparameter$,1) # Depth of finish cut if prmcode$ = 15385, k_down_1 = rpar(sparameter$,1) # Keep tool down if prmcode$ = 10029, t_depth = rpar(sparameter$,1) # Toolpath depth if prmcode$ = 15103, d_mode = rpar(sparameter$,1) # Depth if prmcode$ = 10027, t_stock = rpar(sparameter$,1) # Top of stock if prmcode$ = 10024, f_plan = rpar(sparameter$,1) # Feed plan if prmcode$ = 10025, f_mode = rpar(sparameter$,1) # Feed plan mode if prmcode$ = 10028, t_stock_mode = rpar(sparameter$,1) # Top of stock mode if prmcode$ = 12014, c_type = rpar(sparameter$,1) # Contour type if prmcode$ = 12015, t_wall = rpar(sparameter$,1) # Taper wall if prmcode$ = 12016, t_angle = rpar(sparameter$,1) # Taper angle if prmcode$ = 12017, d_order_c = rpar(sparameter$,6) # Depth cut order u_depth : 0 # User island depth m_step : 0 # Max rough step size n_cut : 0 # Numbr of finish cut z_cut : 0 # Z of finish cut k_down : 0 # Keep tool down d_cut : 0 # Depth cut d_order : 0 # Depth cut order o_sub : 0 # Output subprogram lable m_pass : 0 # Multi pass n_rough : 0 # Number of roughing cut d_rough : 0 # Depth of roughing cut n_finish : 0 # Number of finish cut d_finish : 0 # Depth of finish cut k_down_1 : 0 # Keep tool down t_depth : 0 # Toolpath depth d_mode : 0 # Depth t_stock : 0 # Top of stock f_plan : 0 # Feed plan f_mode : 0 # Feed plan mode t_stock_mode : 0 # Top of stock mode c_type : 0 # Contour type t_wall : 0 # Taper wall t_angle : 0 # Taper angle d_order_c : 0 # Depth cut order looper : 0 z_sav : 0 d_cut_flag : 0 fmt 2 a_a fmt 2 a_b fmt 2 a_c fmt Z 2 a_d prapidout #Output to NC of linear movement - rapid if d_cut = 1, [ a_a = t_stock a_b = t_depth a_c = m_step a_d = f_plan + t_stock "#100 = ", *a_a, "(TOP OF STOCK)", e$ "#101 = ", *a_b, "(DEPTH)", e$ "#102 = ", *a_c, "(MAX CUT DEPTH)", e$ "WHILE[#100",[if a_b > 0,"LE", else, "GE"], *a_b,"]DO1", e$ `sgcode, *a_d, e$ d_cut_flag = 1 d_cut = 0 ] else, [ sav_gcode = gcode$ if convert_rpd$ = one, [ gcode$ = one feed = maxfeedpm ipr_type = zero ] pcan1, pbld, sgplane, `sgcode, [if gcode$ = 1, sgfeed], sgabsinc, pccdia, pxout, pyout, pzout, pcout, [if gcode$ = 1, `feed], strcantext, scoolant, e$ gcode$ = sav_gcode ] if d_cut_flag = 1, [ a_a = t_stock a_b = t_depth a_c = m_step a_d = f_plan + t_stock "#100 = #100 - ", *m_step, e$ "END1", e$ ] ------------------------------------------------ % O0001 G00G17G20G40G80G90 G91G28Z0. (COMPENSATION TYPE - COMPUTER) N101T1M06(DEFINE TOOL NAMES) (MAX - Z8.) (MIN - Z-2.) G00G17G90G53X-.3709Y.7657S0M05 G43H1Z8.M08 #100 = 0.(TOP OF STOCK) #101 = -2.(DEPTH) #102 = .5(MAX CUT DEPTH) WHILE[#100GE-2.]DO1 Z.2 #100 = #100 - .5 END1 G94G01Z-.5F0. X-.0087Y.6686F.01 G03X.0302Y.6635I.0389J.1449 G01X.2823 G02X.7823Y.1635I0.J-.5 G01Y-.1752 G02X.2823Y-.6752I-.5J0. G01X-.2219 G02X-.7219Y-.1752I0.J.5 G01Y.1635 G02X-.2219Y.6635I.5J0. G01X.0302 G03X.069Y.6686I0.J.15 G01X.4312Y.7657 G00Z8. #100 = #100 - .5 END1 X-.3709 #100 = #100 - .5<----------------------------suppress below to M05 END1 #100 = 0. #101 = -2. #102 = .5 WHILE[#100GE-2.]DO1 Z.2 #100 = #100 - .5 END1 G01Z-1.F0. X-.0087Y.6686F.01 G03X.0302Y.6635I.0389J.1449 G01X.2823 G02X.7823Y.1635I0.J-.5 G01Y-.1752 G02X.2823Y-.6752I-.5J0. G01X-.2219 G02X-.7219Y-.1752I0.J.5 G01Y.1635 G02X-.2219Y.6635I.5J0. G01X.0302 G03X.069Y.6686I0.J.15 G01X.4312Y.7657 G00Z8. #100 = #100 - .5 END1 X-.3709 #100 = #100 - .5 END1 #100 = 0. #101 = -2. #102 = .5 WHILE[#100GE-2.]DO1 Z.2 #100 = #100 - .5 END1 G01Z-1.5F0. X-.0087Y.6686F.01 G03X.0302Y.6635I.0389J.1449 G01X.2823 G02X.7823Y.1635I0.J-.5 G01Y-.1752 G02X.2823Y-.6752I-.5J0. G01X-.2219 G02X-.7219Y-.1752I0.J.5 G01Y.1635 G02X-.2219Y.6635I.5J0. G01X.0302 G03X.069Y.6686I0.J.15 G01X.4312Y.7657 G00Z8. #100 = #100 - .5 END1 X-.3709 #100 = #100 - .5 END1 #100 = 0. #101 = -2. #102 = .5 WHILE[#100GE-2.]DO1 Z.2 #100 = #100 - .5 END1 G01Z-2.F0. X-.0087Y.6686F.01 G03X.0302Y.6635I.0389J.1449 G01X.2823 G02X.7823Y.1635I0.J-.5 G01Y-.1752 G02X.2823Y-.6752I-.5J0. G01X-.2219 G02X-.7219Y-.1752I0.J.5 G01Y.1635 G02X-.2219Y.6635I.5J0. G01X.0302 G03X.069Y.6686I0.J.15 G01X.4312Y.7657 G00Z8.M09 #100 = #100 - .5 END1 M05 G91G28Z0. G28Y0. G90 M30
  7. who have Citizen M32 post,please give one thanks
  8. I'm try it. but Is not the result I want
  9. my have one machine culd't use G94 code. plese help me ,thanks,thanks,thanks,, i use mastercam Generic Fanuc 5X Mill.pst process toolpath. % O0001 ( DATE - 18-05-11 TIME - 15:20 ) G21 G0 G17 G40 G80 G90 G94 G98 G0 G28 G91 Z0. G0 G30 X0. Y0. ( D3R1.5 TOOL - 1 DIA. OFF. - 1 LEN. - 1 DIA. - 3. ) T1 M6 G0 G54 G90 X0. Y7.509 C-.619 B75. S3555 M3 G43 H1 Z117.074 Z17.074 G1 Z12.074 F333. C0. F888. Y7.563 C6.35 F333. Y7.689 C13.303 F888. Y7.85 C20.328 Y8.028 C26.96 Y8.255 C33.273 Y8.578 C39.929 Y8.967 C47.029 Y9.381 C54.218 Y9.801 C61.435 ..... ..... ..... ..... ..... ..... ..... Y7.737 C343.817 Y7.592 C350.517 Y7.517 C356.599 Y7.509 C359.381 Z17.074 F800. G0 Z117.074 M5 G0 G28 G91 Z0. G0 G30 X0. Y0. G28 C0. B0. M30 <================================== This is i want % O0001 ( DATE - 18-05-11 TIME - 15:20 ) G21 G0 G17 G40 G80 G90 G94 G98 G0 G28 G91 Z0. G0 G30 X0. Y0. ( D3R1.5 TOOL - 1 DIA. OFF. - 1 LEN. - 1 DIA. - 3. ) T1 M6 G0 G54 G90 X0. Y7.509 C-.619 B75. S3555 M3 G43 H1 Z117.074 Z17.074 G1 Z12.074 F333. C0. F619. Y7.563 C6.35 F1962. <--------------- here Y7.689 C13.303 F2180.<--------------- here Y7.85 C20.328 F2329.<--------------- here Y8.028 C26.96 F2213.<--------------- here . . . etc...
  10. how can do one operation to one program
  11. How can i use vbs get tool over length how can resize pictue resize to 300X300px thanks my souce code dim graphic graphic=Replace(GetCurrentFileName(),".MCX",".EMF") DoMetafile graphic
  12. Lee1

    macro

    No one knows or don't want tell me know? please
  13. Lee1

    macro

    yes Mastercam post to write macros in lieu of subprograms
  14. Lee1

    macro

    Sub program conversion for macro programs by mastercam post who can do it ?? thanks
  15. Hi,all I have a question,can you help me?? if scomm blank then output "UNDEFINED OPERATION" pls help me ,Thanks see code: pcomment2 #Comment from manual entry scomm$ = ucase (scomm$) if gcode$ = 1006 | gcode$ = 1026, scomm$ else, [ if scomm$ <> sblank, [ *sopen_prn, "OPERATION ", 35 , *op_cnt, " ", scomm$, *sclose_prn ] else, [ # ------here here if scomm = sblank *sopen_prn, "OPERATION ", 35 , *op_cnt, " ", scomm$ + *snullop, *sclose_prn # *snullop = "UNDEFINED OPERATION" ] ] if gcode$ <> 1007 & gcode$ <> 1026, e$
  16. hi anyone,I want like post to macro program, because,the cnc machine(brother TC-31A) rom is small,so I want masertcam soft processing macro program,I have no idea. I don't do it . pls help me thanks I want this N101 T1 M6 ( 3/4 CARBID W./R.06 EM ) G0 G17 G90 G54 X-.5303 Y2.5 S10000 M3 G43 H1 Z8. M8 #100=-0.25 WHILE[#100 GE -5.] DO1(or GE/NE/LT/EQ/....) G0X-.5303 Y2.5 G1 Z#100 F300.(or X# or Y#) G41 D31 X-.2652 Y2.2348 F150. G3 X0. Y2.125 I.2652 J.2652 G1 X1.75 G2 X2.125 Y1.75 J-.375 G1 Y-1.75 G2 X1.75 Y-2.125 I-.375 G1 X-1.75 G2 X-2.125 Y-1.75 J.375 G1 Y1.75 G2 X-1.75 Y2.125 I.375 G1 X0. G3 X.2652 Y2.2348 J.375 G1 G40 X.5303 Y2.5 G0 Z[#100+0.25] X-.5303 #100=#100-0.25(DEPTH CUTS)or(multi pass) END1 G0 Z8. G91 G28 Y0.0 Z0.0 M1 M30

Join us!

eMastercam - your online source for all things Mastercam.

Together, we are the strongest Mastercam community on the web with over 56,000 members, and our online store offers a wide selection of training materials for all applications and skill levels.

Follow us

×
×
  • Create New...