HELP PROBLEM

arnoldiW3K8A — Tue, 13 Jun 2023 09:50:09 GMT

Hello everyone,

i have a problem with a macro

FUNCTION MAIN() {

PROJECT RESET No

DELETE NCPROGRAM ALL

IMPORT TEMPLATE PROJECT FILEOPEN "V:\3D\PowerMILL\Cuori\Standard\COMPLETO TEMPLATE\BASE CUORE.ptf"

IMPORT TEMPLATE PROJECT FILEOPEN "V:\3D\PowerMILL\Cuori\Template\Moras\PP_MD.ptf"

IMPORT TEMPLATE PROJECT FILEOPEN "V:\3D\PowerMILL\UTENSILI\TOOL.ptf"

GRAPHICS LOCK

FOREACH TP IN folder("TOOLPATH") {

STRING $TPNAME = TP.NAME

ACTIVATE TOOLPATH $TPNAME

CALL ASSIGN_TOOL($TPNAME)

EDIT TOOLPATH $TPNAME REAPPLYFROMGUI Yes

DEACTIVATE TOOLPATH

DEACTIVATE TOOL

DEACTIVATE FOLDER

DEACTIVATE PATTERN

DEACTIVATE FeatureGroup

DEACTIVATE FEATURESET

DEACTIVATE WORKPLANE

DEACTIVATE BOUNDARY

}

CREATE STOCKMODEL ; FORM STOCKMODEL

RENAME STOCKMODEL # "MODELLO"

EDIT STOCKMODEL "MODELLO" REAPPLYFROMGUI

}

FUNCTION ASSIGN_TOOL(STRING $TPNAME) {

IF $TPNAME == "N1" {

ACTIVATE TOOL "T397 Torica D40,0 R2,0 H80,0"

} ELSEIF $TPNAME == "F.E. D12" {

ACTIVATE TOOL "T887 Torica D12 R1 H80"

} ELSEIF $TPNAME == "F.E. D16" {

ACTIVATE TOOL "T888 Torica D16 R1 H100"

} ELSEIF $TPNAME == "FIN PIANI" {

ACTIVATE TOOL "T422 Torica D16,0 R2,0 H70,0"

} ELSEIF $TPNAME == "FIN SMS" {

ACTIVATE TOOL "T422 Torica D16,0 R2,0 H70,0"

} ELSEIF $TPNAME == "CENTRINO D6" {

ACTIVATE TOOL "T219 Punta D6,0 H95,0"

} ELSEIF $TPNAME == "SCRITTA" {

ACTIVATE TOOL "T369 Conica Toroidale D13,0 H65,0"

} ELSEIF $TPNAME == "SPIANATURA D32" {

ACTIVATE TOOL "T854 Torica D32,0 R1,0 H75,0"

} ELSEIF $TPNAME == "SPIANATURA D50" {

ACTIVATE TOOL "T858 Torica D50,0 R1,0 H100,0"

} ELSEIF $TPNAME == "FIN BATTUTA 16" {

ACTIVATE TOOL "T883 Piana D16,0 H45,0"

} ELSEIF $TPNAME == "CENTRINO PUNTINA" {

ACTIVATE TOOL "T202 Punta D2,5 H52,0"

} ELSEIF $TPNAME == "PUNTINA D2" {

ACTIVATE TOOL "T211 Punta D2,0 H70,0"

} ELSEIF $TPNAME == "PUNTINA D2.5" {

ACTIVATE TOOL "T212 Punta D2,5 H70,0"

} ELSEIF $TPNAME == "PUNTINA D3" {

ACTIVATE TOOL "T213 Punta D3,0 H70,0"

} ELSEIF $TPNAME == "SCRITTA_P" {

ACTIVATE TOOL "T691 Conica Toroidale D15,0 H65,0"

} ELSEIF $TPNAME == "CHIUSURA" {

ACTIVATE TOOL "T979 Piana D10,0 H36,0 Chiusura"

} ELSE {

ACTIVATE TOOL " "

}

in this way it works without problem, but i want understand why with the switch/case/breack mode it gives me problem.

FUNCTION MAIN() {

PROJECT RESET No

DELETE NCPROGRAM ALL

IMPORT TEMPLATE PROJECT FILEOPEN "V:\3D\PowerMILL\Cuori\Standard\COMPLETO TEMPLATE\BASE CUORE.ptf"

IMPORT TEMPLATE PROJECT FILEOPEN "V:\3D\PowerMILL\Cuori\Template\Moras\PP_MD.ptf"

IMPORT TEMPLATE PROJECT FILEOPEN "V:\3D\PowerMILL\UTENSILI\TOOL.ptf"

GRAPHICS LOCK

FOREACH TP IN folder("TOOLPATH") {

STRING $TPNAME = TP.NAME

ACTIVATE TOOLPATH $TPNAME

CALL ASSIGN_TOOL($TPNAME)

EDIT TOOLPATH $TPNAME REAPPLYFROMGUI Yes

DEACTIVATE TOOLPATH

DEACTIVATE TOOL

DEACTIVATE FOLDER

DEACTIVATE PATTERN

DEACTIVATE FeatureGroup

DEACTIVATE FEATURESET

DEACTIVATE WORKPLANE

DEACTIVATE BOUNDARY

}

CREATE STOCKMODEL ; FORM STOCKMODEL

RENAME STOCKMODEL # "MODELLO"

EDIT STOCKMODEL "MODELLO" REAPPLYFROMGUI

}

FUNCTION ASSIGN_TOOL(STRING $TPNAME) {

SWITCH $TPNAME {

CASE "N1"

ACTIVATE TOOL "T397 Torica D40,0 R2,0 H80,0"

BREAK

CASE "F.E. D12"

ACTIVATE TOOL "T887 Torica D12 R1 H80"

BREAK

CASE "F.E. D16"

ACTIVATE TOOL "T888 Torica D16 R1 H100"

BREAK

CASE "FIN PIANI"

ACTIVATE TOOL "T422 Torica D16,0 R2,0 H70,0"

BREAK

CASE "FIN SMS"

ACTIVATE TOOL "T422 Torica D16,0 R2,0 H70,0"

BREAK

CASE "CENTRINO D6"

ACTIVATE TOOL "T219 Punta D6,0 H95,0"

BREAK

CASE "SCRITTA"

ACTIVATE TOOL "T369 Conica Toroidale D13,0 H65,0"

BREAK

CASE "SPIANATURA D32"

ACTIVATE TOOL "T854 Torica D32,0 R1,0 H75,0"

BREAK

CASE "SPIANATURA D50"

ACTIVATE TOOL "T858 Torica D50,0 R1,0 H100,0"

BREAK

CASE "FIN BATTUTA 16"

ACTIVATE TOOL "T883 Piana D16,0 H45,0"

BREAK

CASE "CENTRINO PUNTINA"

ACTIVATE TOOL "T202 Punta D2,5 H52,0"

BREAK

CASE "PUNTINA D2"

ACTIVATE TOOL "T211 Punta D2,0 H70,0"

BREAK

CASE "PUNTINA D2.5"

ACTIVATE TOOL "T212 Punta D2,5 H70,0"

BREAK

CASE "PUNTINA D3"

ACTIVATE TOOL "T213 Punta D3,0 H70,0"

BREAK

CASE "SCRITTA_P"

ACTIVATE TOOL "T691 Conica Toroidale D15,0 H65,0"

BREAK

CASE "CHIUSURA"

ACTIVATE TOOL "T979 Piana D10,0 H36,0 Chiusura"

BREAK

DEFAULT

ACTIVATE TOOL " "

BREAK

}

the second is the not working way.

Thanks for helping me,

Davide

Re: HELP PROBLEM

kevin.hammond3WX4X — Tue, 13 Jun 2023 10:31:40 GMT

I have only used Switch with case as real numbers and the value is not in "" quote marks, eg

SWITCH (ROUND(block.diameter, 2)) {
CASE 8.15
$cutterType = "08"
BREAK
CASE 11.32
$cutterType = "11"
BREAK
CASE 13.60
$cutterType = "13"
BREAK
CASE 16.26
$cutterType = "16"
BREAK
CASE 19.25
$cutterType = "19"
BREAK
DEFAULT
BREAK
}

Not sure how you string would behave with out "" marks as there are gaps in the names and Pmill has been known to not like gaps in names & strings.

so try without quotes, if that does not work try editing case names to remove gaps perhaps by adding (_)underscores in gaps

Re: HELP PROBLEM

arnoldiW3K8A — Tue, 13 Jun 2023 11:37:51 GMT

hello @kevin.hammond3WX4X i need to use a string tipe as variable assign to the case

CASE "AAAAA"

and with it it seems it doesn't works

Re: HELP PROBLEM

kevin.hammond3WX4X — Tue, 13 Jun 2023 12:55:46 GMT

have you tried CASE AAAAA in place of "AAAAA"?

Re: HELP PROBLEM

arnoldiW3K8A — Thu, 15 Jun 2023 09:43:07 GMT

SAME PROBLEM

Re: HELP PROBLEM

kevin.hammond3WX4X — Fri, 16 Jun 2023 06:42:08 GMT

Hi,

I have created a little test using your macro, as suggested in my first reply the issue is with the gaps in the name strings.

F.E. D12 - not permitted

F.E._D12 - permitted

You may either have to stick with your "If" version or reconsider your naming convention to remove whitespaces

Hope this helps

Kevin

Re: HELP PROBLEM

arnoldiW3K8A — Mon, 19 Jun 2023 05:52:50 GMT

Hello @kevin.hammond3WX4X

i used your solution, but without modifing my already created toolpath name, but with the function "sanitize" that convert the space and the point in "_"

thanks for your help

topic Re: HELP PROBLEM in PowerMill Forum

HELP PROBLEM

Re: HELP PROBLEM

Re: HELP PROBLEM

Re: HELP PROBLEM

Re: HELP PROBLEM

Re: HELP PROBLEM

Re: HELP PROBLEM