topic Re: Macro Help - Foreach segment in a pattern in PowerMill Forum

Macro Help - Foreach segment in a pattern

jake.montgomery — Mon, 16 Oct 2017 13:21:05 GMT

Hello,

Does anyone know how to achieve a foreach loop for segments within a pattern? I am trying to analyze each segment inside one of my patterns and remove the segment if it doesn't meet my criteria.

Thank you all in advance for any assistance

Re: Macro Help - Foreach segment in a pattern

kukelyk — Mon, 16 Oct 2017 13:22:26 GMT

See this

Re: Macro Help - Foreach segment in a pattern

jake.montgomery — Mon, 16 Oct 2017 13:29:14 GMT

Thank you very much! That will work perfectly

Re: Macro Help - Foreach segment in a pattern

robert.reedHH7Q9 — Mon, 09 Aug 2021 21:15:41 GMT

Is there an updated version of this link? I'm trying to do a similar task and believe this might help me out.

Re: Macro Help - Foreach segment in a pattern

kukelyk — Tue, 10 Aug 2021 06:13:21 GMT

Hi,

I do not remember what was under the link, but please write what is Your goal.

Re: Macro Help - Foreach segment in a pattern

cfastNJWK6 — Tue, 10 Aug 2021 11:53:40 GMT

This isn't exactly what you were asking for, but here is a macro that I wrote for someone wanting to analyze a pattern to find the smallest rad. You may be able to take some of the logic here and re-purpose it:

ENTITY $pat = INPUT ENTITY PATTERN "Select the Pattern to Analyze" DIALOGS MESSAGE OFF EDIT PATTERN $pat.Name SELECT ALL EDIT PATTERN $pat.Name SPLIT INT $Segments = segments($pat) INT $counter = 0 REAL $rad = 0 EDIT PATTERN $pat.Name CURVEEDITOR START REAL $SmallestArc = 9999999 WHILE $counter < $Segments { EDIT PATTERN $pat.Name DESELECT ALL CURVEEDITOR MODE DEFAULT CURVEEDITOR SELECT SINGLE_SEGMENT $counter CURVEEDITOR ARC_EDIT MODIFY REAL $arc = 0 $arc = $widget("CEArcEditor.Dimension").value IF $arc != 0 AND $arc < $SmallestArc { $SmallestArc = $arc } $counter = $counter +1 } CURVEEDITOR FINISH ACCEPT EDIT PATTERN $pat.Name SELECT ALL EDIT PATTERN $pat.Name MERGE DIALOGS MESSAGE ON STRING $msg = "Smallest radius = " + $SmallestArc MESSAGE INFO $msg

Re: Macro Help - Foreach segment in a pattern

robert.reedHH7Q9 — Wed, 11 Aug 2021 04:11:11 GMT

I was trying to get the longest line in a pattern. I was able to piece something together to accomplish that. You post some very impressive code though, so I would still be interested if you have something for that purpose.

Re: Macro Help - Foreach segment in a pattern

kukelyk — Wed, 11 Aug 2021 08:59:38 GMT

May the newer Pmills have easier way, but try this one:

EDIT PATTERN ; DESELECT ALL EDIT BLOCK LIMITTYPE PATTERN EDIT BLOCK RESETLIMIT "10" EDIT BLOCK RESET CREATE TOOL ; BALLNOSED COMMIT PATTERN ; ENTITY tp = ENTITY('toolpath','') INT i = 0 REAL LIST segLenLst = {} DO { INT k = add_last($segLenLst, segment_get_length( $tp, $i)) $i = $i + 1 } WHILE $i < toolpath_component_count($tp, 'segments' ) DELETE TOOLPATH ; DELETE TOOL ; REAL lim = MAX($segLenLst)-0.01 EDIT PATTERN ; SELECT LENGTH LT $lim EDIT PATTERN ; SELECT INVERT MESSAGE INFO STRING(MAX($segLenLst))

Re: Macro Help - Foreach segment in a pattern

robert.reedHH7Q9 — Wed, 11 Aug 2021 19:10:51 GMT

I'll give that one a shot. This is what I ended up with.

CREATE PATTERN ;
RENAME PATTERN # "PROFILE_BOUNDARY"
EDIT PATTERN "PROFILE_BOUNDARY" INSERT BOUNDARY ;
DEACTIVATE Boundary

REAL $ProfileLength = 0.0
INT $Rows = segments(entity('pattern', ''))
if ($Rows > 1) {
EDIT PATTERN "PROFILE_BOUNDARY" CURVEEDITOR START
CURVEEDITOR MODE REORDER
INT $Row = 0
WHILE $Row < $Rows {
STRING $SegLengthStr = list_cell_value('CEReorderSegments.CEListView',$Row,3)
REAL $SegLength = $SegLengthStr
IF ($Seglength > $ProfileLength) {
$ProfileLength = $Seglength
}
$Row = ($Row + 1)
}
CURVEEDITOR MODE DEFAULT
CURVEEDITOR FINISH ACCEPT
$ProfileLength = ($ProfileLength-.01)
EDIT PATTERN "PROFILE_BOUNDARY" SELECT LENGTH LT
$ProfileLength
DELETE PATTERN "PROFILE_BOUNDARY" SELECTED
}

Re: Macro Help - Foreach segment in a pattern

robert.reedHH7Q9 — Wed, 11 Aug 2021 23:42:49 GMT

Actually, I needed that one too. I just figured that would be harder to find. Thank you a whole lot man. It works perfect.