You're appending .txt to the end of the file name \\%name.txt"), ========== The following is a section from my code macro that creates a code file nemed for the .pm4 file and then generates a setup file, also named for the pm4 file. Perhaps some of it will help you.
//
#CONTROL=0
//
PROMPT[TX=" 0 FOR 40VA\n
1 FOR 50VA\n
2 FOR MORI\n
3 PASS WORK PLANE TO CODE, 2D ONLY\n
4 FOR SETUP SHEET ONLY\n
ESCAPE TO EXIT :\n
",VN="CONTROL",PT=1]
//
//STRING:#MACHINE// LOAD MACHINE ID VARIABLE FROM CONTROL VALUE
//IF(#CONTROL=0)
// #MACHINE="A"
//ENDIF
//IF(#CONTROL=1)
// #MACHINE="B"
//ENDIF
//
STRING:#EXT// LOAD SETUP SHEET FILE EXTENSION
#EXT=".JOS"
//
IF(#CONTROL=0)
GOTO(40VA)
ENDIF
//
IF(#CONTROL=1)
GOTO(50VA)
ENDIF
//
IF(#CONTROL=2)
GOTO(MORI)
ENDIF
//
IF(#CONTROL=3)
GOTO(MULTIPLANE)
ENDIF
//
IF(#CONTROL=4)
GOTO(SETUP)
ENDIF
//
GOTO(END) //if program has not branched then end program
//
//
@40VA
//
STRING:#MAIN
#MAIN=BODY // ASSIGN "BODY" TO VARIABLE -> "MAIN"
//
STRING:#FULLPATH
#FULLPATH=SHPFILE() // ASSIGN FILE PATH,NAME, AND EXTENSION TO VARIABLE ->
"FULLPATH"
//
//PAUSE[TX=STRTMP("FULL FILE PATH=%#FULLPATH"),PT=1] // UN-COMMENT TO
DISPLAY PATH IN
// A "PAUSE" BOX FOR DEBUGGING.
//
//
STRING:#NAMETEMP
#NAMETEMP=GET_NAME(#FULLPATH)// GET FILE NAME AND EXTENSION
//
STRING:#FILENAME
#FILENAME=STRIP_EXT(#NAMETEMP)// STRIP EXTENSION FROM FILE NAME
//#FILENAME=STRTMP(%#MACHINE%#FILENAME)// ADD MACHINE DESIGNATION TO FILE
NAME
//
STRING:#PATH
#PATH=GET_PATH(#FULLPATH) // "PATH ONLY" IS ASSIGNED TO #PATH VARIABLE
//
//
//PAUSE[TX=STRTMP("PATH WITHOUT FILE NAME=%#PATH"),PT=1] // UN-COMMENT TO
DISPLAY PATH IN
//A "PAUSE" BOX FOR DEBUGGING.
//
//
//PAUSE[TX=STRTMP("PATH WITH BODY=%#PATH%#MAIN"),PT=1] // UN-COMMENT TO
DISPLAY PATH IN
//A "PAUSE" BOX FOR DEBUGGING.
//
//
CODE[FN=STRTMP(%#PATH%#MAIN),// PUT IT ALL TOGETHER AND CODE "BODY" FILE
MF="OKUMA5.SMF",
TF="OKUMA9.TMP", SH=0, DC=1, SP=9]
//
//
PROMPT[TX="Press ENTER to accept the code file name,\n
Type a new name if different.\n
",VN="FILENAME", PT=1]// ASK FOR THE CODE FILE NAME
//
//
//PAUSE[TX=STRTMP("PATH AND NAME OF CODE FILE=\n
//%#PATH%#FILENAME"),PT=1] // UN-COMMENT TO DISPLAY PATH IN
//A "PAUSE" BOX FOR DEBUGGING.
//
//
CODE[FN=STRTMP(%PATH%#FILENAME),//CREATE THE ENTIRE CODE FILE
MF="OKUMA5.SMF",
TF="40-9.TMP", SH=0, DC=1, SP=9]
//
STRING:#CODEFILE
#CODEFILE=STRTMP(%PATH%#FILENAME)
//
//
PAUSE[TX="To output a Job Tooling sheet, select OK.\n
Press the ESC key to quit.",PT=1]
//
//
JOBINFO[OM=1,FN="..\shared\custom\HEADER.PRN",TS=0]
//
//
//
PROMPT[TX=STRTMP("The code file name was: %#FILENAME \n
The setup sheet name will be: %#FILENAME.JOS \n
Press ENTER to accept.\n
Type in a new name if different."),VN="FILENAME",PT=1]
//
//
//PAUSE[TX=STRTMP("SETUP FILENAME AND PATH=%#PATH%#FILENAME.JOS"),PT=1]
// UN-COMMENT TO DISPLAY PATH IN A "PAUSE" BOX FOR DEBUGGING
//
STRING:#SETUPCODE
#SETUPCODE=STRTMP(%PATH%#FILENAME)
//
CODE[FN=STRTMP("%PATH%#FILENAME.JOS"),//append filename to path and create
setup sheet
MF="OKUMA5.SMF",
TF="JSF-9.TMP", SH=0, DC=1, SP=9] //
//
#NAMETEMP=""
#FILENAME=""
#FULLPATH="" //NEW
#PATH=""
//
GOTO(END) // end program
//
//
Perhaps some of this will be of help to you.
bob
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, April 05, 2001 11:55 AM
> To: SmartCAM
> Subject: [mfg-smartcam] Naming a file from with in a macro
>
>
> When I run the macro I would like to have the output file named the same
> as the PM4. Currently my file outputs as .txt. If I change #name=1 my
> out put file name would be 1.txt. Can't find what I am missing.
>
> AUTO_ANSWER[AA="OK"]
>
> STRING:#name
>
> #name=JOS_STR(jof_file)
>
> REPORT_STEP[SS=0, SB=1, IJ=0,
> FF="C:\\SM11\\MILL\\JOSRPT\\excel export files\\esteprpt.fmt",
> OF=STRTMP("C:\\SM11\\MILL\\JOSRPT\\excel export
> files\\%name.txt"), OD=1]
>
>
> Thank you
>
> John
>
> CBR Industries, Inc.
> CNC Milling & Turning
> www.cbrcnc.com
>
<<attachment: winmail.dat>>
