🚀 go-pugleaf

So I whipped this up quick and it works nice, I think it does what I need it to, and will delete extra points from the shape.

tell application "InDesign 2.0.2"
	set mySelection to selection
	set myBounds to geometric bounds of selection
	set myTop to item 1 of myBounds
	set myLeft to item 2 of myBounds
	set myBot to item 3 of myBounds
	set myRight to item 4 of myBounds

	set myPath to path 1 of item 1 of mySelection
	set myPoints to count of path points of myPath

	set anchor of path point 1 of myPath to {myLeft, myTop}
	set point type of path point 1 of myPath to corner
	set left direction of path point 1 of myPath to {myLeft, myTop}
	set right direction of path point 1 of myPath to {myLeft, myTop}

	set anchor of path point 2 of myPath to {myLeft, myBot}
	set point type of path point 2 of myPath to corner
	set left direction of path point 2 of myPath to {myLeft, myBot}
	set right direction of path point 2 of myPath to {myLeft, myBot}

	set anchor of path point 3 of myPath to {myRight, myBot}
	set point type of path point 3 of myPath to corner
	set left direction of path point 3 of myPath to {myRight, myBot}
	set right direction of path point 3 of myPath to {myRight, myBot}

	set anchor of path point 4 of myPath to {myRight, myTop}
	set point type of path point 4 of myPath to corner
	set left direction of path point 4 of myPath to {myRight, myTop}
	set right direction of path point 4 of myPath to {myRight, myTop}

	repeat (myPoints - 4) times
		delete path point 5 of myPath
	end repeat

end tell

Chris