INCLUDE Powermill Master Function.mac FUNCTION SetupSheet() { DIALOGS MESSAGE OFF DIALOGS ERROR OFF STRING command = "" EDIT MODEL ALL DESELECT ALL STRING LIST fcs_locations = () IF $project.FCS_Type == "None" { STRING notes = "Split block for X: 0.000 and Y: 0.000" + CRLF + "Top of Job for Z: 0.000" + CRLF + "Job is setup using clamps." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.FCS_Type == "Vise" { STRING notes = "Split block for X: 0.000 and Y: 0.000" + CRLF + "Top of Job for Z: 0.000" + CRLF + "Job is setup using FCS Vise." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.FCS_Type == "M5 Pallet" OR $project.FCS_Type == "M6 Pallet" OR $project.FCS_Type == "M8 Pallet" { STRING notes = "" IF member($Project._keys, "FCS_Locations") { } ELSE { EDIT USERPAR project TYPE 'String' EDIT USERPAR project NAME "FCS_Locations" CREATE USERPAR project } $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command EDIT MODEL ALL DESELECT ALL } ELSEIF $project.FCS_Type == "Imported" { STRING notes = "" IF member($Project._keys, "FCS_Locations") { } ELSE { EDIT USERPAR project TYPE 'String' EDIT USERPAR project NAME "FCS_Locations" CREATE USERPAR project } IF $project.Machine_Name == "Johnford 1" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Johnford 2" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Johnford 1600" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Hartford" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Hermle" { $notes = "Pickup F5 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Parpas Diamond" OR $project.Machine_Name == "Parpas Diamond 2" { $notes = "Pickup W15 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Parpas OMV" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Takumi B8" { $notes = "Pickup W1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Refer to session for FCS Locations and Buildup." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } } ELSE { FOREACH pillar IN FOLDER('Model\FCS') { EDIT MODEL $pillar SELECT ALL FORM BLOCK EDIT BLOCK ALL UNLOCK EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "Main" EDIT BLOCK LIMITTYPE MODEL EDIT BLOCKTYPE CYLINDER EDIT BLOCK RESET REAL xLocation = $Block.Centre.X REAL yLocation = $Block.Centre.Y INT xOutput = ROUND(($xLocation / 1.9685), 0) INT yOutput = ROUND(($yLocation / 1.9685), 0) + 1 IF $project.Machine_Name == "Takumi B8" { $xOutput = ($xLocation / 1.9685) + 1 } STRING LIST dictionary1 = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'AA', 'AB', 'AC', 'AD', 'AE', 'AF', 'AG', 'AH', 'AI', 'AJ', 'AK', 'AL', 'AM', 'AN', 'AO', 'AP', 'AQ', 'AR', 'AS', 'AT', 'AU', 'AV', 'AW', 'AX', 'AY', 'AZ', 'BA', 'BB', 'BC', 'BD', 'BE', 'BF', 'BG', 'BH', 'BI', 'BJ', 'BK', 'BL', 'BM', 'BN', 'BO', 'BP', 'BQ', 'BR', 'BS', 'BT', 'BU', 'BV', 'BW', 'BX', 'BY', 'BZ') STRING LIST dictionary2 = () STRING LIST dictionary3 = () STRING LIST dictionary4 = () STRING LIST dictionary5 = () STRING LIST dictionary6 = () STRING output = "" IF $project.Machine_Name == "Parpas Diamond" OR $project.Machine_Name == "Parpas Diamond 2" { $yOutput = $yOutput + 14 $dictionary2 = ("W", "V", "U", "T", "S", "R", "Q", "P", "O", "N", "M", "L", "K", "J", "I", "H", "G", "F", "E", "D", "C", "B", "A") $dictionary3 = ("W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BI", "BJ", "BK", "BL", "BM", "BN", "BO", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ") IF sign($xLocation) == -1 { $xOutput = $xOutput * -1 $output = $dictionary2[$xOutput] + $yOutput } ELSE { $output = $dictionary3[$xOutput] + $yOutput } } ELSEIF $project.Machine_Name == "Hermle" { $yOutput = $yOutput + 5 $dictionary2 = ("F", "E", "D", "C", "B", "A") $dictionary3 = ("F", "G", "H", "I", "J", "K") IF sign($xLocation) == -1 { $xOutput = $xOutput * -1 $output = $dictionary2[$xOutput] + $yOutput } ELSE { $output = $dictionary3[$xOutput] + $yOutput } } ELSE { $output = $dictionary1[$xOutput] + $yOutput } INT add = add_last($fcs_locations, $output) EDIT MODEL ALL DESELECT ALL BLOCK CANCEL } INT check = 0 INT sizeCheck = size($fcs_locations) - 1 STRING fcsOutput = "" FOREACH location IN $fcs_locations { IF $check == 0 { $fcsOutput = $location } ELSE { $fcsOutput = $fcsOutput + ", " + $location } $check = $check + 1 } IF member($Project._keys, "FCS_Locations") { $command = "EDIT PAR 'project.FCS_Locations' " + '"' + $fcsOutput + '"' DOCOMMAND $command } ELSE { EDIT USERPAR project TYPE 'String' EDIT USERPAR project NAME "FCS_Locations" CREATE USERPAR project $command = "EDIT PAR 'project.FCS_Locations' " + '"' + $fcsOutput + '"' DOCOMMAND $command } STRING notes = "" IF $project.Machine_Name == "Johnford 1" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Johnford 2" { $notes = "Split job for for X: 0.000 Y: 0.000" + CRLF + "Top of Job for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Johnford 1500" { $notes = "Split job for for X: 0.000 Y: 0.000" + CRLF + "Top of Job for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Johnford 1600" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Hartford" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Hermle" { $notes = "Pickup F5 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Parpas Diamond" OR $project.Machine_Name == "Parpas Diamond 2" { $notes = "Pickup W15 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Parpas OMV" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } ELSEIF $project.Machine_Name == "Takumi B8" { $notes = "Pickup A1 for X: 0.000 Y: 0.000" + CRLF + "Top of Table for Z: 0.000" + CRLF + "Job is setup on " + $project.FCS_Type + "." $command = "EDIT PAR 'project.notes' " + '"' + $notes + '"' DOCOMMAND $command } } FORM BLOCK EDIT BLOCKTYPE BOX EDIT BLOCK LIMITTYPE MODEL EDIT BLOCK RESETLIMIT "0" EDIT MODEL ALL DESELECT ALL EDIT MODEL $project.Job_Name SELECT ALL EDIT BLOCK RESET DIALOGS MESSAGE ON DIALOGS ERROR ON } FUNCTION OpenExisting() { DIALOGS MESSAGE ON DIALOGS ERROR ON STRING i_machine = $project.Machine_Name STRING searchDirectory = "" $searchDirectory = "Z:\PowerMill\PowerMill Sessions\" + $i_machine + "\" + $project.Job_Number + "\" INFOBOX NEW "Messages" INFOBOX STYLE "NORMAL" INFOBOX APPEND "Searching server for files. Please wait..." STRING LIST jobs = list_files("dirs", $searchDirectory) STRING LIST jobSelection = () FOREACH job IN $jobs { STRING LIST toks = () $toks = TOKENS($job, '/') INT lengthCheck = size($toks) - 1 bool add = add_last(jobSelection, $toks[$lengthCheck]) } IF size($jobSelection) == 0 { INFOBOX CLEAR INFOBOX APPEND "There are no available job files." MACRO ABORT ALL } INFOBOX CLEAR INFOBOX APPEND "Search Successful! Displaying list of available files." STRING jobChoice = INPUT CHOICE $jobSelection "Please select a session to import." INFOBOX CLEAR TEXTINFO ACCEPT STRING jobImport = $searchDirectory + $jobSelection[$jobChoice] FORM RIBBON BACKSTAGE CLOSE PROJECT RECOVERY OPEN PROJSELECTOR $jobImport PROJECT CLAIM YES IF $project.Machine_Name == "Johnford 1" { EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1_v4 - General.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "Z:\PowerMill\PowerMill Sessions\Posted Files\Johnford 1" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1_v4 - General.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Johnford 2" { EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford2_v4 - General.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "Z:\PowerMill\PowerMill Sessions\Posted Files\Johnford 2" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford2_v4 - General.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Johnford 1500" { EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1500_v5.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "Z:\PowerMill\PowerMill Sessions\Posted Files\Johnford 1500" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1500_v5.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Johnford 1600" { EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1600_v4.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "Z:\PowerMill\PowerMill Sessions\Posted Files\Johnford 1600" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1600_v4.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Hartford" { EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Absolute_HEID_v6.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "C:\Hartford" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Absolute_HEID_v6.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Hermle" { PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "C:\Hermle" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Hermle" UNDRAW MACHINETOOL "Hermle" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Hermle_C400_v13.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Hermle_C400_v13.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Parpas Diamond" { EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas Diamond 1" UNDRAW MACHINETOOL "Parpas Diamond 1 V2" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_H640-5ax_v6.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "C:\Diamond" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_H640-5ax_v6.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Parpas Diamond 2" { EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas Diamond 2" UNDRAW MACHINETOOL "Parpas Diamond 2 V2" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_2_v2.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "C:\Diamond" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_2_v2.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Parpas OMV" { EDIT PAR "entity('machinetool','Parpas OMV').machinetool.MachinePart[0].ModelList.Opacity" 0 EDIT PAR "entity('machinetool','Parpas OMV').machinetool.MachinePart[0].MachinePart[0].ModelList.Opacity" 0 EDIT PAR "entity('machinetool','Parpas OMV').TableAttachPoint.Z" "2.6" UNDRAW MACHINETOOL "Parpas OMV" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_OMV_v20.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "C:\OMV" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_OMV_v20.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } ELSEIF $project.Machine_Name == "Takumi B8" { EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Takumi_B8_V11.pmoptz' PATHSELECTOR PATHLISTS LISTCHANGE OUTPUT PATHSELECTOR PATHLISTS CLEAR PATHSELECTOR PATHLISTS ADD "C:\Takumi" EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Takumi_B8_V11.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" } EDIT MODEL ALL DESELECT ALL EDIT MODEL $project.Job_Name SELECT ALL FORM BLOCK EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "Main" EDIT BLOCKTYPE BOX EDIT BLOCK ALL UNLOCK EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET BLOCK ACCEPT EDIT TOOLPATH SAFEAREA CALCULATE_DIMENSIONS CREATE PATTERN "sessionPrepper" MACRO "Z:\PowerMill\Automation\Arcitecture\Powermill Master Switchboard.mac" IF file_exists($project.Job_Path) { } ELSE { MESSAGE ERROR "File used in the session is out of date! DO NOT PROCEED WITH RUNNING. Contact leadership team." } } FUNCTION ImportJob() { // Global Calls STRING command = "" // Prep Setup Sheets FORM NCSETUPSHEETS EDIT NCPROGRAM PREFERENCES SETUPSHEETS HEADER FILEOPEN "Z:\PowerMill\PowerMill Database\Setup Sheets\Summary.html" EDIT NCPROGRAM PREFERENCES SETUPSHEETS TOOLPATH FILEOPEN "Z:\PowerMill\PowerMill Database\Setup Sheets\Toolpath.html" EDIT NCPROGRAM PREFERENCES SETUPSHEETS SUMMARY FILEOPEN "Z:\PowerMill\PowerMill Database\Setup Sheets\Tool List.html" EDIT NCPROGRAM PREFERENCES SETUPSHEETS PROJECT_SUMMARY FILEOPEN "Z:\PowerMill\PowerMill Database\Setup Sheets\Checklist.html" SETUPSHEETS TEMPLATE ENABLE PROJECT_SUMMARY NCSETUPSHEETS ACCEPT // Server Search STRING searchDirectory = "Z:\" STRING LIST jobFolders = list_files("dirs", $searchDirectory) bool success = 0 INT dirCount = 0 INFOBOX NEW "Messages" INFOBOX STYLE "NORMAL" INFOBOX APPEND "Searching server for files. Please wait..." WHILE $success == 0 { STRING jobCheck = $jobFolders[$dirCount] STRING LIST toks1 = TOKENS ($jobCheck, "") STRING split1 = $toks1[0] STRING toks2 = TOKENS($split1, "/") STRING split2 = $toks2[1] STRING number = substring($split2, 0, 4) IF $number == $project.Job_Number { IF $project.Job_Type == "Plates" { $searchDirectory = $jobFolders[$dirCount] + "/" + "Manufacturing/2D/" + $project.Job_Type + "/" } ELSE { $searchDirectory = $jobFolders[$dirCount] + "/" + "Manufacturing/3D/" + $project.Job_Type + "/" } $success = 1 } else { $dirCount = $dirCount + 1 $success = 0 } } STRING LIST jobs = list_files("files", $searchDirectory,".dgk") STRING LIST jobSelection = () FOREACH job IN $jobs { STRING LIST toks = () $toks = TOKENS($job, '/') INT lengthCheck = size($toks) - 1 bool add = add_last(jobSelection, $toks[$lengthCheck]) } IF size($jobSelection) == 0 { INFOBOX CLEAR INFOBOX APPEND "There are no available job files." MACRO ABORT ALL } INFOBOX CLEAR INFOBOX APPEND "Search Successful! Displaying list of available files." STRING jobChoice = INPUT CHOICE $jobSelection "Please select a file to import." INFOBOX CLEAR TEXTINFO ACCEPT STRING jobImport = $searchDirectory + $jobSelection[$jobChoice] // Machine Import IF $project.Machine_Name == "Johnford 1500" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Johnford 1500\Johnford 1500.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Johnford 1500\Johnford 1500\Johnford 1500 V3.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Johnford 1500.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Johnford 1500 V3" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON UNDRAW MACHINETOOL "Johnford 1500 V3" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1500_v5.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1500_v5.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Johnford 1600" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Johnford 1600\Johnford 1600.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Johnford 1600\Johnford 1600\Johnford 1600 V3.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Johnford 1600.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Johnford 1600 V3" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON UNDRAW MACHINETOOL "Johnford 1600 V3" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1600_v4.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1600_v4.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Johnford 1" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Johnford 1\Johnford 1.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Johnford 1\Johnford 1\Johnford 1 V3.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Johnford 1.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Johnford 1 V3" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON UNDRAW MACHINETOOL "Johnford 1 V3" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1_v4.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford1_v4.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Johnford 2" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Johnford 2\Johnford 2.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Johnford 2\Johnford 2\Johnford 2 V3.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Johnford 2.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Johnford 2 V3" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON UNDRAW MACHINETOOL "Johnford 2 V3" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford2_v4.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Johnford2_v4.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Hartford" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Hartford\Hartford.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Hartford\Hartford V3.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Hartford.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Hartford V3" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON UNDRAW MACHINETOOL "Hartford V3" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Absolute_HEID_v6.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Absolute_HEID_v6.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" } ELSEIF $project.Machine_Name == "Hermle" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Hermle\Hermle.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Hermle\Hermle\Hermle.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Hermle.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Hermle" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON UNDRAW MACHINETOOL "Hermle" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Hermle_C400_v13.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Hermle_C400_v13.pmoptz" FORM ACCEPT SelectOptionFile EDIT NCPROGRAM PREFERENCES MACHINECLEARANCE .2 } ELSEIF $project.Machine_Name == "Parpas Diamond" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Parpas Diamond\Parpas Diamond.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Parpas Diamond\Parpas Diamond\Parpas Diamond 1 V2.mtd' EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas Diamond 1" FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Parpas Diamond.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas Diamond 1 V2" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT PAR "entity('machinetool','Parpas Diamond 1 V2').machinetool.MachinePart[0].ModelList.Opacity" 0 EDIT PAR "entity('machinetool','Parpas Diamond 1 V2').machinetool.MachinePart[2].ModelList.Opacity" 0 EDIT PAR "entity('machinetool','Parpas Diamond 1 V2').machinetool.MachinePart[3].ModelList.Opacity" 0 UNDRAW MACHINETOOL "Parpas Diamond 1 V2" EDIT PAR "entity('machinetool','Parpas Diamond 1 V2').TableAttachPoint.Z" "40mm" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_H640-5ax_v6.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_H640-5ax_v6.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Parpas Diamond 2" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Parpas Diamond 2\Parpas Diamond 2.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Parpas Diamond 2\Parpas Diamond 2\Parpas Diamond 2 V2.mtd' EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas Diamond 2 V2" FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Parpas Diamond 2.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas Diamond 2 V2" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" UNDRAW MACHINETOOL "Parpas Diamond 2 V2" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_2_v2.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_Diamond_2_v2.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Parpas OMV" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Parpas OMV\Parpas OMV.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Parpas OMV\Parpas OMV\Parpas OMV.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Parpas OMV.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Parpas OMV" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT PAR "entity('machinetool','Parpas OMV').machinetool.MachinePart[0].ModelList.Opacity" 0 EDIT PAR "entity('machinetool','Parpas OMV').machinetool.MachinePart[0].MachinePart[0].ModelList.Opacity" 0 UNDRAW MACHINETOOL "Parpas OMV" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_OMV_v20.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Parpas_OMV_v20.pmoptz" FORM ACCEPT SelectOptionFile } ELSEIF $project.Machine_Name == "Takumi B8" { IMPORT PARAMETERS FILEOPEN 'Z:\PowerMill\PowerMill Database\Templates\Parameters\Master Parameter List.pmlpar' IMPORT MODEL FILEOPEN 'Z:\PowerMill\PowerMill Database\Machines\Takumi B8\Takumi B8.dgk' IMPORT MACHINETOOL FILESELECTOR 'Z:\PowerMill\PowerMill Database\Machines\Takumi B8\Takumi B8\Takumi B8.mtd' FORM RIBBON BACKSTAGE CLOSE IMPORT TEMPLATE PROJECT FILEOPEN "Z:\PowerMill\PowerMill Database\Tooling\Tool Lists\Takumi B8.ptf" EDIT NCPROGRAM PREFERENCES FILEMASK "{ncprogram}.h" EDIT NCPROGRAM PREFERENCES MACHINETOOL "Takumi B8" EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" UNDRAW MACHINETOOL "Takumi B8" EDIT PAR "project.Machine_Post" 'Z:\PowerMill\PowerMill Database\Templates\Posts\Takumi_B8_v6.pmoptz' EDIT NCPROGRAM PREFERENCES TAPEOPTIONS "Z:\PowerMill\PowerMill Database\Templates\Posts\Takumi_B8_v6.pmoptz" FORM ACCEPT SelectOptionFile } // Job Import $command = 'EDIT PAR "project.Job_Path" ' + "'" + $jobImport + "'" DOCOMMAND $command $command = "IMPORT MODEL FILEOPEN " + '"' + $project.Job_Path + '"' DOCOMMAND $command DELETE WORKPLANE ALL STRING jobName = (FOLDER('model')[1].Name) $command = "EDIT PAR " + '"' + "project.Job_Name" + '"' + " " + "'" + $jobName + "'" DOCOMMAND $command UNDRAW LEVEL ALL FOREACH level IN FOLDER('Level') { SWITCH $level.name { CASE "Table" BREAK CASE "Pickup" BREAK DEFAULT DRAW LEVEL $level.name BREAK } } //CALL BadSurfaceDetection() ROTATE TRANSFORM ISO1 CREATE WORKPLANE ; EDITOR MODE WORKPLANE_EDIT START "1" MODE WORKPLANE_EDIT POSITION STRING pauseMessage = "Please adjust workplane Z for FCS level." + CRLF + "Adjust Z axis for machining direction." + CRLF + "Ensure workplane is center of job." MACRO PAUSE $pauseMessage POSITION ACCEPT MODE WORKPLANE_EDIT FINISH ACCEPT ACTIVATE WORKPLANE "1" RENAME WORKPLANE "1" "JOB_ATTACHMENT_POINT" // FCS Import IF $project.FCS_Type == "None" { REAL jobHeight = INPUT "Please input block height for the job." bool heightCheck = 0 IF $jobHeight == 0 { $heightCheck = 0 } ELSE { $heightCheck = 1 } WHILE $heightCheck == 0 { STRING heightCheckMessage = "Height set to zero. Is this correct?" $heightCheck = query $heightCheckMessage IF $heightCheck == 0 { $jobHeight = INPUT "Please set block height for under the job." $heightCheck = 1 } ELSE { $heightCheck = 1 } } FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name EDIT MODEL ALL DESELECT ALL EDIT MODEL $project.Job_Name SELECT ALL FORM BLOCK EDIT BLOCK ALL UNLOCK EDIT BLOCKTYPE BOX EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "JOB_ATTACHMENT_POINT" EDIT BLOCK LIMITTYPE MODEL EDIT BLOCK RESET REAL blkBot = ($Block.Limits.ZMin) * -1 REAL adjustment = $jobHeight + $blkBot $command = 'TRANSFORM MOVE "-' + $adjustment + '"' DOCOMMAND $command $command = 'TRANSFORM TYPE MOVE TRANSFORM MOVEZ PRESET TRANSFORM MODEL ' + '"' + $project.Machine_Name + '"' DOCOMMAND $command COPY WORKPLANE "JOB_ATTACHMENT_POINT" RENAME WORKPLANE "JOB_ATTACHMENT_POINT_1" "Main" FORM BLOCK EDIT BLOCKTYPE BOX EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "Main" BLOCK ACCEPT } ELSEIF $project.FCS_Type == "Vise" { STRING ARRAY Opts[] = {"Modular Vise", "Claw Vise"} INT viseStyle = INPUT CHOICE $Opts "Please select a Vise Style" IF $viseStyle == 0 { FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name EDIT MODEL ALL DESELECT ALL STRING LIST s_toks = TOKENS($project.Job_Name, "_") STRING LIST s_toks2 = TOKENS($s_toks[1], "-") BOOL autoSetPrep = 0 FOREACH tok IN $s_toks2 { STRING caseAdjust = ucase($tok) IF $caseAdjust == "LIFTER" OR $caseAdjust == "INSERT" { STRING checkMessage = "Component detected. Auto set up?" $autoSetPrep = query $checkMessage } } EDIT MODEL $project.Job_Name SELECT ALL IF $autoSetPrep == 1 { FORM BLOCK EDIT BLOCK COORDINATE WORKPLANE EDIT BLOCK ALL UNLOCK EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET EDIT BLOCK ZMAX LOCK EDIT BLOCK ZMIN LOCK EDIT BLOCK RESETLIMIT ".25" EDIT BLOCK RESET EDIT BLOCK ZMAX UNLOCK EDIT BLOCK ZMIN UNLOCK REAL blkZmax = $Block.Limits.ZMax + .4 REAL blkZmin = $Block.Limits.ZMin - .1 EDIT BLOCK ZMAX $blkZMax EDIT BLOCK ZMIN $blkZmin BLOCK ACCEPT } ELSE { FORM BLOCK EDIT BLOCK COORDINATE WORKPLANE EDIT BLOCK ALL UNLOCK DRAW BLOCK EDIT BLOCK DRAWMODE 25 EDIT BLOCKTYPE BOX EDIT BLOCK COORDINATE WORKPLANE EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET MACRO PAUSE "Please verify Block size." BLOCK ACCEPT } MODE WORKPLANE_CREATE "World Transform" SELECTION TOP REAL zMinBlock = $Block.Limits.ZMin IF $zMinBlock == 0 { $zMinBlock = ($Block.Limits.ZMax * -1) } MODE WORKPLANE_EDIT START "World Transform" MODE WORKPLANE_EDIT POSITION $command = "MODE POSITION CARTESIAN Z " + '"' + $zMinBlock + '"' DOCOMMAND $command POSITION APPLY MODE WORKPLANE_EDIT FINISH ACCEPT ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" REAL xBlockCheck = ($Block.Limits.XMin * -1) + ($Block.Limits.XMax) REAL yBlockCheck = ($Block.Limits.YMin * -1) + ($Block.Limits.YMax) CREATE FOLDER "Model" "FCS" ACTIVATE FOLDER "Model\FCS" IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Modular Vise\Moveable Jaw.dgk" IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Modular Vise\Static Jaw.dgk" IF $yBlockCheck > 2.0 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Modular Vise\Vise Body Long.dgk" RENAME MODEL "Vise Body Long" "Vise Body" } ELSE { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Modular Vise\Vise Body.dgk" } TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Vise Body" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Moveable Jaw" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Static Jaw" FORM MODELTRANS EDIT MODEL "Static Jaw" INTERACTIVE REAL jawTransform = ($yBlockCheck / 2) $command = "TRANSFORM MOVE " + '"' + $jawTransform + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Static Jaw" $jawTransform = $jawTransform * -1 FORM MODELTRANS EDIT MODEL "Moveable Jaw" INTERACTIVE $command = "TRANSFORM MOVE " + '"' + $jawTransform + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Moveable Jaw" EDIT MODEL ALL DESELECT ALL IF $yBlockCheck > 7 { REAL moveBody = ($yBlockCheck / 2) - 2.952756 INT bodyMoveCount = 1 bool moveCalc = 0 REAL moveMath = 0 WHILE $moveCalc == 0 { $moveMath = 1.9685 * $bodyMoveCount IF $moveMath > $moveBody { $moveCalc = 1 } ELSE { $bodyMoveCount = $bodyMoveCount + 1 } } $moveMath = $moveMath - 1.9685 EDIT LEVEL "Vise Body Upper" SELECT ALL FORM MODELTRANS EDIT MODEL "Vise Body" INTERACTIVE TRANSFORM MOVE "25mm" TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Vise Body" STRING command = 'TRANSFORM MOVE "' + $moveMath + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Vise Body" EDIT MODEL ALL DESELECT ALL EDIT LEVEL "Vise Body Lower" SELECT ALL FORM MODELTRANS EDIT MODEL "Vise Body" INTERACTIVE TRANSFORM MOVE "-25mm" TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Vise Body" $moveMath = $moveMath * -1 $command = 'TRANSFORM MOVE "' + $moveMath + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Vise Body" } ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" EDIT MODEL "Vise Body" SELECT ALL MODE WORKPLANE_CREATE "Vise Transform" SELECTION TOP ACTIVATE WORKPLANE "Vise Transform" TRANSFORM TYPE WORLD TRANSFORM MODEL "Vise Body" TRANSFORM TYPE WORLD TRANSFORM MODEL "Static Jaw" TRANSFORM TYPE WORLD TRANSFORM MODEL "Moveable Jaw" ACTIVATE WORKPLANE "World Transform" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Vise Body" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Static Jaw" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Moveable Jaw" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" DELETE WORKPLANE "Vise Transform" DELETE WORKPLANE "World Transform" IF $xBlockCheck > 6.0 { EDIT MODEL "Vise Body" CLIPBOARD COPY CREATE MODEL CLIPBOARD EDIT MODEL "Static Jaw" CLIPBOARD COPY CREATE MODEL CLIPBOARD EDIT MODEL "Moveable Jaw" CLIPBOARD COPY CREATE MODEL CLIPBOARD REAL bodyMove1 = ROUND(((($xBlockCheck - 7) / 2) / 1.9685), 0) REAL bodyMove2 = $bodyMove1 * -1 FORM MODELTRANS EDIT MODEL "Lower Jaw" INTERACTIVE TRANSFORM MOVE "50mm" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Moveable Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Static Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Vise Body" TRANSFORM MOVE "-50mm" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "1" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "2" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "3" IF $bodyMove1 > 0 { REAL transformFinal = ($bodyMove1 - 1) * 1.9685 FORM MODELTRANS EDIT MODEL "Lower Jaw" INTERACTIVE $command = "TRANSFORM MOVE " + '"' + $transformFinal + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Moveable Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Static Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Vise Body" $transformFinal = transformFinal * -1 $command = "TRANSFORM MOVE " + '"' + $transformFinal + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "1" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "2" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "3" } } EDIT MODEL "Vise Body" SELECT ALL MODE WORKPLANE_CREATE "Transfer End" SELECTION BOTTOM EDIT MODEL ALL DESELECT ALL DRAW LEVEL "Table" DRAW LEVEL "Pickup" EDIT LEVEL "Pickup" SELECT ALL MODE WORKPLANE_CREATE "Transfer Start" SELECTION BOTTOM EDIT MODEL ALL DESELECT ALL ACTIVATE WORKPLANE "Transfer Start" TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "Transfer End" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name DELETE WORKPLANE "Transfer Start" DELETE WORKPLANE "Transfer End" VIEW MODEL ; SHADE OFF VIEW MODEL ; WIREFRAME ON ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" ROTATE TRANSFORM TOP FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE IF $yBlockCheck > 2.0 { TRANSFORM MOVE "-25mm" TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL $project.Machine_Name } TRANSFORM MOVE "-50mm" MACRO PAUSE "Adjust table position." } ELSEIF $viseStyle == 1 { FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name EDIT MODEL ALL DESELECT ALL EDIT MODEL $project.Job_Name SELECT ALL STRING LIST s_toks = TOKENS($project.Job_Name, "_") STRING LIST s_toks2 = TOKENS($s_toks[1], "-") BOOL autoSetPrep = 0 FOREACH tok IN $s_toks2 { STRING caseAdjust = ucase($tok) IF $caseAdjust == "LIFTER" OR $caseAdjust == "INSERT" { STRING checkMessage = "Component detected. Auto set up?" $autoSetPrep = query $checkMessage } } EDIT MODEL $project.Job_Name SELECT ALL IF $autoSetPrep == 1 { FORM BLOCK EDIT BLOCK COORDINATE WORKPLANE EDIT BLOCK ALL UNLOCK EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET EDIT BLOCK ZMAX LOCK EDIT BLOCK ZMIN LOCK EDIT BLOCK RESETLIMIT ".25" EDIT BLOCK RESET EDIT BLOCK ZMAX UNLOCK EDIT BLOCK ZMIN UNLOCK REAL blkZmax = $Block.Limits.ZMax + .4 REAL blkZmin = $Block.Limits.ZMin - .1 EDIT BLOCK ZMAX $blkZMax EDIT BLOCK ZMIN $blkZmin BLOCK ACCEPT } ELSE { FORM BLOCK EDIT BLOCK COORDINATE WORKPLANE EDIT BLOCK ALL UNLOCK DRAW BLOCK EDIT BLOCK DRAWMODE 25 EDIT BLOCKTYPE BOX EDIT BLOCK COORDINATE WORKPLANE EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET MACRO PAUSE "Please verify Block size." BLOCK ACCEPT } IF $project.Machining_Process == "Prep" { CREATE STOCKMODEL $project.Job_Name FORM STOCKMODEL EDIT STOCKMODEL ; STEPOVER ".035" EDIT STOCKMODEL ; TOLERANCE ".001" EDIT STOCKMODEL ; WORKPLANE " " EDIT STOCKMODEL ; RESTTHICKNESS ".006" EDIT STOCKMODEL ; REAPPLYFROMGUI EDIT STOCKMODEL ; BLOCK ; EDIT STOCKMODEL ; CALCULATE BLOCK ACCEPT UNDRAW STOCKMODEL ; } BLOCK ACCEPT MODE WORKPLANE_CREATE "World Transform" SELECTION TOP REAL zMinBlock = $Block.Limits.ZMin IF $zMinBlock == 0 { $zMinBlock = ($Block.Limits.ZMax * -1) } MODE WORKPLANE_EDIT START "World Transform" MODE WORKPLANE_EDIT POSITION $command = "MODE POSITION CARTESIAN Z " + '"' + $zMinBlock + '"' DOCOMMAND $command POSITION APPLY MODE WORKPLANE_EDIT FINISH ACCEPT ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" REAL xBlockCheck = ($Block.Limits.XMin * -1) + ($Block.Limits.XMax) REAL yBlockCheck = ($Block.Limits.YMin * -1) + ($Block.Limits.YMax) CREATE FOLDER "Model" "FCS" ACTIVATE FOLDER "Model\FCS" IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Step Grip Vise\Vise Body.dgk" IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Step Grip Vise\Upper Jaw.dgk" IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Step Grip Vise\Lower Jaw.dgk" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Vise Body" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Lower Jaw" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Upper Jaw" FORM MODELTRANS EDIT MODEL "Upper Jaw" INTERACTIVE REAL jawTransform = ($yBlockCheck / 2) - (0.984252 / 2) $command = "TRANSFORM MOVE " + '"' + $jawTransform + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Upper Jaw" $jawTransform = $jawTransform * -1 FORM MODELTRANS EDIT MODEL "Lower Jaw" INTERACTIVE $command = "TRANSFORM MOVE " + '"' + $jawTransform + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL "Lower Jaw" EDIT MODEL ALL DESELECT ALL ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" EDIT MODEL "Vise Body" SELECT ALL MODE WORKPLANE_CREATE "Vise Transform" SELECTION TOP MODE WORKPLANE_EDIT START "Vise Transform" MODE WORKPLANE_EDIT POSITION MODE POSITION CARTESIAN Z "0.649606" POSITION APPLY MODE WORKPLANE_EDIT FINISH ACCEPT EDIT MODEL ALL DESELECT ALL ACTIVATE WORKPLANE "Vise Transform" TRANSFORM TYPE WORLD TRANSFORM MODEL "Vise Body" TRANSFORM TYPE WORLD TRANSFORM MODEL "Lower Jaw" TRANSFORM TYPE WORLD TRANSFORM MODEL "Upper Jaw" ACTIVATE WORKPLANE "World Transform" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Vise Body" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Lower Jaw" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "Upper Jaw" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" DELETE WORKPLANE "Vise Transform" DELETE WORKPLANE "World Transform" IF $xBlockCheck > 6.0 { EDIT MODEL "Vise Body" CLIPBOARD COPY CREATE MODEL CLIPBOARD EDIT MODEL "Upper Jaw" CLIPBOARD COPY CREATE MODEL CLIPBOARD EDIT MODEL "Lower Jaw" CLIPBOARD COPY CREATE MODEL CLIPBOARD REAL bodyMove1 = ROUND(((($xBlockCheck - 7) / 2) / 1.9685), 0) REAL bodyMove2 = $bodyMove1 * -1 FORM MODELTRANS EDIT MODEL "Lower Jaw" INTERACTIVE TRANSFORM MOVE "50mm" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Lower Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Upper Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Vise Body" TRANSFORM MOVE "-50mm" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "1" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "2" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "3" IF $bodyMove1 > 0 { REAL transformFinal = ($bodyMove1 - 1) * 1.9685 FORM MODELTRANS EDIT MODEL "Lower Jaw" INTERACTIVE $command = "TRANSFORM MOVE " + '"' + $transformFinal + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Lower Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Upper Jaw" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "Vise Body" $transformFinal = transformFinal * -1 $command = "TRANSFORM MOVE " + '"' + $transformFinal + '"' DOCOMMAND $command TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "1" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "2" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL "3" } } EDIT MODEL "Vise Body" SELECT ALL MODE WORKPLANE_CREATE "Transfer End" SELECTION BOTTOM EDIT MODEL ALL DESELECT ALL DRAW LEVEL "Table" DRAW LEVEL "Pickup" EDIT LEVEL "Pickup" SELECT ALL MODE WORKPLANE_CREATE "Transfer Start" SELECTION BOTTOM EDIT MODEL ALL DESELECT ALL ACTIVATE WORKPLANE "Transfer Start" TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "Transfer End" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name DELETE WORKPLANE "Transfer Start" DELETE WORKPLANE "Transfer End" VIEW MODEL ; SHADE OFF VIEW MODEL ; WIREFRAME ON ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" ROTATE TRANSFORM TOP FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM MOVE "-50mm" IF $project.Machine_Name == "Johnford 1500" { TRANSFORM MOVE "-21.653543" TRANSFORM TYPE MOVE TRANSFORM MOVEX PRESET TRANSFORM MODEL $project.Machine_Name TRANSFORM MOVE "-7.874016" TRANSFORM TYPE MOVE TRANSFORM MOVEY PRESET TRANSFORM MODEL $project.Machine_Name } ELSE { MACRO PAUSE "Adjust table position." } MODELTRANS ACCEPT } } ELSEIF $project.FCS_Type == "M5 Pallet" { CREATE FOLDER "Model" "FCS" ACTIVATE FOLDER "Model\FCS" STRING ARRAY palletOpts[] = {"Small (Standard)", "Medium (Additional 80mm)", "Large (2 Additional 80mm)"} INT palletChoice = INPUT CHOICE $palletOpts "Please select pallet style." IF $palletChoice == 0 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M5 Mono Pallet.dgk" } ELSEIF $palletChoice == 1 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M5 Mono Pallet + 80mm.dgk" RENAME MODEL "M5 Mono Pallet + 80mm" "M5 Mono Pallet" } ELSEIF $palletChoice == 2 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M5 Mono Pallet + 80mm x 2.dgk" RENAME MODEL "M5 Mono Pallet + 80mm x 2" "M5 Mono Pallet" } EDIT MODEL "M5 Mono Pallet" SELECT ALL DEACTIVATE Workplane MODE WORKPLANE_CREATE "World-Transfer" SELECTION TOP ACTIVATE WORKPLANE "World-Transfer" EDIT MODEL ALL DESELECT ALL FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name TRANSFORM TYPE WORLD TRANSFORM MODEL "M5 Mono Pallet" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" DELETE WORKPLANE "World-Transfer" FORM MODELTRANS EDIT MODEL $project.machine_name INTERACTIVE TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.machine_name TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "M5 Mono Pallet" UNDRAW ALL UNDRAW LEVEL ALL DRAW LEVEL "Table" DRAW LEVEL "Pickup" DRAW LEVEL "M5 Mono Pallet" EDIT LEVEL "Pickup" SELECT ALL ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" MODE WORKPLANE_CREATE "Pallet-Transfer-End" SELECTION TOP EDIT MODEL ALL DESELECT ALL EDIT LEVEL "M5 Mono Pallet" SELECT ALL MODE WORKPLANE_CREATE "Pallet-Transfer-Start" SELECTION BOTTOM FORM MODELTRANS EDIT MODEL "M5 Mono Pallet" INTERACTIVE ACTIVATE WORKPLANE "Pallet-Transfer-Start" TRANSFORM TYPE WORLD TRANSFORM MODEL "M5 Mono Pallet" ACTIVATE WORKPLANE "Pallet-Transfer-End" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "M5 Mono Pallet" DELETE WORKPLANE "Pallet-Transfer-Start" DELETE WORKPLANE "Pallet-Transfer-End" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM MOVE "50mm" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP MACRO PAUSE "Please adjust Pallet to table location." EDIT MODEL "M5 Mono Pallet" CLIPBOARD COPY EDIT MODEL $project.Machine_Name CLIPBOARD PASTE DELETE MODEL "M5 Mono Pallet" DELETE MODEL FOLDER "Model\FCS" EDIT LEVEL "M5 Mono Pallet" SELECT ALL MODE WORKPLANE_CREATE "Pallet-Start" SELECTION TOP EDIT MODEL ALL DESELECT ALL FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE ACTIVATE WORKPLANE "Pallet-Start" TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name DELETE WORKPLANE "Pallet-Start" DRAW LEVEL ALL UNDRAW ALL UNDRAW LEVEL "Table" UNDRAW LEVEL "Pickup" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM MOVE "10mm" STRING moveMessage = "Please adjust component on the pallet." MACRO PAUSE $moveMessage } ELSEIF $project.FCS_Type == "M6 Pallet" { CREATE FOLDER "Model" "FCS" ACTIVATE FOLDER "Model\FCS" STRING palletType = "" STRING ARRAY Opts[] = {"Mono Pallet", "Pallet"} INT A = INPUT CHOICE $Opts "Please select a pallet style." IF $A == 0 { STRING ARRAY palletOpts[] = {"Small (Standard)", "Medium (Additional 80mm)", "Large (2 Additional 80mm)"} INT palletChoice = INPUT CHOICE $palletOpts "Please select pallet style." IF $palletChoice == 0 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M6 Mono Pallet.dgk" } ELSEIF $palletChoice == 1 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M6 Mono Pallet + 80mm.dgk" RENAME MODEL "M6 Mono Pallet + 80mm" "M6 Mono Pallet" } ELSEIF $palletChoice == 2 { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M6 Mono Pallet + 80mm x 2.dgk" RENAME MODEL "M6 Mono Pallet + 80mm x 2" "M6 Mono Pallet" } $palletType = "M6 Mono Pallet" } ELSE { IF $project.Machine_Name == "Parpas Diamond" OR $project.Machine_Name == "Parpas Diamond 2" { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Machine Buildups\Parpas Diamond\M6 Pallet.dgk" } ELSE { IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M6 Pallet.dgk" } $palletType = "M6 Pallet" } EDIT MODEL $palletType SELECT ALL DEACTIVATE Workplane MODE WORKPLANE_CREATE "World-Transfer" SELECTION TOP ACTIVATE WORKPLANE "World-Transfer" EDIT MODEL ALL DESELECT ALL FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name TRANSFORM TYPE WORLD TRANSFORM MODEL $palletType ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" DELETE WORKPLANE "World-Transfer" FORM MODELTRANS EDIT MODEL $project.machine_name INTERACTIVE TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.machine_name TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $palletType UNDRAW ALL UNDRAW LEVEL ALL DRAW LEVEL "Table" DRAW LEVEL "Pickup" DRAW LEVEL $palletType EDIT LEVEL "Pickup" SELECT ALL ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" MODE WORKPLANE_CREATE "Pallet-Transfer-End" SELECTION TOP EDIT MODEL ALL DESELECT ALL EDIT LEVEL $palletType SELECT ALL MODE WORKPLANE_CREATE "Pallet-Transfer-Start" SELECTION BOTTOM FORM MODELTRANS EDIT MODEL $palletType INTERACTIVE ACTIVATE WORKPLANE "Pallet-Transfer-Start" TRANSFORM TYPE WORLD TRANSFORM MODEL $palletType ACTIVATE WORKPLANE "Pallet-Transfer-End" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $palletType DELETE WORKPLANE "Pallet-Transfer-Start" DELETE WORKPLANE "Pallet-Transfer-End" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM MOVE "50mm" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP MACRO PAUSE "Please adjust Pallet to table location." EDIT MODEL $palletType CLIPBOARD COPY EDIT MODEL $project.Machine_Name CLIPBOARD PASTE DELETE MODEL $palletType DELETE MODEL FOLDER "Model\FCS" EDIT LEVEL $palletType SELECT ALL MODE WORKPLANE_CREATE "Pallet-Start" SELECTION TOP EDIT MODEL ALL DESELECT ALL FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE ACTIVATE WORKPLANE "Pallet-Start" TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name DELETE WORKPLANE "Pallet-Start" DRAW LEVEL ALL UNDRAW ALL UNDRAW LEVEL "Table" UNDRAW LEVEL "Pickup" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM MOVE "15mm" STRING moveMessage = "Please adjust component on the pallet." MACRO PAUSE $moveMessage } ELSEIF $project.FCS_Type == "M8 Pallet" { CREATE FOLDER "Model" "FCS" ACTIVATE FOLDER "Model\FCS" IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Pallet\M8 Pallet.dgk" EDIT MODEL "M8 Pallet" SELECT ALL DEACTIVATE Workplane MODE WORKPLANE_CREATE "World-Transfer" SELECTION TOP ACTIVATE WORKPLANE "World-Transfer" EDIT MODEL ALL DESELECT ALL FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name TRANSFORM TYPE WORLD TRANSFORM MODEL "M8 Pallet" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" DELETE WORKPLANE "World-Transfer" FORM MODELTRANS EDIT MODEL $project.machine_name INTERACTIVE TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.machine_name TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "M8 Pallet" UNDRAW ALL UNDRAW LEVEL ALL DRAW LEVEL "Table" DRAW LEVEL "Pickup" DRAW LEVEL "M8 Pallet" DRAW LEVEL "80mm Riser" EDIT LEVEL "Pickup" SELECT ALL ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" MODE WORKPLANE_CREATE "Pallet-Transfer-End" SELECTION TOP EDIT MODEL ALL DESELECT ALL EDIT MODEL "M8 Pallet" SELECT ALL MODE WORKPLANE_CREATE "Pallet-Transfer-Start" SELECTION BOTTOM FORM MODELTRANS EDIT MODEL "M8 Pallet" INTERACTIVE ACTIVATE WORKPLANE "Pallet-Transfer-Start" TRANSFORM TYPE WORLD TRANSFORM MODEL "M8 Pallet" ACTIVATE WORKPLANE "Pallet-Transfer-End" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL "M8 Pallet" DELETE WORKPLANE "Pallet-Transfer-Start" DELETE WORKPLANE "Pallet-Transfer-End" ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM MOVE "50mm" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP MACRO PAUSE "Please adjust Pallet to table location." EDIT MODEL "M8 Pallet" CLIPBOARD COPY EDIT MODEL $project.Machine_Name CLIPBOARD PASTE DELETE MODEL "M8 Pallet" DELETE MODEL FOLDER "Model\FCS" EDIT LEVEL "M8 Pallet" SELECT ALL MODE WORKPLANE_CREATE "Pallet-Start" SELECTION TOP EDIT MODEL ALL DESELECT ALL FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE ACTIVATE WORKPLANE "Pallet-Start" TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name DELETE WORKPLANE "Pallet-Start" DRAW LEVEL ALL UNDRAW ALL UNDRAW LEVEL "Table" UNDRAW LEVEL "Pickup" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM MOVE "20mm" STRING moveMessage = "Please adjust component on the pallet." MACRO PAUSE $moveMessage } ELSEIF $project.FCS_Type == "40mm Riser" OR $project.FCS_Type == "60mm Riser" OR $project.FCS_Type == "80mm Riser" OR $project.FCS_Type == "160mm Riser" { EDIT BLOCK ALL UNLOCK ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" EDIT SELECTION SMART NO FORM MODELSELECT EDIT SELECTION APPROXIMATE 'web' EDIT SELECTION MODEL FILTER "0,64,128" FORM CANCEL MODELSELECT CREATE FOLDER "Featureset" 'FCS Locations' ACTIVATE FOLDER "Featureset\FCS Locations" CREATE FEATURESET "FCS_LOCATIONS" EDIT FEATURECREATE TYPE HOLE EDIT FEATURECREATE CIRCULAR ON EDIT FEATURECREATE FILTER HOLES EDIT FEATURECREATE TOPDEFINE ABSOLUTE EDIT FEATURECREATE BOTTOMDEFINE ABSOLUTE FORM CANCEL FEATURE FORM CREATEHOLE EDIT FEATURECREATE HOLES COMPOUND OFF EDIT FEATURECREATE HOLES FIXED ON EDIT FEATURECREATE HOLES OPEN ON EDIT FEATURECREATE HOLES DIRECTION BOTH EDIT FEATURECREATE MULTAX ON EDIT FEATURECREATE MIN_ARC_ANGLE "90" EDIT FEATURECREATE HOLES EDITONAPPLY NO EDIT FEATURECREATE HOLES CAPPED EXCLUDE EDIT FEATURECREATE CREATEHOLES FORM CANCEL CREATEHOLE EDIT MODEL ALL DESELECT ALL ENTITY $sourceFeatureset = $entity("Featureset","FCS_LOCATIONS") EDIT FEATURESET ; DESELECT ALL UNDRAW ALL REAL LIST diameters = (.86614, .8661, 0.7094, .8669, 0.9449) REAL currentDiameter = 0 FOREACH f IN components($sourceFeatureset) { $currentDiameter = ROUND($f.diameter, 4) IF NOT member($diameters, $currentDiameter) { EDIT FEATURESET ; DELETE $f.name } } DRAW FEATURESET $sourceFeatureset FOREACH f IN components($sourceFeatureset) { EDIT FEATURESET ; SELECT $f FORM BLOCK EDIT BLOCKTYPE CYLINDER EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "JOB_ATTACHMENT_POINT" EDIT BLOCK LIMITTYPE FEATURESET EDIT BLOCK RESET REAL blockCheck = round($Block.Limits.ZMin, 3) IF $blockCheck > 1 { EDIT FEATURESET ; DELETE $f } EDIT FEATURESET ; DESELECT ALL } EDIT FEATURESET ; HOLES REVERSE EDIT FEATURESET ; HOLES REVERSE FOREACH f IN components($sourceFeatureset) { EDIT FEATURESET ; SELECT $f IF $f.draft <= 1 { } ELSE { EDIT FEATURESET ; DELETE $f.name } EDIT FEATURESET ; DESELECT ALL } BLOCK CANCEL EDIT FEATURESET ; SELECT DUPLICATES DELETE FEATURESET ; SELECTED $diameters = () FOREACH f IN components($sourceFeatureset) { INT add = add_last($diameters, $f.diameter) } INT remove = remove_duplicates($diameters) INT sizeCheck = size($diameters) WHILE $sizeCheck > 1 { STRING difMessage = "There are too many diameters for the automation." + CRLF + "Please delete unwanted holes. (Max 4)" MACRO PAUSE $difMessage $diameters = () FOREACH f IN components($sourceFeatureset) { INT add = add_last($diameters, $f.diameter) } INT remove = remove_duplicates($diameters) $sizeCheck = size($diameters) } $currentDiameter = $diameters[0] INT fcsCount = 0 FOREACH f IN components($sourceFeatureset) { $fcsCount = $fcsCount + 1 } WHILE $fcsCount > 4 { UNDRAW ALL DRAW FEATURESET $sourceFeatureset $pauseMessage = "Too many features, please delete the ones " + CRLF + "that are not required. Only 4 features required." MACRO PAUSE $pauseMessage $fcsCount = 0 FOREACH f IN components($sourceFeatureset) { $fcsCount = $fcsCount + 1 } } REAL activeZ = entity('workplane','').zaxis[2] FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { REAL featZ = $feat.axis.z IF $featZ == $activeZ { EDIT FEATURESET ; DESELECT ALL EDIT FEATURESET ; SELECT $f EDIT FEATURESET ; HOLES REVERSE EDIT FEATURESET ; DESELECT ALL } } } EDIT FEATURESET ; HOLES REVERSE EDIT FEATURESET ; HOLES REVERSE EDIT FEATURESET ; SELECT ALL EDIT FEATURESET ; FEATURE SELECTED POSITION Z "0" EDIT FEATURESET ; DESELECT ALL EDIT FEATURESET ; HOLES REVERSE ROTATE TRANSFORM TOP STRING checkPause = "Please review featuresets." MACRO PAUSE $checkPause bool riser60check = 0 IF $i_fcs == "80mm Riser" AND $currentDiameter == 0.7094 { $pauseMessage = "80mm Risers selected. 12mm FCS detected. Add 60mm risers?" $riser60check = query $pauseMessage } EDIT FEATURESET ; SELECT DUPLICATES DELETE FEATURESET ; SELECTED EDIT FEATURESET "FCS_LOCATIONS" HOLES REVERSE EDIT FEATURESET "FCS_LOCATIONS" HOLES REVERSE CREATE FOLDER "Workplane" "FCS" ACTIVATE FOLDER "Workplane\FCS" FOREACH f IN components($sourceFeatureset) { EDIT FEATURESET ; SELECT $F MODE WORKPLANE_CREATE ; SELECTION BOTTOM EDIT FEATURESET ; DESELECT ALL } EDIT FEATURESET ; DESELECT ALL CREATE FOLDER "Model" "FCS" ACTIVATE FOLDER "Model\FCS" IF $riser60check == 1 { $pauseMessage = "Do you require spacers?" bool spacerCheck = 0 $spacerCheck = query $pauseMessage IF $spacerCheck == 1 { EDIT PAR 'project.FCS_Type' "150mm Riser" } ELSE { EDIT PAR 'project.FCS_Type' "140mm Riser" } } STRING fcsImportCode = 'IMPORT MODEL FILEOPEN "Z:\PowerMill\PowerMill Database\FCS\Library\Riser\' + $project.FCS_Type + '.dgk"' STRING LIST wrkpSelect = () FOREACH wkp IN FOLDER('Workplane\FCS') { INT add = add_last($wrkpSelect, $wkp.name) DOCOMMAND $fcsImportCode } INT transformCount = 0 FOREACH m IN FOLDER('Model\FCS') { FORM MODELTRANS EDIT MODEL $m INTERACTIVE STRING workplane = $wrkpSelect[$transformCount] ACTIVATE WORKPLANE $workplane TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $m $transformCount = $transformCount + 1 } ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" REAL LIST xValues = () REAL LIST yValues = () FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { EDIT FEATURESET ; DESELECT ALL EDIT FEATURESET ; SELECT $f INT add1 = add_last($xValues, $feat.point.x) INT add2 = add_last($yValues, $feat.point.y) } } $xValues = sort($xValues) $yValues = sort($yValues) IF $project.Machining_Process == "Backwork" { WHILE size($xValues) > 1 { INT remove = remove_first($xValues) } } ELSE { WHILE size($xValues) > 1 { INT remove = remove_last($xValues) } } WHILE size($yValues) > 1 { INT remove = remove_last($yValues) } INT deleteCount = 0 STRING command = "" FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { IF $feat.point.x == $xValues[0] AND $feat.point.y == $yValues[0] { STRING deleteName = "Workplane\FCS\" + $wrkpSelect[$deleteCount] $command = 'MODE WORKPLANE_TRANSFORM START ' + $wrkpSelect[$deleteCount] DOCOMMAND $command MODE TRANSFORM TYPE TRANSLATE MODE POSITION START STRING LIST fcsToks = TOKENS($project.FCS_Type, " ") STRING positionMove = '"' + "-" + $fcsToks[0] + '"' $command = 'MODE POSITION CARTESIAN Z ' + $positionMove DOCOMMAND $command POSITION APPLY POSITION ACCEPT MODE WORKPLANE_TRANSFORM FINISH ACCEPT $command = 'EDIT FOLDER "Workplane" INSERT ' + "'" + $deleteName + "'" + ' LAST' DOCOMMAND $command $command = 'RENAME WORKPLANE ' + "'" + $wrkpSelect[$deleteCount] + "'" + '"' + "FCS-Start" + '"' DOCOMMAND $command } ELSE { $deleteCount = $deleteCount + 1 } } } IF NOT entity_exists('workplane', "FCS-Start") { $xValues = () $yValues = () FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { EDIT FEATURESET ; DESELECT ALL EDIT FEATURESET ; SELECT $f FORM BLOCK EDIT BLOCKTYPE CYLINDER EDIT BLOCK LIMITTYPE FEATURESET EDIT BLOCK ALL UNLOCK EDIT BLOCK RESET INT add1 = add_last($xValues, $Block.Centre.X) INT add2 = add_last($yValues, $Block.Centre.Y) } } $xValues = sort($xValues) $yValues = sort($yValues) WHILE size($xValues) > 1 { INT remove = remove_first($xValues) } WHILE size($yValues) > 1 { INT remove = remove_last($yValues) } INT deleteCount = 0 $command = "" FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { IF $feat.point.x == $xValues[0] AND $feat.point.y == $yValues[0] { STRING deleteName = "Workplane\FCS\" + $wrkpSelect[$deleteCount] $command = 'MODE WORKPLANE_TRANSFORM START ' + $wrkpSelect[$deleteCount] DOCOMMAND $command MODE TRANSFORM TYPE TRANSLATE MODE POSITION START STRING LIST fcsToks = TOKENS($project.FCS_Type, " ") STRING positionMove = '"' + "-" + $fcsToks[0] + '"' $command = 'MODE POSITION CARTESIAN Z ' + $positionMove DOCOMMAND $command POSITION APPLY POSITION ACCEPT MODE WORKPLANE_TRANSFORM FINISH ACCEPT $command = 'EDIT FOLDER "Workplane" INSERT ' + "'" + $deleteName + "'" + ' LAST' DOCOMMAND $command $command = 'RENAME WORKPLANE ' + "'" + $wrkpSelect[$deleteCount] + "'" + '"' + "FCS-Start" + '"' DOCOMMAND $command } ELSE { $deleteCount = $deleteCount + 1 } } } IF NOT entity_exists('workplane', "FCS-Start") { $xValues = () $yValues = () FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { EDIT FEATURESET ; DESELECT ALL EDIT FEATURESET ; SELECT $f FORM BLOCK EDIT BLOCKTYPE CYLINDER EDIT BLOCK LIMITTYPE FEATURESET EDIT BLOCK ALL UNLOCK EDIT BLOCK RESET INT add1 = add_last($xValues, $Block.Centre.X) INT add2 = add_last($yValues, $Block.Centre.Y) } } $xValues = sort($xValues) $yValues = sort($yValues) WHILE size($xValues) > 1 { INT remove = remove_first($xValues) } WHILE size($yValues) > 1 { INT remove = remove_last($yValues) } $deleteCount = 0 $command = "" FOREACH f IN components($sourceFeatureset) { FOREACH feat IN components($f) { EDIT FEATURESET ; DESELECT ALL EDIT FEATURESET ; SELECT $f FORM BLOCK EDIT BLOCKTYPE CYLINDER EDIT BLOCK LIMITTYPE FEATURESET EDIT BLOCK ALL UNLOCK EDIT BLOCK RESET IF $Block.Centre.X == $xValues[0] AND $Block.Centre.Y == $yValues[0] { STRING deleteName = "Workplane\FCS\" + $wrkpSelect[$deleteCount] $command = 'MODE WORKPLANE_TRANSFORM START ' + $wrkpSelect[$deleteCount] DOCOMMAND $command MODE TRANSFORM TYPE TRANSLATE MODE POSITION START STRING LIST fcsToks = TOKENS($project.FCS_Type, " ") STRING positionMove = '"' + "-" + $fcsToks[0] + '"' $command = 'MODE POSITION CARTESIAN Z ' + $positionMove DOCOMMAND $command POSITION APPLY POSITION ACCEPT MODE WORKPLANE_TRANSFORM FINISH ACCEPT $command = 'EDIT FOLDER "Workplane" INSERT ' + "'" + $deleteName + "'" + ' LAST' DOCOMMAND $command $command = 'RENAME WORKPLANE ' + "'" + $wrkpSelect[$deleteCount] + "'" + '"' + "FCS-Start" + '"' DOCOMMAND $command } ELSE { $deleteCount = $deleteCount + 1 } } } } DEACTIVATE FOLDER EDIT MODEL ALL DESELECT ALL } DEACTIVATE FOLDER EDIT MODEL ALL DESELECT ALL IF NOT entity_exists('workplane', "FCS-Start") { MESSAGE INFO "No viable workplane found. Please select the feature you want to use for location." MACRO PAUSE "Select feature then hit Resume." MODE WORKPLANE_CREATE "FCS-Start" SELECTION BOTTOM MODE WORKPLANE_EDIT START "FCS-Start" MODE TRANSFORM TYPE TRANSLATE MODE POSITION START STRING LIST fcsToks = TOKENS($project.FCS_Type, " ") STRING positionMove = '"' + "-" + $fcsToks[0] + '"' $command = 'MODE POSITION CARTESIAN Z ' + $positionMove DOCOMMAND $command POSITION APPLY POSITION ACCEPT MODE WORKPLANE_TRANSFORM FINISH ACCEPT MODE WORKPLANE_EDIT FINISH ACCEPT } EDIT MODEL ALL DESELECT ALL IF folder_exists("Workplane\FCS") { DELETE WORKPLANE FOLDER "Workplane\FCS" } ACTIVATE WORKPLANE "FCS-Start" VIEW MODEL ; WIREFRAME ON ROTATE TRANSFORM TOP FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name DRAW LEVEL "Table" ACTIVATE WORKPLANE "FCS-Start" PICK MODE BOX $pauseMessage = "Please drag select a dot for table location." + CRLF + "Mind where the Active Workplane is." MACRO PAUSE $pauseMessage MODE WORKPLANE_CREATE "FCS-End" SELECTION TOP EDIT MODEL ALL DESELECT ALL ACTIVATE WORKPLANE "FCS-End" FORM MODELTRANS EDIT MODEL $project.Machine_Name INTERACTIVE TRANSFORM TYPE WORLD TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "FCS-Start" TRANSFORM TYPE WORKPLANE TRANSFORM MODEL $project.Machine_Name ACTIVATE WORKPLANE "JOB_ATTACHMENT_POINT" DELETE WORKPLANE "FCS-Start" DELETE WORKPLANE "FCS-End" } IF $project.FCS_Type == "None" { } ELSEIF $project.FCS_Type == "Vise" { IF $project.Machine_Name == "Johnford 1500" { EDIT MODEL ALL DESELECT ALL EDIT LEVEL "Pickup" SELECT ALL MODE WORKPLANE_CREATE "Main" SELECTION TOP } ELSE { COPY WORKPLANE "JOB_ATTACHMENT_POINT" RENAME WORKPLANE "JOB_ATTACHMENT_POINT_1" "Main" ACTIVATE WORKPLANE "Main" } } ELSE { DRAW LEVEL "Pickup" EDIT MODEL ALL DESELECT ALL EDIT LEVEL "Pickup" SELECT ALL MODE WORKPLANE_CREATE "Main" SELECTION TOP ACTIVATE WORKPLANE "Main" } EDIT MODEL ALL DESELECT ALL EDIT LEVEL 'Table' SELECT ALL MODE WORKPLANE_CREATE "MTD" SELECTION TOP EDIT PAR SimulationState.ModelLocation "MTD" ACTIVATE WORKPLANE "Main" EDIT MODEL ALL DESELECT ALL ROTATE TRANSFORM TOP EDIT NCPROGRAM PREFERENCES WORKPLANE "Main" EDIT NCPROGRAM PREFERENCES LOCK WORKPLANE ON EDIT NCPROGRAM PREFERENCES MODELLOCATION "MTD" EDIT MODEL ALL DESELECT ALL EDIT MODEL $project.Job_Name SELECT ALL FORM BLOCK EDIT BLOCKTYPE BOX EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "Main" EDIT BLOCK ALL UNLOCK EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET REAL checkblockmin = ROUND($Block.Limits.ZMin, 4) REAL comp = 0 IF $project.FCS_Type == "40mm Riser" { $comp = 1.5748 } ELSEIF $project.FCS_Type == "60mm Riser" { $comp = 2.3622 } ELSEIF $project.FCS_Type == "80mm Riser" { $comp = 3.1496 } ELSEIF $project.FCS_Type == "160mm Riser" { $comp = 6.2992 } IF $project.FCS_Type == "Vise" { } ELSE { } BLOCK CANCEL CALL SaveSession() CALL SetupSheet() FORM BLOCK EDIT BLOCKTYPE BOX EDIT BLOCK LIMITTYPE MODEL EDIT BLOCK COORDINATE NAMED EDIT BLOCK NAMEDWORKPLANE "Main" EDIT BLOCK RESETLIMIT "0" EDIT BLOCK RESET BLOCK ACCEPT EDIT TOOLPATH LEADS RAISEFORM EDIT TOOLPATH SAFEAREA WORKPLANE "Main" EDIT TOOLPATH CONNECTION 'Rapid.CalculateDimensions.RapidClearance' ".6" EDIT TOOLPATH CONNECTION 'Rapid.CalculateDimensions.PlungeClearance' ".1" EDIT TOOLPATH SAFEAREA CALCULATE_DIMENSIONS EDIT TOOLPATH START INCR_PLUNGE Y LEADS ACCEPT EDIT MODEL ALL DESELECT ALL CREATE PATTERN "sessionPrepper" MACRO "Z:\PowerMill\Automation\Arcitecture\Powermill Master Switchboard.mac" DIALOGS MESSAGE ON DIALOGS ERROR ON }