How get rid of comments on the top in post?

[Darin]

Hello,

 

We have a machine that can only hold so many characters and can't drip feed so I need to delete as much as possible.. Where in the post does it control the below comments so I can delete them? I tried unchecking all on the output comments in the machine group properties but there are still there...

 

 

N5

O0037 (2ND OPP DAM SPACER)

(MCX FILE - C:\USERS\JAMIE\DOCUMENTS\DAM PARTS\DAM SPACER.MCX-6) <---------------------- Need this line gone----------------------------------->

(PROGRAM - 2ND OPP DAM SPACER.NC) <---------------------- Need this line gone----------------------------------->

(DATE - JAN-24-2013) <---------------------- Need this line gone----------------------------------->

(TIME - 10:56 AM) <---------------------- Need this line gone----------------------------------->

(T6 - 1/2 SPOT DRILL - H6 - D71 - D0.5000") <----------------------------------------------------------------------------Would like to get rid of spaces on these lines for the tool list ------------------------------------------>

(T7 - 27/64 DRILL - H7 - D7 - D0.4219")

(T9 - 1/2-13 TAP - H9 - D9 - D0.5000")

(T16 - 1.0" FACEMILL - H10 - D10 - D1.0000" - R0.0300")

(T1 - 1/2 ENDMILL - H11 - D11 - D0.5000")

(OVERALL MAX - Z3.)

(OVERALL MIN - Z-1.625)

N6G00G17G20G40G80G90

N7G91

 

 

Is it in the post in this area?

 

 

# --------------------------------------------------------------------------

# Start of File and Toolchange Setup

# --------------------------------------------------------------------------

psof0$ #Start of file for tool zero

psof$

psof$ #Start of file for non-zero tool number

ptravel

pwritbuf5

pcuttype

toolchng = one

if ntools$ = one,

[

#skip single tool outputs, stagetool must be on

#stagetool = m_one

!next_tool$

]

tooltotal = rbuf(4,0) #Reads total tool and null tool changes

if toolcountn <= tooltotal, nexttool = rbuf(4,toolcountn)

else, nexttool = first_tool$

if tool_table = 2, ppredstck

if tool_table = 3, pmetastck

spaces$=0

if output_z = yes$ & tcnt > 1,

[

scomm_str, "OVERALL MAX - ", *z_tmax, scomm_end, e$

scomm_str, "OVERALL MIN - ", *z_tmin, scomm_end, e$

]

spaces$=sav_spc

if plane$ < 0 | opcode$ = 3 | opcode$ = 16, plane$ = 0

pbld, n$, *sgcode, *sgplane, *smetric, "G40", "G80", *sgabsinc, e$

sav_absinc = absinc$

absinc$ = one

if wcstype <= one, #Work coordinate system

[

pfbld, n$, sgabsinc, e$

pfbld, n$, "G92", *xh$, *yh$, *zh$, e$

]

else,

[

pbld, n$, sgabsinc, e$

[Craig-B]

_{Try this, place a # sign in front the lines the you dont want output}

_{# --------------------------------------------------------------------------}

_{# Start of File and Toolchange Setup}

_{# --------------------------------------------------------------------------}

_{psof0$ #Start of file for tool zero}

_psof$

_{psof$ #Start of file for non-zero tool number}

_ptravel

_pwritbuf5

_pcuttype

_{toolchng = one}

_{if ntools$ = one,}

_[

_{#skip single tool outputs, stagetool must be on}

_{#stagetool = m_one}

_{!next_tool$}

_]

_{tooltotal = rbuf(4,0) #Reads total tool and null tool changes}

_{if toolcountn <= tooltotal, nexttool = rbuf(4,toolcountn)}

_{else, nexttool = first_tool$}

_{#if tool_table = 2, ppredstck<-------------------------------------Like this}

_{#if tool_table = 3, pmetastck<-------------------------------------Like this}

_spaces$=0

_{if output_z = yes$ & tcnt > 1,}

_[

_{#scomm_str, "OVERALL MAX - ", *z_tmax, scomm_end, e$ <-------------------------------------Like this}

_{# scomm_str, "OVERALL MIN - ", *z_tmin, scomm_end, e$ <-------------------------------------Like this}

_]

_{spaces$=sav_spc}

_{if plane$ < 0 | opcode$ = 3 | opcode$ = 16, plane$ = 0}

_{pbld, n$, *sgcode, *sgplane, *smetric, "G40", "G80", *sgabsinc, e$}

_{sav_absinc = absinc$}

_{absinc$ = one}

_{if wcstype <= one, #Work coordinate system}

_[

_{pfbld, n$, sgabsinc, e$}

_{pfbld, n$, "G92", *xh$, *yh$, *zh$, e$}

_]

_else,

_[

_{pbld, n$, sgabsinc, e$}

[Radical1]

this section of the post controls what gets posted. I have changed some myself, these are the notes I have made for my own records you can use them to help guide you through as well. I have a habit of putting 3pound signs to indicate my edits

 

 

### "%", e$ ###turns off percent sign at top of program

### " ", e$ ### added line space

spaces$=0

 

### *progno$, " ", scomm_str, sprogname$, scomm_end, e$

*progno$, scomm_str, sprogname$, scomm_end, e$ ###removed " " between prog. # and comment

" ", e$ ### added line space

spathnc$ = ucase(spathnc$)

smcname$ = ucase(smcname$)

comment$ # File descriptor

spaces$=0

" ", e$ ### added line space between manual comment and header

#scomm_str, "PROGRAM NAME - ", sprogname, scomm_end, e

#scomm_str, "DATE=DD-MM-YY - ", date, " TIME=HH:MM - ", time, scomm_end, e

#scomm_str, "MASTERCAM - V", *vers_no$, scomm_end, e$

# scomm_str, "MASTERCAM - X", scomm_end, e$

### scomm_str, "MCX FILE - ", smcpath$, smcname$, smcext$, scomm_end, e$ ###turned off MCX comment

if spostname_sav = snull, spostname_sav = spostname

# scomm_str, "POST - ", snamepst$, scomm_end, e$

#scomm_str, "MP - V", *dll_vers$, scomm_end, e$

stck_matl$ = ucase(stck_matl$)

scomm_str, "MATERIAL:", stck_matl$, scomm_end, e$ ###turned on MATERIAL

### scomm_str, "PROGRAM - ", sprogname$, sextnc$, scomm_end, e$ ###turned off PROGRAM comment

scomm_str, "DATE:", *smonth, "/", *day$, "/", *year$, scomm_end, e$ # MON-DD-YYYY ###changed spacing and added :

#scomm_str, "DATE - ", *year$, "/", *month$, "/", *day$, scomm_end, e$ # YYYY/MN/DD

#scomm_str, "DATE - ", *day$, "/", *month$, "/", *year$, scomm_end, e$ # DD/MN/YYYY

#scomm_str, "DATE - ", date$, scomm_end, e$ # DD-MM-YR

scomm_str, "TIME:", *hour, ":", *min, [if time$ < 12, " AM"], [if time$ >= 12, " PM"], scomm_end, e$ # 12 hour ###changed format

#scomm_str, "TIME - ", time$, scomm_end, e$ # 24 hour

#scomm_str, "POST DEVELOPED BY:", *slicense, scomm_end, e$

[Radical1]

removing spaces from tool coments can be a bit tricky because of the number of characters changes and the post likes to line everything up but if you can find this area in your post you can "play" with the values and it may help again I use 3# symbols to mark any of my changes. Try changing one value at a time to make sure you end up with the format you want.

 

 

good luck

 

 

 

ptoolcomm # Comments from tool library

spaces$ = 0

strtool$=ucase(strtool$)

if strtool$<>snull, pspc1, scomm_str, *strtool$, scomm_end

else, pspc1, scomm_str, "DEFINE TOOL NAMES", scomm_end

spaces$ = sav_spc

plistcomm # Comments from tool library

strtool$=ucase(strtool$)

if strtool$=snull, strtool$ = snocomm

*strtool$

nstrlen = strlen(strtool$)

counter = 0 ###CHANGED from 1

while counter <= (17-nstrlen), pspace ###changed from 20 to give less spaces after tool comment

pmetacomm # Comments from tool library

strtool$=ucase(strtool$)

if strtool$<>snull, *strtool$

else, "DEFINE TOOL NAMES"

pspace # Creates spaces based on tool comment length

" "

counter = counter + 1

ptspace # Creates spaces based on tool number

if t$ < 0, " " ###changed from 10

if t$ >= 10 & t$ < 100, " "

phspace # Creates spaces based on length offset number

if tlngno$ < 0, " " ###changed from 10

if tlngno$ >= 10 & tlngno$ < 100, " "

pdspace # Creates spaces based on diameter offset number

if tloffno$ < 0, " " ###changed from 10

if tloffno$ >= 10 & tloffno$ < 100, " "

pdiamspc # Creates spaces based on diameter offset number

#if tldia$ < 0, " " ###changed from 10

pspc # Creates spaces based tool level setting

if sav_spc = one & omitseq$ = no$, " "

pspc1 # Creates spaces based tool level setting

if sav_spc = one, " "

popnote # Operation note for tool table

if opcode$ = 3 | opcode$ = 16, *sdrnote

else,

[

if opcode$ = 13 & hst_flg, *sopnotehst

else, *sopnote

hst_flg = 0

]

[Darin]

removing spaces from tool coments can be a bit tricky because of the number of characters changes and the post likes to line everything up but if you can find this area in your post you can "play" with the values and it may help again I use 3# symbols to mark any of my changes. Try changing one value at a time to make sure you end up with the format you want.

 

 

good luck

 

 

 

ptoolcomm # Comments from tool library

spaces$ = 0

strtool$=ucase(strtool$)

if strtool$<>snull, pspc1, scomm_str, *strtool$, scomm_end

else, pspc1, scomm_str, "DEFINE TOOL NAMES", scomm_end

spaces$ = sav_spc

plistcomm # Comments from tool library

strtool$=ucase(strtool$)

if strtool$=snull, strtool$ = snocomm

*strtool$

nstrlen = strlen(strtool$)

counter = 0 ###CHANGED from 1

while counter <= (17-nstrlen), pspace ###changed from 20 to give less spaces after tool comment

pmetacomm # Comments from tool library

strtool$=ucase(strtool$)

if strtool$<>snull, *strtool$

else, "DEFINE TOOL NAMES"

pspace # Creates spaces based on tool comment length

" "

counter = counter + 1

ptspace # Creates spaces based on tool number

if t$ < 0, " " ###changed from 10

if t$ >= 10 & t$ < 100, " "

phspace # Creates spaces based on length offset number

if tlngno$ < 0, " " ###changed from 10

if tlngno$ >= 10 & tlngno$ < 100, " "

pdspace # Creates spaces based on diameter offset number

if tloffno$ < 0, " " ###changed from 10

if tloffno$ >= 10 & tloffno$ < 100, " "

pdiamspc # Creates spaces based on diameter offset number

#if tldia$ < 0, " " ###changed from 10

pspc # Creates spaces based tool level setting

if sav_spc = one & omitseq$ = no$, " "

pspc1 # Creates spaces based tool level setting

if sav_spc = one, " "

popnote # Operation note for tool table

if opcode$ = 3 | opcode$ = 16, *sdrnote

else,

[

if opcode$ = 13 & hst_flg, *sopnotehst

else, *sopnote

hst_flg = 0

]

 

Great thanks guys... That worked perfect..

[Radical1]

You can also play with these values, they remove some of the spaces around the hyphens. I usually # out the originals and change them below to keep an original of the format and show my changes.

 

 

### if tcr$>0, scomm_str, *t$, ptspace, " - ", plistcomm, " - ", *tlngno$, phspace, " - ", *tloffno$, pdspace, " - ", *tldia$, punit, pdiamspc, " - ", *tcr$, punit, scomm_end, e$ ###turned off original

### if tcr$=0, scomm_str, *t$, ptspace, " - ", plistcomm, " - ", *tlngno$, phspace, " - ", *tloffno$, pdspace, " - ", *tldia$, punit, pdiamspc, scomm_end, e$ ###turned off original

if tcr$>0, scomm_str, *t$, "-", plistcomm, "-", *tlngno$, "-", *tloffno$, pdspace, "-", *tldia$, punit, pdiamspc, "-", *tcr$, punit, scomm_end, e$ ###removed all spaces from -

if tcr$=0, scomm_str, *t$, "-", plistcomm, "-", *tlngno$, "-", *tloffno$, pdspace, "-", *tldia$, punit, pdiamspc, scomm_end, e$ ###removed all spaces from -