parametric macro stuff

Been a while since ive been around. figured I would give it another go. Had a PM asking me some ?s that I really didnt understand the question. Hope this helps. This is a macro for socket welds. the variable commons need to be dropped and replaced with local variables is you dont have CV,VC. The beginning is the material where you would put different speeds and feeds for different materials. This cuts socket welds and will work with my vortex program I already posted.

here is the main statement

(----------------------------------------------------------------)
N4( T4- .7500 Solid carbide endmill )
(----------------------------------------------------------------)

CALL OTC PT=4 PS=2037 PM=3
T7
CALL OM4G1 PDR1=1.335 PDR2=.880
$ PID1=1.920 PIZ1=1.470 PID2=1.920 PIZ2=.630 PIF1=.0045 PIF2=.008 PIFF=.010
$ POD1=2.640 POZ1=.390 POD2=2.640 POZ2=.390
$ POF1=.016 POF2=.016 POFF=.014
M1

and here is the subs

(***********************************************************)

OMT4 (T4=".750 Dia. IMCO Solid Carbide endmill w/multi-layer coat")

NF22
IF[VC[170] NE 1]NF22S
PTD=.750 PSR=2037 PSF=2850 PFA=.035
NF22S

NA105
IF[VC[170] NE 2]NA105S
PTD=.750 PSR=??? PSF=??? PFA=.035
NA105S

NF91
IF[VC[170] NE 3]NF91S
PTD=.750 PSR=??? PSF=??? PFA=.035
PIF1=PIF1*??? PIF2=PIF2*??? PIFF=PIFF*???
POF1=POF1*??? POF2=POF2*??? POFF=POFF*???
NF91S

(-----------------------------------------------------------)

(POFD = O.D. forging DIA.)
(PEA = O.D. entry angle in degrees from the 3 O'clock position of forging's O.D.)
(PTD = tool DIA.)
(PSR = rough RPM)
(PSF = finish RPM)
(PFA = the feed for Z axis infeed, also the X & Y approach and exit)
(PID1 = I.D. of the socket on intake side)
(PID2 = I.D. of the socket on exhaust side)
(PIZ1 = I.D. Z depth of the socket intake side)
(PIZ2 = I.D. Z depth of the socket exhaust side)
(PIF1 = I.D. rough feed rate in IPR, intake side )
(PIF2 = I.D. rough feed rate in IPR, exhaust side )
(PIFF = I.D. finish feed rate in IPR for milling)
(POD1 = O.D. of the socket on intake side)
(POD2 = O.D. of the socket on exhaust side)
(POZ1 = O.D. Z depth of the socket intake side)
(POZ2 = O.D. Z depth of the socket exhaust side)
(POF1 = O.D. rough feed rate in IPR, intake side)
(POF2 = O.D. rough feed rate in IPR, exhaust side)
(POFF = O.D. finish feed rate in IPR for milling)

(-----------------------------------------------------------)

NB4C (intake)
IF[VC[3] NE 0]NB4CS
CALL O23
IF[VC[161] NE 1]NB4CID
CALL OA4ID PEA=0 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID1=PID1 PIZ1=PIZ1 PIF1=PIF1 PIFF=PIFF
NB4CID
IF[VC[171] NE 1]NB4COD
CALL OA4OD PEA=0 POFD=VC92 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD1=POD1 POZ1=POZ1 POF1=POF1 POFF=POFF
NB4COD
CALL OMZ
NB4CS

NB4D (exhaust)
IF[VC[4] NE 0]NB4DS
CALL O24
IF[VC[162] NE 1]NB4DID
CALL OB4ID PEA=0 POFD=VC91 PDR2=PDR2 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID2=PID2 PIZ2=PIZ2 PIF2=PIF2 PIFF=PIFF
NB4DID
IF[VC[172] NE 1]NB4DOD
CALL OB4OD PEA=0 POFD=VC91 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD2=POD2 POZ2=POZ2 POF2=POF2 POFF=POFF
NB4DOD
CALL OMZ
NB4DS

NB4B (intake)
IF[VC[2] NE 0]NB4BS
CALL O22
IF[VC[161] NE 1]NB4BID
CALL OA4ID PEA=180 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID1=PID1 PIZ1=PIZ1 PIF1=PIF1 PIFF=PIFF
NB4BID
IF[VC[171] NE 1]NB4BOD
CALL OA4OD PEA=180 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD1=POD1 POZ1=POZ1 POF1=POF1 POFF=POFF
NB4BOD
CALL OMZ
NB4BS

NB4A (exhaust)
IF[VC[1] NE 0]NB4AS
CALL O21
IF[VC[162] NE 1]NB4AID
CALL OB4ID PEA=180 POFD=VC91 PDR2=PDR2 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID2=PID2 PIZ2=PIZ2 PIF2=PIF2 PIFF=PIFF
NB4AID
IF[VC[172] NE 1]NB4AOD
CALL OB4OD PEA=180 POFD=VC91 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD2=POD2 POZ2=POZ2 POF2=POF2 POFF=POFF
NB4AOD
CALL OMZ
NB4AS

G30 P9

ND4C (exhaust)
IF[VC[3] NE 0]ND4CS
CALL O43
IF[VC[162] NE 1]ND4CID
CALL OB4ID PEA=180 POFD=VC91 PDR2=PDR2 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID2=PID2 PIZ2=PIZ2 PIF2=PIF2 PIFF=PIFF
ND4CID
IF[VC[172] NE 1]ND4COD
CALL OB4OD PEA=180 POFD=VC91 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD2=POD2 POZ2=POZ2 POF2=POF2 POFF=POFF
ND4COD
CALL OMZ
ND4CS

ND4D (intake)
IF[VC[4] NE 0]ND4DS
CALL O44
IF[VC[161] NE 1]ND4DID
CALL OA4ID PEA=180 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID1=PID1 PIZ1=PIZ1 PIF1=PIF1 PIFF=PIFF
ND4DID
IF[VC[171] NE 1]ND4DOD
CALL OA4OD PEA=180 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD1=POD1 POZ1=POZ1 POF1=POF1 POFF=POFF
ND4DOD
CALL OMZ
ND4DS

ND4B (exhaust)
IF[VC[2] NE 0]ND4BS
CALL O42
IF[VC[162] NE 1]ND4BID
CALL OB4ID PEA=0 POFD=VC91 PDR2=PDR2 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID2=PID2 PIZ2=PIZ2 PIF2=PIF2 PIFF=PIFF
ND4BID
IF[VC[172] NE 1]ND4BOD
CALL OB4OD PEA=0 POFD=VC91 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD2=POD2 POZ2=POZ2 POF2=POF2 POFF=POFF
ND4BOD
CALL OMZ
ND4BS

ND4A (intake)
IF[VC[1] NE 0]ND4AS
CALL O41
IF[VC[161] NE 1]ND4AID
CALL OA4ID PEA=0 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ PID1=PID1 PIZ1=PIZ1 PIF1=PIF1 PIFF=PIFF
ND4AID
IF[VC[171] NE 1]ND4AOD
CALL OA4OD PEA=0 POFD=VC92 PDR1=PDR1 PTD=PTD PSR=PSR PSF=PSF PFA=PFA
$ POD1=POD1 POZ1=POZ1 POF1=POF1 POFF=POFF
ND4AOD
CALL OMZ
ND4AS

CALL OTEC
RTS

(-----------------------------------------------------------)

OA4ID (intake=VC161)
S=PSR X0 Y0
Z.1
/M8
G1 G95 Z=-PIZ1+.01 F=PFA
G41 X=[PDR1-PTD]/2 I0 J-1
Y=[[PID1-PTD]/2]-[[PDR1-PTD]/2] F=PIF1
G3 X0 Y=[PID1-PTD]/2 R=[PDR1-PTD]/2
J=-[PID1-PTD]/2 Z=-PIZ1
S=PSF J=-[PID1-PTD]/2 F=PIFF
X=-[PDR1-PTD]/2 Y=[[PID1-PTD]/2]-[[PDR1-PTD]/2] Z=-PIZ1+.01 R=[PDR1-PTD]/2 F=PFA
G1 G40 X0 Y0 I0 J-1
G0 Z.1
RTS

(-----------------------------------------------------------)

OB4ID (exhaust=VC162)
S=PSR X0 Y0
Z.1
/M8
G1 G95 Z=-PIZ2+.01 F=PFA
G41 X=[PDR2-PTD]/2 I0 J-1
Y=[[PID2-PTD]/2]-[[PDR2-PTD]/2] F=PIF2
G3 X0 Y=[PID2-PTD]/2 R=[PDR2-PTD]/2
J=-[PID2-PTD]/2 Z=-PIZ2
S=PSF J=-[PID2-PTD]/2 F=PIFF
X=-[PDR2-PTD]/2 Y=[[PID2-PTD]/2]-[[PDR2-PTD]/2] Z=-PIZ2+.01 R=[PDR2-PTD]/2 F=PFA
G1 G40 X0 Y0 I0 J-1
G0 Z.1
RTS

(-----------------------------------------------------------)

OA4OD (intake=VC171)
S=PSR X0 Y0
Z.1
/M8
G11 P=PEA
S=PSR G95 X=[POFD+PTD+.3]/2 Y0
G1 Z=-POZ1+.01 F=PFA
G41 Y.1 I-1 J0
X=[POD1+PTD+.2]/2 F=POF1
G3 X=[POD1+PTD]/2 Y0 R.1 F=POF1*.5
G2 I=-[POD1+PTD]/2 Z=-POZ1 F=POF1
S=PSF I=-[POD1+PTD]/2 F=POFF
G3 X=[POD1+PTD+.2]/2 Y-.1 Z=-POZ1+.01 R.1 F=PFA
G1 G40 X=[POFD+PTD+.3]/2 Y0 I1 J0
G10
G94
CALL OMZ
RTS

(-----------------------------------------------------------)

OB4OD (exhaust=VC172)
S=PSR X0 Y0
Z.1
/M8
G11 P=PEA
S=PSR G95 X=[POFD+PTD+.3]/2 Y0
G1 Z=-POZ2+.01 F=PFA
G41 Y.1 I-1 J0
X=[POD2+PTD+.2]/2 F=POF2
G3 X=[POD2+PTD]/2 Y0 R.1 F=POF2*.5
G2 I=-[POD2+PTD]/2 Z=-POZ2 F=POF2
S=PSF I=-[POD2+PTD]/2 F=POFF
G3 X=[POD2+PTD+.2]/2 Y-.1 Z=-POZ2+.01 R.1 F=PFA
G1 G40 X=[POFD+PTD+.3]/2 Y0 I1 J0
G10
G94
CALL OMZ
RTS

some reason it wouldnt let me edit

(----------------------------------------------------------------)
N4( T4- .7500 Solid carbide endmill )
(----------------------------------------------------------------)

CALL OTC PT=4 PS=2037 PM=3
T7
(need to change call to "CALL OMT4")
CALL OM4G1 PDR1=1.335 PDR2=.880 PTD=.75 PSR=2037 PSF=2850 PFA=.035
$ PID1=1.920 PIZ1=1.470 PID2=1.920 PIZ2=.630 PIF1=.0045 PIF2=.008 PIFF=.010
$ POD1=2.640 POZ1=.390 POD2=2.640 POZ2=.390
$ POF1=.016 POF2=.016 POFF=.014
M1