Good day gentlemen. I have a macroing problem that I cannot solve. Attached are copies of the current part macro and what it produces. Also attached is a copy of the new drawing we need a macro for. The new door uses the same .jof as the original door. I've tried to add the score line myself, but have not been successful. Also, in the "DOTRIANGLE" section of the square inside corner macro, we have a problem with the machine cutting into the profile on the left or right vertical side. Is this simply machine backlash, or an error in coding? Would I need to slow the feed down on this triangle move? Any assistance would be greatly appreciated for this newbie coder. I'm honestly trying, but I haven't been able to make it work yet.
Thank you. Shawn ... Odo, is there any more of that Jell-O in the fridge? Odo? .... Odo?!?
SHAKER1NEW.pm4
Description: Binary data
header = 0
[
app_type = "1"
def_bldstmp = "mjpage.def - Fri Oct 25 09:50:56 PDT 1996"
file = "C:\\CIMBLOCK\\PANFRONT\\data\\SHAKER1.jof"
rev = "55"
section = "5010101"
units = "0"
version = "2.0"
written_by = "1"
]
job_info = 0
[
created = "09/24/96"
creator = "ROBBY RUSSELL"
nc_date = ""
nc_file = ""
nc_runtime = ""
nc_size = "0"
nc_time = "04:58PM"
notes = ""
pm_file = ""
prt_desc = ""
rev_date = "07/14/00"
section = "5010102"
]
work_cell = 0
[
descrip = ""
notes = ""
section = "4010100"
smf1_master = ""
tmp1_master = ""
user_name = ""
]
work_setup = 0
[
descrip = ""
section = "1050200"
]
material = 0
[
descrip = ""
matl_file = ""
matl_name = ""
matl_thick = "0."
notes = ""
section = "3010000"
user_name = ""
]
step = 11
[
descrip = "St. Moritz Inside Rout"
doff = "17"
fdmode = "2"
loff = "1"
notes = ""
op = "1"
section = "5020101"
spmode = "2"
tool_assignment = "11"
user_name = "11"
]
step = 12
[
descrip = "General Purpose 1/2 Compression Spiral"
doff = "18"
fdmode = "2"
loff = "2"
notes = ""
op = "2"
section = "5020101"
spmode = "2"
tool_assignment = "12"
user_name = "12"
]
step = 13
[
descrip = "1/4 Inch Compression spiral"
doff = "19"
fdmode = "2"
loff = "3"
notes = ""
op = "13"
section = "5020101"
spmode = "2"
tool_assignment = "13"
user_name = "13"
]
step = 15
[
descrip = "Bevel Edge (Legacy)"
doff = "21"
fdmode = "2"
loff = "5"
notes = ""
op = "15"
section = "5020101"
spmode = "2"
tool_assignment = "15"
user_name = "15"
]
step = 21
[
descrip = "St. Moritz Oustide Rout"
doff = "25"
fdmode = "2"
loff = "9"
notes = ""
op = "3"
section = "5020101"
spmode = "2"
tool_assignment = "21"
user_name = "21"
]
step = 22
[
descrip = "5/8 MDF Wine Rack Bit"
doff = "26"
fdmode = "2"
loff = "10"
notes = ""
op = "22"
section = "5020101"
spmode = "2"
tool_assignment = "22"
user_name = "22"
]
step = 23
[
descrip = "Fly Cutter"
doff = "27"
fdmode = "2"
loff = "11"
notes = ""
op = "5"
section = "5020101"
spmode = "2"
tool_assignment = "23"
user_name = "23"
]
step = 24
[
descrip = "Square inside corner bit"
doff = "28"
fdmode = "2"
loff = "12"
notes = ""
op = "24"
section = "5020101"
spmode = "2"
tool_assignment = "24"
user_name = "24"
]
step = 25
[
descrip = "New St. Moritz outer rout"
doff = "29"
fdmode = "2"
loff = "13"
notes = ""
op = "25"
section = "5020101"
spmode = "2"
tool_assignment = "25"
user_name = "25"
]
step = 94
[
descrip = "False Tool for 21"
doff = "JOS(tl_num)"
fdmode = "2"
loff = "JOS(tl_num)"
notes = ""
op = "94"
section = "5020101"
spmode = "2"
tool_assignment = "94"
user_name = "94"
]
step = 85
[
descrip = "False Tool for #15"
doff = "21"
fdmode = "2"
loff = "5"
notes = ""
op = "85"
section = "5020101"
spmode = "2"
tool_assignment = "85"
user_name = "85"
]
step = 75
[
descrip = "False tool for #25"
doff = "29"
fdmode = "2"
loff = "13"
notes = ""
op = "75"
section = "5020101"
spmode = "2"
tool_assignment = "75"
user_name = "75"
]
tool_assignment = 11
[
section = "2510101"
tl_num = "11"
tool_assembly = "11"
user_name = "11"
]
tool_assignment = 12
[
section = "2510101"
tl_num = "12"
tool_assembly = "12"
user_name = "12"
]
tool_assignment = 13
[
section = "2510101"
tl_num = "13"
tool_assembly = "13"
user_name = "13"
]
tool_assignment = 15
[
section = "2510101"
tl_num = "15"
tool_assembly = "15"
user_name = "15"
]
tool_assignment = 21
[
section = "2510101"
tl_num = "21"
tool_assembly = "21"
user_name = "21"
]
tool_assignment = 22
[
section = "2510101"
tl_num = "22"
tool_assembly = "22"
user_name = "22"
]
tool_assignment = 23
[
section = "2510101"
tl_num = "23"
tool_assembly = "23"
user_name = "23"
]
tool_assignment = 24
[
section = "2510101"
tl_num = "24"
tool_assembly = "24"
user_name = "24"
]
tool_assignment = 94
[
section = "2510101"
tl_num = "94"
tool_assembly = "94"
user_name = "94"
]
tool_assignment = 85
[
section = "2510101"
tl_num = "85"
tool_assembly = "85"
user_name = "85"
]
tool_assignment = 25
[
section = "2510101"
tl_num = "25"
tool_assembly = "25"
user_name = "25"
]
tool_assignment = 75
[
section = "2510101"
tl_num = "75"
tool_assembly = "75"
user_name = "75"
]
tool_assembly = 11
[
len_pset = "2"
notes = "End Mill\\n"
section = "2410101"
tool = "11"
user_name = "tool_assembly.102"
]
tool_assembly = 12
[
len_pset = "2"
notes = "End Mill\\n"
section = "2410101"
tool = "12"
user_name = "tool_assembly.101"
]
tool_assembly = 13
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "13"
user_name = "tool_assembly.13"
]
tool_assembly = 21
[
len_pset = "0"
notes = "End Mill\\n"
section = "2410101"
tool = "21"
user_name = "tool_assembly.104"
]
tool_assembly = 23
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "23"
user_name = "tool_assembly.23"
]
tool_assembly = 24
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "24"
user_name = "tool_assembly.24"
]
tool_assembly = 94
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "94"
user_name = "tool_assembly.94"
]
tool_assembly = 22
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "22"
user_name = "tool_assembly.22"
]
tool_assembly = 15
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "15"
user_name = "tool_assembly.15"
]
tool_assembly = 85
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "85"
user_name = "tool_assembly.85"
]
tool_assembly = 25
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "25"
user_name = "tool_assembly.25"
]
tool_assembly = 75
[
len_pset = "0"
notes = ""
section = "2410101"
tool = "75"
user_name = "tool_assembly.75"
]
tool = 11
[
ccw = "1"
centrcut = "1"
descrip = "1.500 dia. End Mill St. Moritz Inside Rout"
geometry = "0"
graphics = ""
length = "0"
n_flutes = "2"
section = "2010101"
shnksize = "tl(tl_dia)"
sideang = "0"
strength = "0"
tl_dia = "1.5"
tl_len = "3*tl(tl_dia)"
tl_mat = "0"
units = "0"
user_desc = "St. Moritz Inside Rout"
user_name = "END MILL.102"
]
tool = 12
[
ccw = "0"
centrcut = "0"
descrip = "0.454 dia. End Mill 1/2 In. compression Spiral"
geometry = "0"
graphics = ""
length = "0"
n_flutes = "2"
section = "2010101"
shnksize = "tl(tl_dia)"
sideang = "0"
strength = "0"
tl_dia = ".454"
tl_len = "3*tl(tl_dia)"
tl_mat = "0"
units = "0"
user_desc = "1/2 In. compression Spiral"
user_name = "END MILL.101"
]
tool = 13
[
ccw = "0"
centrcut = "0"
descrip = "0.250 dia. End Mill 1/4 Inch Compression Spiral"
geometry = "0"
graphics = ""
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".25"
tl_len = "3*JOS(tl_dia)"
tl_mat = "0"
user_desc = "1/4 Inch Compression Spiral"
user_name = "End Mill.13"
]
tool = 21
[
ccw = "0"
centrcut = "0"
descrip = "0.525 dia. End Mill St. Moritz Outside Rout"
geometry = "0"
graphics = "StmOuter.sh3"
length = "0"
n_flutes = "2"
section = "2010101"
shnksize = "tl(tl_dia)"
sideang = "0"
strength = "0"
tl_dia = ".525"
tl_len = ".9962"
tl_mat = "0"
units = "0"
user_desc = "St. Moritz Outside Rout"
user_name = "END MILL.104"
]
tool = 23
[
ccw = "0"
centrcut = "0"
descrip = "3.500 dia. End Mill"
geometry = "0"
graphics = ""
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = "3.5"
tl_len = "3*JOS(tl_dia)"
tl_mat = "0"
user_desc = ""
user_name = "End Mill.23"
]
tool = 24
[
ccw = "0"
centrcut = "0"
descrip = "0.001 dia. End Mill Square Inside Corner Bit"
geometry = "0"
graphics = ""
n_flutes = "4"
section = "2010101"
sideang = "45"
tl_dia = ".001"
tl_len = ".3975"
tl_mat = "1"
user_desc = "Square Inside Corner Bit"
user_name = "End Mill.24"
]
tool = 94
[
ccw = "0"
centrcut = "0"
descrip = "0.515 dia. End Mill False Tool for #21"
geometry = "0"
graphics = "StmOuter.sh3"
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".515"
tl_len = "3*JOS(tl_dia)"
tl_mat = "0"
user_desc = "False Tool for #21"
user_name = "End Mill.94"
]
tool = 22
[
ccw = "0"
centrcut = "0"
descrip = "0.500 dia. End Mill 5/8 MDF Wine Rack Bit"
geometry = "0"
graphics = ""
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".5"
tl_len = "3*JOS(tl_dia)"
tl_mat = "0"
user_desc = "5/8 MDF Wine Rack Bit"
user_name = "End Mill.22"
]
tool = 15
[
ccw = "0"
centrcut = "0"
descrip = "0.625 dia. End Mill Bevel Edge (Legacy)"
geometry = "0"
graphics = "BevelEdge.sh3"
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".625"
tl_len = "3*JOS(tl_dia)"
tl_mat = "3"
user_desc = "Bevel Edge (Legacy)"
user_name = "End Mill.15"
]
tool = 85
[
ccw = "0"
centrcut = "0"
descrip = "0.626 dia. End Mill False Tool for #15"
geometry = "0"
graphics = "BevelEdge.sh3"
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".626"
tl_len = "3*JOS(tl_dia)"
tl_mat = "3"
user_desc = "False Tool for #15"
user_name = "End Mill.85"
]
tool = 25
[
ccw = "0"
centrcut = "0"
descrip = "0.505 dia. End Mill NEW STM"
geometry = "0"
graphics = "StmOuter.sh3"
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".505"
tl_len = "3*JOS(tl_dia)"
tl_mat = "0"
user_desc = "NEW STM"
user_name = "End Mill.25"
]
tool = 75
[
ccw = "0"
centrcut = "0"
descrip = "0.501 dia. End Mill NEW STM"
geometry = "0"
graphics = "StmOuter.sh3"
n_flutes = "2"
section = "2010101"
sideang = "0"
tl_dia = ".501"
tl_len = "3*JOS(tl_dia)"
tl_mat = "0"
user_desc = "NEW STM"
user_name = "End Mill.75"
]
op = 1
[
climb = "1"
coolant = "0"
cutdepth = "5/16"
cutfin = "0"
cutwidth = ".5*tl(tl_dia)"
descrip = "Rough Milling"
feedupr = "350", "upm"
feedupr2 = "0"
feedupr3 = "75", "upm"
flrallow = "0"
life = "0"
notes = "Rough Milling\\n"
section = "1030101"
speedcss = "11999", "rpm"
units = "0"
user_name = "ROUGH MILLING.102"
]
op = 2
[
cad_ref = ""
climb = "1"
coolant = "1"
cutfin = "0"
descrip = "Finish Milling"
feedupr = "0.025"
feedupr2 = "0"
feedupr3 = "0.0125"
life = "0"
notes = "Finish Milling\\n"
section = "1030102"
speedcss = "1570.79632679"
units = "0"
user_name = "FINISH MILLING.101"
]
op = 15
[
coolant = "1"
descrip = "Edge Milling"
feedupr = "300", "upm"
feedupr3 = "75", "upm"
section = "1030105"
speedcss = "12515", "rpm"
user_name = "Edge Milling.15"
]
op = 3
[
cad_ref = ""
climb = "1"
coolant = "1"
cutdepth = "tl(tl_dia)"
cutfin = "0"
cutwidth = ".5*tl(tl_dia)"
descrip = "Rough Milling"
feedupr = "350", "upm"
feedupr2 = "0"
feedupr3 = "125", "upm"
flrallow = "0"
life = "0"
notes = "Rough Milling\\n"
section = "1030101"
speedcss = "12000", "rpm"
units = "0"
user_name = "ROUGH MILLING.104"
]
op = 5
[
coolant = "1"
descrip = "Finish Milling"
feedupr = "350", "upm"
feedupr3 = "250", "upm"
section = "1030102"
speedcss = "12000", "rpm"
user_name = "Finish Milling.5"
]
op = 13
[
coolant = "0"
descrip = "Finish Milling"
feedupr = "300", "upm"
feedupr3 = "75", "upm"
section = "1030102"
speedcss = "14713", "rpm"
user_name = "Finish Milling.13"
]
op = 24
[
coolant = "0"
cutdepth = ".625"
cutfin = "0"
cutwidth = ".0005"
descrip = "Rough Milling"
feedupr = "200", "upm"
feedupr3 = "75", "upm"
flrallow = "0"
section = "1030101"
speedcss = "12575", "rpm"
user_name = "Rough Milling.24"
]
op = 94
[
coolant = "1"
cutdepth = "JOS(tl_dia)"
cutfin = "0"
cutwidth = ".5*JOS(tl_dia)"
descrip = "Rough Milling"
feedupr = "300", "upm"
feedupr3 = ".5*JOS(feedupr1)"
flrallow = "0"
section = "1030101"
speedcss = "15000", "rpm"
user_name = "Rough Milling.94"
]
op = 22
[
coolant = "1"
descrip = "Edge Milling"
feedupr = "175", "upm"
feedupr3 = "75", "upm"
section = "1030105"
speedcss = "15000", "rpm"
user_name = "Edge Milling.22"
]
op = 85
[
coolant = "1"
descrip = "Edge Milling"
feedupr = "300", "upm"
feedupr3 = "75", "upm"
section = "1030105"
speedcss = "12015", "rpm"
user_name = "Edge Milling.85"
]
op = 25
[
coolant = "4"
cutdepth = "JOS(tl_dia)"
cutfin = "0"
cutwidth = ".5*JOS(tl_dia)"
descrip = "Rough Milling"
feedupr = "350", "upm"
feedupr3 = ".5*JOS(feedupr1)"
flrallow = "0"
section = "1030101"
speedcss = "14025", "rpm"
user_name = "Rough Milling.25"
]
op = 75
[
coolant = "1"
cutdepth = "JOS(tl_dia)"
cutfin = "0"
cutwidth = ".5*JOS(tl_dia)"
descrip = "Rough Milling"
feedupr = "350", "upm"
feedupr3 = ".5*JOS(feedupr1)"
flrallow = "0"
section = "1030101"
speedcss = "14075", "rpm"
user_name = "Rough Milling.75"
]
SHAKER1.pm4
Description: Binary data
// PanelFront
// Building Blocks, Inc.
// (770) 641-0015
//
// SHAKER DOOR MACRO
#PASSTYPE=1
//calculate the width and height of the door allowing for the finish
#DRWID = #DRWID - (#FINALLOW * 2)
#DRHGT = #DRHGT - (#FINALLOW * 2)
#TRAIL = 0
#BRAIL = 0
// set viewing extents
ENVELOPE[XS=-0.5, YS=-0.5, ZS=0, XE=(#DRWID+0.5), YE=(#DRHGT+0.5), ZE=0]
BASE[]
//determine if the door's area is less than the min. area specified in the set
//parameters dialog
#DOORAREA = (#DRWID * #DRHGT)
IF((#DRWID * #DRHGT) > 999999)
#DOORAREA = 990000
ENDIF
IF(#DOORAREA < #MINAREA)
#DUALPASS = 1
ELSE
#DUALPASS = 0
ENDIF
//set the clear value for the door
IF(#UNITS = 0)
#DOORCLR = 0.25
ELSE
#DOORCLR = 6.35
ENDIF
//calculate the width of the lite based on the number of panels
IF(#PANELNUM = 1)
#WIDLITE = #DRWID - #LFTSTILE - #RGTSTILE
#LITEHGT = #DRHGT - #TOPRAIL - #BTMRAIL
ELSE
#MULMULT = (#MULWID * (#PANELNUM - 1))
#WIDLITE = (#DRWID - #LFTSTILE - #RGTSTILE - #MULWID) / 2
#LITEHGT = (#DRHGT - #TOPRAIL - #BTMRAIL - #MULMULT) / #PANELNUM
ENDIF
//set the insert position to the end of the database
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
//create the first pass
WITH_STEP[ST=#TOOL1, WP="XY_PLANE", OF=2, LV=#DEPTH1, CL=#DOORCLR, PT=0]
START_PROF[XE=#LFTSTILE+#OFFSET1, YE=#BTMRAIL+#OFFSET1, LV=#DEPTH1]
LINE_PROF[TI=0, ZE=#DEPTH1, DS=#WIDLITE-(#OFFSET1*2), AN=0, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH1, DS=#LITEHGT-(#OFFSET1*2), AN=90, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH1, DS=#WIDLITE-(#OFFSET1*2), AN=180, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH1, DS=#LITEHGT-(#OFFSET1*2), AN=270, SS=2, SE=0, SP=2]
// possibly blend inside corners if not using square corner option
IF(#INRAD > 0, AND #DOSQRCRN = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_BLEND[RA=#INRAD, RO=#INRAD, RC=?]
NEW_GRP[]
ENDIF
IF(#DOCLIMB1 = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_REVERSE[RP=1]
PROF_START[EL=GRP(GRP(0))]
NEW_GRP[]
ENDIF
IF(#DORAMP1 = 1)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
MAC_EXE[FN=#LEADMCL]
NEW_GRP[]
ENDIF
//create the second pass if requested
IF(#PASSTYPE > 0)
STEP_SEQ[BA=1, ST=#TOOL1, ME=0]
WITH_STEP[ST=#TOOL2, WP="XY_PLANE", OF=2, LV=#DEPTH2, CL=#DOORCLR, PT=0]
START_PROF[XE=#LFTSTILE+#OFFSET2, YE=#BTMRAIL+#OFFSET2, LV=#DEPTH2]
LINE_PROF[TI=0, ZE=#DEPTH2, DS=#WIDLITE-(#OFFSET2*2), AN=0, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH2, DS=#LITEHGT-(#OFFSET2*2), AN=90, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH2, DS=#WIDLITE-(#OFFSET2*2), AN=180, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH2, DS=#LITEHGT-(#OFFSET2*2), AN=270, SS=2, SE=0, SP=2]
// possibly blend inside corners if not using square corner option
IF(#INRAD > 0, AND #DOSQRCRN = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_BLEND[RA=#INRAD, RO=#INRAD, RC=?]
NEW_GRP[]
ENDIF
IF(#DOCLIMB2 = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_REVERSE[RP=1]
PROF_START[EL=GRP(GRP(0))]
NEW_GRP[]
ENDIF
IF(#DORAMP2 = 1)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
MAC_EXE[FN=#LEADMCL]
NEW_GRP[]
ENDIF
ENDIF
//create the third pass if requested
IF(#PASSTYPE > 1)
STEP_SEQ[BA=1, ST=#TOOL2, ME=0]
WITH_STEP[ST=#TOOL3, WP="XY_PLANE", OF=2, LV=#DEPTH3, CL=#DOORCLR, PT=0]
START_PROF[XE=#LFTSTILE+#OFFSET3, YE=#BTMRAIL+#OFFSET3, LV=#DEPTH3]
LINE_PROF[TI=0, ZE=#DEPTH3, DS=#WIDLITE-(#OFFSET3*2), AN=0, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH3, DS=#LITEHGT-(#OFFSET3*2), AN=90, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH3, DS=#WIDLITE-(#OFFSET3*2), AN=180, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH3, DS=#LITEHGT-(#OFFSET3*2), AN=270, SS=2, SE=0, SP=2]
// possibly blend inside corners if not using square corner option
IF(#INRAD > 0, AND #DOSQRCRN = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_BLEND[RA=#INRAD, RO=#INRAD, RC=?]
NEW_GRP[]
ENDIF
IF(#DOCLIMB3 = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_REVERSE[RP=1]
PROF_START[EL=GRP(GRP(0))]
NEW_GRP[]
ENDIF
IF(#DORAMP3 = 1)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
MAC_EXE[FN=#LEADMCL]
NEW_GRP[]
ENDIF
ENDIF
// create square corner pass
IF(#DOSQRCRN = 1)
#TOTANGLE = 90
STEP_SEQ[BA=1, ST=#AFTERCRN, ME=0]
WITH_STEP[ST=#TOOL10, WP="XY_PLANE", OF=2, LV=#DEPTH10, CL=#DOORCLR, PT=0]
START_PROF[XE=#LFTSTILE+#OFFSET10, YE=#BTMRAIL+#OFFSET10, LV=#DEPTH10]
#TRAIL = 0
#BRAIL = 1
LINE_PROF[TI=0, ZE=#DEPTH10, DS=#WIDLITE-(#OFFSET10*2), AN=0, SS=2, SE=0, SP=2]
#SQRANGLE = 315
// SHKRSQR.MCL
//#SQRTLANG = 35 //square tool definition
//set the dimensions for the square
IF(#UNITS = 0) // 0 = INCHES 1 = MILLIMETERS
#TRIDIST1 = 0.05
#TRIDIST2 = 0.15
ELSE
#TRIDIST1 = 1.27
#TRIDIST2 = 2.54
ENDIF
//#THETA = ABS(#DEPTH10) * TAN(#SQRTLANG)
//#SQRDIST = ABS(#THETA / COS(#SQRTLANG)) // new formula
//OK NOW FOR A NEW FORMULA
#THATAT = TAN(#SQRTLANG)
#THATAT =ABS(#DEPTH10) * #THATAT
#XDIVCOS=COS(#SQRANGLE)
#XDIVCOS=#THATAT/#XDIVCOS
#SQRDIST= ABS(#XDIVCOS)
// set the triangular nub-remove feature on or off
#DOTRIANGLE = 0 //do triangle to knock down bump; 0 = no, 1 = yes
IF(#DOCLIMB10 = 1)
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
IF(#TRAIL = 1)
// Top Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=90,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ELSE
// Bottom Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=180,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ENDIF
LINE[XS=ENX(#EL-2), YS=ENY(#EL-2), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
ELSE
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
ENDIF
#TRAIL = 1
#BRAIL = 0
LINE_PROF[TI=0, ZE=#DEPTH10, DS=#LITEHGT-(#OFFSET10*2), AN=90, SS=2, SE=0,
SP=2]
#SQRANGLE = 45
// SHKRSQR.MCL
IF(#DOCLIMB10 = 1)
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
IF(#TRAIL = 1)
// Top Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=90,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ELSE
// Bottom Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=180,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ENDIF
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
ELSE
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
ENDIF
#TRAIL = 0
#BRAIL = 1
LINE_PROF[TI=0, ZE=#DEPTH10, DS=#WIDLITE-(#OFFSET10*2), AN=180, SS=2, SE=0,
SP=2]
#SQRANGLE = 135
// SHKRSQR.MCL
IF(#DOCLIMB10 = 1)
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
IF(#TRAIL = 1)
// Top Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=90,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ELSE
// Bottom Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=180,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ENDIF
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
ELSE
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
ENDIF
#TRAIL = 1
#BRAIL = 0
LINE_PROF[TI=0, ZE=#DEPTH10, DS=#LITEHGT-(#OFFSET10*2), AN=270, SS=2, SE=0,
SP=2]
#SQRANGLE = 225
// SHKRSQR.MCL
IF(#DOCLIMB10 = 1)
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
IF(#TRAIL = 1)
// Top Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=90,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ELSE
// Bottom Rail for the scoring mark...
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=-.0625, ZE=-.0625., AN=180,
DS=#LITEHGT, SE=2, SS=2]
LINE[XS=ENX(#EL-1), YS=ENY(#EL-1), ZS=0, ZE=ENZ(#EL-2),
AN=#SQRANGLE+180, DS=#SQRDIST, SE=2, SS=2]
ENDIF
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
ELSE
IF(#DOTRIANGLE = 1)
// build triangle move to knock down bump
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE+180, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+135, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10,
DS=SIN(45)*(2*#TRIDIST2),AN=#SQRANGLE+270, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST2,
AN=#SQRANGLE+45, SS=2, SE=0, SP=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=#DEPTH10, ZE=#DEPTH10, DS=#TRIDIST1,
AN=#SQRANGLE, SS=2, SE=0, SP=2]
ENDIF
// build ramp moves
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=ENZ(#EL), ZE=0, AN=#SQRANGLE, DS=#SQRDIST,
SE=2, SS=2]
LINE[XS=ENX(#EL), YS=ENY(#EL), ZS=0, ZE=ENZ(#EL-1), AN=#SQRANGLE+180,
DS=#SQRDIST, SE=2, SS=2]
ENDIF
IF(#DOCLIMB10 = 0)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
GRP_REVERSE[RP=1]
PROF_START[EL=GRP(GRP(0))]
NEW_GRP[]
ENDIF
IF(#DORAMP10 = 1)
NEW_GRP[]
PROF_GRP[AR=0, EL=#EL]
MAC_EXE[FN=#LEADMCL]
NEW_GRP[]
ENDIF
ENDIF
//copy the geometry for the number of panels requested
IF(#PANELNUM > 1)
SELECT_ALL[]
MOVE[CP=1, NC=1, TS=1, XS=0, YS=0, ZS=0, XE=#WIDLITE+#MULWID, YE=0, ZE=0]
SELECT_ALL[]
MOVE[CP=1, NC=(#PANELNUM-1), TS=1, XS=0, YS=0, ZS=0, XE=0,
YE=#LITEHGT+#MULWID, ZE=0]
NEW_GRP[]
ENDIF
//set the insert position to the end of the database
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
// drill hole in part
IF(#KNOBLOC > 0)
MAC_EXE[FN=STRTMP("%SCPATH\MACRO\PFHOLE.MCL")]
ENDIF
// any internal customization should happen here
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
ON_LAYER[LY=2, WP="XY_PLANE", LV=#DEPTH11, PT=0]
START_PROF[XE=#LFTSTILE+#OFFSET11, YE=#BTMRAIL+#OFFSET11, LV=#DEPTH11]
LINE_PROF[TI=0, ZE=#DEPTH11, DS=#WIDLITE-(#OFFSET11*2), AN=0, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH11, DS=#LITEHGT-(#OFFSET11*2), AN=90, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH11, DS=#WIDLITE-(#OFFSET11*2), AN=180, SS=2, SE=0, SP=2]
LINE_PROF[TI=0, ZE=#DEPTH11, DS=#LITEHGT-(#OFFSET11*2), AN=270, SS=2, SE=0, SP=2]
WITH_STEP[ST=#TOOL11, WP="XY_PLANE", OF=2, LV=#DEPTH11, CL=#DOORCLR, PT=0]
IF(#DORAMP11 = 1)
POCKET[TY=1, EL=#EL, FA=0, WC=TLDIA(#TOOL11)*0.9, AN=90, DS=#DEPTH11,
DC=TLDIA(#TOOL11), DE=#DEPTH11, EP=0, IN=0, IP=0, AR=45, UA=0,
CC=#DOCLIMB11,
RS=0, FL=0, CI=1, EW=0, OP=0, RM=0, RT=0.00005, AC=60, RD=0,
IT=0, LY=90, NN="AUMS", UT=.01]
ELSE
POCKET[TY=1, EL=#EL, FA=0, WC=TLDIA(#TOOL11)*0.9, AN=90, DS=#DEPTH11,
DC=TLDIA(#TOOL11), DE=#DEPTH11, EP=0, IN=0, IP=0, AR=90, UA=0,
CC=#DOCLIMB11,
RS=0, FL=0, CI=1, EW=0, OP=0, RM=0, RT=0.00005, AC=60, RD=0,
IT=0, LY=90, NN="AUMS", UT=.01]
ENDIF
NEW_GRP[]
GET_GRP[GN="RESULT"]
PCHG_ST[CN=1, CL=#DOORCLR, PN=2, OF=3]
NEW_GRP[]
LAYER_GRP[AR=0, LY="2"]
GRP_DELETE[]
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
MAC_EXE[FN=STRTMP("%SCPATH\MACRO\PFOUTER.MCL")]
//set the insert position to the end of the database
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
// add top and bottom door bevels
IF(#BEVEL = 1)
MAC_EXE[FN=STRTMP("%SCPATH\MACRO\PFBEVEL.MCL")]
ENDIF
//set the insert position to the end of the database
ELMT_SEQ[BA=1, EL=TOTEL(), ME=0]
IF(#RABBET = 1)
MAC_EXE[FN=STRTMP("%SCPATH\MACRO\PFRABBET.MCL")]
ENDIF
NEW_GRP[]
#DOROT = 1
