I figured it out! With a little help.
Thanks.
// Advanced_Wedm 11.5 Windows 10/16/98 16:48:10 Macro File
// w:\mcl\SH2TOPM4.mcl
// CREATED: 07/12/01
//
// This turns a .SH2 to a .PM4 file for Agie #4 by...
// 1) changes the layer colors from cyan to yellow or green
// 2) does F2 and F9
// 3) saves the file as a .PM4
// 4) deletes the .SH2 file
//
//PAUSE[TX="The so far so good macro pause!", LR=10, LC=5, SR=2, SC=40,
PT=1]
GRAPHICS_OFF[]
VAR_REMOVE_ALL[]
STRING: #var3
#VAR3=STRIP_EXT(SHPFILE())// returns drive, path and pm4 file name with no
extension on it
// ie: j:\job\hs0253b
COLOR_CHG[CO=6, TY=1, TL=1, ST=0]// change layer 1 to yellow
COLOR_CHG[CO=2, TY=1, TL=2, ST=0]// change layer 2 to green
COLOR_CHG[CO=6, TY=1, TL=3, ST=0]// change layer 3 to yellow
MAC_EXE[FN="w:\\mcl\\u.mcl"]// F2
FULL[]// same as F9
AUTO_ANSWER[ AA="OK" ]
SAVE[FN=STRTMP("%VAR3"), FT=3, GS=0, WP="XY_PLANE"]
// save .SH2 file as a .PM4 file
SHELL[CMD_LN=STRTMP("erase %#VAR3.SH2"), WA=1, DP=0]
// WA=continuous operation and DP=runs in background
// This shells to DOS and deletes the .SH2 file
AUTO_ANSWER[ AA="OFF" ]
GRAPHICS_ON[]
Regards,
Michael Senack, CNC Programmer
Blount Canada Ltd
505 Edinburgh Road North
Guelph Ontario
N1H 6L4
519 822 6870 X354
FAX 519 822 1450
http://www.blount.com/
======================================================================
To find out more about this mailing list including how to unsubscribe,
send the message "info mfg-smartcam" to [EMAIL PROTECTED]
======================================================================
