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:

Computer Name Into Post?


Recommended Posts

Hi All,

  We have about 10 programmers in our company and we have to repost the program is it has issue.  We would like to make the post read the COMPUTER USER NAME.  Is it possible to make the POST spits out the COMPUTER USER NAME because we would like to know who posted by on the COMPUTER USER LOG IN like

 

ADMIN

GUESS

ADAM (Programmer)

 

 

Like this, please help

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

%
O1006 (KYLE006-CAL-REVA-OP1.NC)
(P/NAME= LINK)
(PROVEN PROGRAM)
(SOURCE= KYLE006-CAL-REVA.MCX-7)
(POSTED ON NOV.12.2014 AT 10*55AM)

(POSTED BY ADAM) ========> this is base on what the computer user LOG IN name
(MATSUURA HORIZONTAL)
(*)
(TOOLS LIST)
(T11 - 3.0" INGERSOLL FACEMILL - H11)
(T10 - .500, 1/2" CEM 2FL 1.000LOC - H10)
(*)
M0(CHECK WORK OFFSET)
(*)
G90
G10 L2 P0 X0 Y0 Z0 B0(G53 ZERO)
G10 L2 P1 X0 Y0 Z0 B0 (G54 B0.)
(*)
M0(CONFIRM WORKOFFSET AGAIN)
(*)
N11(3.0" INGERSOLL FACEMILL)
G0 G17 G40 G49 G80 G90
G91 G28 Z0
G28 X0 Y0
T11 M6(SKIM CUT PART, CUT#2)
M22
G90 G54 B0.
M22
X5.35 Y-1.0249 S7000 M3
G43 H11 Z2. M8(DOC= Z0.)
Z.125
G1 Z0. F15.
X-5.15 F50.
Y1.0249
X5.35
G0 Z2. M9
M5
G91 G28 Z0
G28 X0 Y0
M1

Link to comment
Share on other sites

Thank you Colin, I got it.

 

For those who want to know exactly how I did it.  Here it is...

PS:  To avoid blamming and debating, I have added the COMPUTER STRING ADDRESS

 

O1006(KYLE006-CAL-REVA-OP1.NC)

(PROVEN PROGRAM NOV.12.2014 AT 1*46PM) ============è GROUP COMMENT and DATE COMBINED ONE LINE

(STEVEN LUONG{19BE57E4-77ED-4BE0-9B92-AA67B5961E6E}) ============è USER NAME, COMPUTER ID STAMP AUTOMATICALLY OUTPUT NO MORE BLAMMING WHO DID IT. NO ONE CAN FAKE YOUR COMPUTER ID

(SOURCE= KYLE006-CAL-REVA.MCX-7)

(UNIVERSAL HORIZONTAL POST)

(*)

(TOOLS LIST)

(T11 - 3.0" INGERSOLL FACEMILL - H11)

(T10 - .500, 1/2" CEM 2FL 1.000LOC - H10)

(*)

M0(CHECK WORK OFFSET)

(*)

G90

G10 L2 P0 X0 Y0 Z0 B0(G53 ZERO)

G10 L2 P1 X0 Y0 Z0 B0 (G54 B0.)

(*)

M0(CONFIRM WORKOFFSET AGAIN)

(*)

N11(3.0" INGERSOLL FACEMILL)

G0 G17 G40 G49 G80 G90

G91 G28 Z0

G28 X0 Y0

T11 M6(SKIM CUT PART, CUT#2)

G90 G54 B0.

X5.35 Y-1.0249 S7000 M3

G43 H11 Z2. M8(DOC= Z0.)

Z.125

G1 Z0. F15.

X-5.15 F50.

Y1.0249

X5.35

G0 Z2. M9

M5

G91 G28 Z0

G28 X0 Y0

M1

 

# --------------------------------------------------------------------------
# Common User-defined Variable Initializations (not switches!)
# --------------------------------------------------------------------------
susername : ""

 

pheader$         #Call before start of file                        
      hour = int(time$)
      min = int((time$ - hour)* 100)
      if hour > 12, hour = hour - 12
      if hour = 0, hour = 12
      year$ = year$ + 2000

      "%", e$
      spaces$=0
      *progno$, scomm_str, snamenc$, sextnc$, scomm_end, e$

      #pReadRevNumber
      #" REV.", *b9_RevNumber, scomm_end, e$

      #scomm_str, spathnc$, scomm_end, e$
      comment$, e$
      [spaces$ = 0, scomm_str, "SOURCE= ", smcname$, smcext$, scomm_end, spaces$=sav_spc], e$
      [spaces$ = 0, "(POSTED ON ", *smonth, ".", *day$, ".", *year$   # MON-DD-YYYY
      " AT ", *hour, "*", *min, [if time$ < 12, "AM"], [if time$ >= 12, "PM"], scomm_end, e$]
      susername = sysinfo(result, 3),
      susername = ucase(susername)
      [spaces$ = 0, "(BY ", *susername, spaces$=sav_spc],
      susername =
sysinfo(result, 4),
      susername = ucase(susername)
      [spaces$ = 0, *susername, ")", spaces$=sav_spc], e$
      [spaces$ = 0, if spostname_sav = snull, spostname_sav = spostname, spaces$=sav_spc]

      scomm_str, snamepst$, scomm_end, e$

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.

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...