Long lines in post

[scott41]

I need this type of post to look like the one at the bottom. The Haas I am using does not like long lines. I am using Mill X2 MR2.

 

%

O1( 37529_30 RISER )

( DATE=DD-MM-YY - 11-10-07 TIME=HH:MM - 21:06 )

( MCX FILE - G:ENGINEERINGDRAWINGS3752937529_30 DIEMCX2 MILLING37529_30 RISER.MCX )

( NC FILE - C:MCAMX2-MR1MILLNC37529_30 RISER.NC )

( MATERIAL - STEEL INCH - 1010 - 200 BHN )

( T23 | 3/4 SPOTDRILL | H23 )

( T25 | 5/8 DRILL | H25 )

( T27 | 3/4 DRILL | H27 )

( T9 | 45 DEG CUTTER | H9 )

( T20 | 1.25 SANDVIK COROMILL 300 | H20 | XY STOCK TO LEAVE - .02 | Z STOCK TO LEAVE - .01 )

( T39 | 1.00 DIEMASTER - LONG | H39 | XY STOCK TO LEAVE - .02 | Z STOCK TO LEAVE - .01 )

( T18 | 5/8 SECO INDEXABLE CUTTER | H18 | XY STOCK TO LEAVE - .02 | Z STOCK TO LEAVE - .01 )

( T16 | 12MM EM - SHORT | H16 | D16 | WEAR COMP | TOOL DIA. - .472441 | XY STOCK TO LEAVE -.005 | Z STOCK TO LEAVE - .01 )

N2 G20

N4 G0 G17 G40 G49 G80 G90

( SPOT 3/4 )

N6 T23 M6

N8 G0 G90 G54 X45.5355 Y3.5 S900 M3

N10 G43 H23 Z2. T25

N12 M8

N14 G98 G81 Z-.2035 R.1 F3.

N16 X53.8855

N18 X52.0355 Y8.

N20 X45.5355

N22 Y12.5

N24 X53.8855

N26 G80

( SPOT 5/8 )

 

 

Want to look like this:

How do I get rid of the long lines?

 

%

O1( 37529_30 RISER )

( T23 | 3/4 SPOTDRILL | H23 )

( T25 | 5/8 DRILL | H25 )

( T27 | 3/4 DRILL | H27 )

( T9 | 45 DEG CUTTER | H9 )

( T20 | 1.25 SANDVIK COROMILL 300 | H20 )

( T39 | 1.00 DIEMASTER - LONG |)

( T18 | 5/8 SECO INDEXABLE CUTTER | H18 )

( T16 | 12MM EM - SHORT | H16)

N2 G20

N4 G0 G17 G40 G49 G80 G90

( SPOT 3/4 )

N6 T23 M6

N8 G0 G90 G54 X45.5355 Y3.5 S900 M3

N10 G43 H23 Z2. T25

N12 M8

N14 G98 G81 Z-.2035 R.1 F3.

N16 X53.8855

N18 X52.0355 Y8.

N20 X45.5355

N22 Y12.5

N24 X53.8855

N26 G80

( SPOT 5/8 )

 

Thanks for any help.

[Hardmill]

quote:

---

Want to look like this:

How do I get rid of the long lines?

---

Send me your post and ill edit it for you in the AM.

 

 

PEACE

[scott41]

Thanks for the offer Hardmill! You have mail.

[Kannon]

quote:

---

Send me your post and ill edit it for you in the AM.

---

better wait til 12...he dont get up before then on a Friday..

[scott41]

LOL, thats fine I work the afternoon shift here!

[Hardmill]

quote:

---

better wait til 12...he dont get up before then on a Friday..

---

Tis true usually, this should be my fri off. SHOULD BE.

But ill be workin half day today.

 

 

PEACE

[John13]

HA_HA you have to work another Friday.

 

 

btw, Hardmill, can you tell me what you do to his post, I should probably do the same to mine. My lines are too long and I manually go in and delete some to shorten it up a little.

[Randy Morton @ Clem Industrial]

From my integrex post that I have I found this section

 

code:

---

ptoolcomment    #Comment for tool

tnote = t$

toffnote = tloffno$

tlngnote = tlngno$

strtool$ = ucase(strtool$)

stoper = ucase(stoper)

stinsert2 = ucase(stinsert2)

spaces$ = 0

result = newfs(22, tnote1)

#"(", *tnote1, *toffnote1, ")", e$

#if posttype$ = two,

# "(", *stoper, " ", *strtool$, " ", *stinsert, *stinsert2, ")", e$

#else,

# "(", *stoper, " ", *strtool$, ")", e$

 

 

if posttype$ = 2,

[

"(", *tnote, ptspace, " | ", plistcomm, " | ", *toffnote, pdspace, " | ", *suffixnote, " | ", *stinsert, *stinsert2, ")", e$

]

else,

[

if mill5$ = 1, "(", *tnote, ptspace, " | ", plistcomm, " | ", *tlngnote, phspace, " | ", *toffnote, pdspace, " | ", *suffixnote, ")", e$

else, "(", *tnote, ptspace, " | ", plistcomm, " | ", *toffnote, pdspace, " | ", *suffixnote, ")", e$

]

 

spaces$ = sav_spc

---

I would just go thru this and remove the offending code that you do not want posted.

For me, I dont really need (in the integrex example) *suffixnote, *stinsert and *stinsert2 So my out put goes from (where my posttype$ = 2)

 

code:

---

(T1  | FACE + ROUGH OD - CNMG543      |  DIA. - 1  |  SUFFIX - 1. |  INSERT - CNMG-432)

(T36 | 3.25" KOMET 2.5X DRILL | DIA. - 25 | SUFFIX - 0.)

(T6 | 2" BORING BAR - CNMG543 | DIA. - 6 | SUFFIX - 1. | INSERT - CNMG543)

(T7 | 2" FINISH BORING BAR - CNMG543 | DIA. - 7 | SUFFIX - 1. | INSERT - CNMG543)

(T10 | .1875" VCPA FACE GROOVE | DIA. - 10 | SUFFIX - 1. | INSERT - VCPA .1875)

---

To...

 

code:

---

(T1  | FACE + ROUGH OD - CNMG543      |  DIA. - 1  )

(T36 | 3.25" KOMET 2.5X DRILL | DIA. - 25 )

(T6 | 2" BORING BAR - CNMG543 | DIA. - 6 )

(T7 | 2" FINISH BORING BAR - CNMG543 | DIA. - 7 )

(T10 | .1875" VCPA FACE GROOVE | DIA. - 10 )

---

HTH =]

[Hardmill]

You can delete it or place a "#" sign in front of the entire line.

 

Make sure to make a copy of your post B4 you start any edits !!!!!!!!!!!!!

 

 

_________________________________________________________

pheader$ #Call before start of file

"%", e$

sav_spc = spaces$

spaces$ = 0

*progno$, sopen_prn, sspace, sprogname$, sspace, sclose_prn, e$

#sopen_prn, sspace, "PROGRAM NAME - ", sprogname$, sspace, sclose_prn, e$

(# sign here) sopen_prn, sspace, "DATE=DD-MM-YY - ", date$, " TIME=HH:MM - ", time$, sspace, sclose_prn, e$ #Date and time output Ex. 12-02-05 15:52

#sopen_prn, sspace, "DATE - ", month$, "-", day$, "-", year$, sspace, sclose_prn, e$ #Date output as month,day,year - Ex. 02-12-05

#sopen_prn, sspace, "DATE - ", *smonth, " ", day$, " ", *year2, sspace, sclose_prn, e$ #Date output as month,day,year - Ex. Feb. 12 2005

#sopen_prn, sspace, "TIME - ", time$, sspace, sclose_prn, e$ #24 hour time output - Ex. 15:52

#sopen_prn, sspace, "TIME - ", ptime, sspace, sclose_prn, e$ #12 hour time output 3:52 PM

spathnc$ = ucase(spathnc$)

smcname$ = ucase(smcname$)

stck_matl$ = ucase(stck_matl$)

snamenc$ = ucase(snamenc$)

(here)#sopen_prn, sspace, "MCX FILE - ", *smcpath$, *smcname$, *smcext$, sspace, sclose_prn, e$

(here) #sopen_prn, sspace, "NC FILE - ", *spathnc$, *snamenc$, *sextnc$, sspace, sclose_prn, e$

(here)#sopen_prn, sspace, "MATERIAL - ", *stck_matl$, sspace, sclose_prn, e$

spaces$ = sav_spc

 

___________________________________________________________

 

 

PEACE

[Hardmill]

Scott mail.

A zip2go file is best to send so you get all machine defs with post.

 

Shoot it back to me when you get in and ill finish it up for you .

 

 

PEACE

[Surface]

Could it be fixed using the Control Definition Manager?

Under the "NC Output tab", there is field "Maximum Characters in NC Comment."

 

If not, what does this field do?

[Hardmill]

Havent tried it like that, I know it works the other way so I neva gave it a thought.

 

 

Maybe Keebler can try it and let us know.

 

ELF = guinea pig

 

 

PEACE

[John13]

quote:

---

Under the "NC Output tab", there is field "Maximum Characters in NC Comment."

---

That did not appear to work, I set it for 79 and the line I need shortened remained the same length. Must be in th post itself.

[Storkman]

If dummy won't help ya Keeb. Send it my way and I'll shorten it for ya.

[Hardmill]

quote:

---

I set it for 79 and the line I need shortened remained the same length.

---

Prolly cause it was only 40 characters long.

:A$$ KICK:

 

 

 

PEACE

[Hardmill]

quote:

---

If dummy won't help ya Keeb.

---

I was gonna fix it this morning, but he said hes too busy workin.

 

"aHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHA"

 

 

PEACE

[John13]

NO it was longer than 40 characters dummy.

 

I can tell if it is longer than my tool lines, it will be too long. I tried the # sign and it still posted it.

 

Now my post wont work, why oh why didn't I back it up.

 

 

.

 

 

.

 

 

j/k thought I was stupid, didn't ya.

[John13]

Got it. I had changed it through the control def through the machine def. I didn't realize I had to go into the control def by itself as well.

[Hardmill]

quote:

---

thought I was stupid, didn't ya.

---

Not at all..........We know it.

 

 

PEACE

[scott41]

O.K. for some reason I cant receive email at work with attachments!

 

But the "#" sign worked great, does exactly what I want....Thanks hardmill!

 

One more question, probably something simple but...How can I get the home position to only go to zero in the "Y" direction and not the "X"?

 

Thanks again for all the help.

[Guest]

At the end of the program?

 

could you post your peof section?

[iowajim62]

you could try taking out the X here if you want at the end of program only, if you want at all toolchanges then you need to alter pretract section of post

code:

---

 peof            #End of file for non-zero tool 

*sm05, e

pretract

if lock_codes = 1 & rot_on_x, pbld, n, *sunlock, "(UNLOCK)", e

rotretflg = 1

pbld, n, "G28", "X0", "Y0", protretinc, e

---

[scott41]

code:

---

peof0$           #End of file for tool zero               

peof$

 

peof$ #End of file for non-zero tool

pretract

comment$

if stagetool = 1 & stagetltype = 2, pbld, n$, *first_tool$, e$

n$, "M30", e$

mergesub$

clearsub$

mergeaux$

clearaux$

"%", e$

---

[Guest]

Looks like yours is in the pretract section of your post, look at what iowajim posted and find the line that looks like that and remove the X move

[scott41]

I have this in there...

code:

---

#Select reference return code 

sg28 G28 #First reference point return

sg30 G30 #Second reference point return

sg28ref #Target string

 

fstrsel sg28 mi3$ sg28ref 2 -1

---