Offset each segments boundary in PowerMILL 2015

[hx]

At PowerMILL 2015.

I Wrote an macro file to offset each segments boundary for 2 mm.

The macor commands are:

STRING $Active_Boundary = Boundary.Name
INT $NO_OF_SEGMENTS = SEGMENTS(Boundary)

INT $Select_Segment = 0

DO {

EDIT BOUNDARY ; DESELECT ALL
EDIT BOUNDARY ; SELECT $Select_Segment
EDIT BOUNDARY ; CURVEEDITOR START
CURVEEDITOR MODE OFFSET
MODE TRANSFORM OFFSET DISTANCE 2
CURVEEDITOR FINISH ACCEPT
EDIT BOUNDARY ; DESELECT ALL

$Select_Segment = $Select_Segment+1

} WHILE $Select_Segment < $NO_OF_SEGMENTS

But when I run the macro file, the problem is not do loop for each segments boundary. only two esgments. just like the image show.

when the $Select_Segment > 2 , the selected one is the arrow points to the line segment.

How can I fixed this macro?

[hx]

Upload the project files and macro.

[kukelyk · Accepted solution]

Try this:

STRING $Active_Boundary = Boundary.Name
INT $NO_OF_SEGMENTS = SEGMENTS(Boundary)
INT $Select_Segment = 0
EDIT BOUNDARY ; CURVEEDITOR START
DO {
EDIT BOUNDARY ; DESELECT ALL
EDIT BOUNDARY ; SELECT 0

CURVEEDITOR MODE OFFSET
MODE TRANSFORM OFFSET DISTANCE 2
EDIT BOUNDARY ; DESELECT ALL 

$Select_Segment = $Select_Segment+1
} WHILE $Select_Segment < $NO_OF_SEGMENTS
CURVEEDITOR FINISH ACCEPT

The new offset curve will be the last..

[hx]

Perfect. thanks.