topic HELP MACRO in PowerMill Forum

HELP MACRO

XsR_L — Sun, 15 Oct 2023 12:55:49 GMT

Hello everyone, have a nice day,
I have a problem to solve,

Change toolpath segment start and end values
I tried many ways but couldn't solve it so please help me solve this problem

Thanks in advance..

Take care and have a nice day!

int c=toolpath_component_count(toolpath, 'segments')
FORM TPLIST
int RR=$C
STRING LIST TPList=extract(folder('toolpath'),'name')
STRING ActiTH=basename(pathname('Toolpath',name))
Bool swapped = 1
INT Idx=0
INT i1=SIZE(TPList)
IF ActiTH!="" {
WHILE i1>0 AND swapped {
$swapped=0
IF TPList[Idx]==ActiTH {
$swapped=0
$Idx=Idx+1
IF Idx==i1 {
ACTIVATE TOOLPATH $TPList[0]
} ELSE {
ACTIVATE TOOLPATH $TPList[Idx]
}
} ELSE {
$swapped=1
}
$Idx=Idx+1
}
} ELSE {
ACTIVATE TOOLPATH $TPList[0]
}

FORM TPLIST
EDIT TPSELECT ; TPLIST UPDATE
0 NEW
int i=1
while i<RR {
EDIT TPSELECT ; TPLIST UPDATE
$i TOGGLE
$i=i+1
}
TPLIST ACCEPT
DIALOGS MESSAGE ON
DIALOGS ERROR ON

Version 2016

Betreff: HELP MACRO

icse — Mon, 16 Oct 2023 07:07:06 GMT

I dont get it,

how do you whant the toolpath to be reordered?

Betreff: HELP MACRO

XsR_L — Tue, 17 Oct 2023 01:53:52 GMT

Select the tool path in advance as a reference

Betreff: HELP MACRO

icse — Tue, 17 Oct 2023 08:57:55 GMT

i still dont get it...

Do you try to invert the current selection?

Wich toolpaths you want to select?

can you add some screenshots(before/after)

Betreff: HELP MACRO

icse — Tue, 24 Oct 2023 07:35:10 GMT

Does this work for you?

entity $tpA = input entity toolpath 'Select Toolpath A' if $tpA.Computed == 0 { return } entity $tpB = input entity toolpath 'Select Toolpath B' if $tpB.Computed == 0 { return } activate toolpath ${tpA.Name} FORM TPLIST int $segmentIndex = segments($tpA) string list $startAndEndPoint = {} while $segmentIndex > 0 { $segmentIndex = $segmentIndex - 1 int $i = add_last($startAndEndPoint, list_cell_value('TPList.TPListView', $segmentIndex, 1)+list_cell_value('TPList.TPListView', $segmentIndex, 2)) } activate toolpath ${tpB.Name} $segmentIndex = segments($tpB) while $segmentIndex > 0 { $segmentIndex = $segmentIndex - 1 if member($startAndEndPoint,list_cell_value('TPList.TPListView', $segmentIndex, 1)+list_cell_value('TPList.TPListView', $segmentIndex, 2)) { EDIT TPSELECT ; TPLIST UPDATE\r ${segmentIndex} TOGGLE } }