毎日モザイク

indesignの角丸が真ん丸にできないのは有名ですが、パスファインダを使ってきれいな角丸にする有名な手段はしちめんどくさいので作りました。

画像の上がindesignの角オプションでやったもの。下が↓でやったものです。

構文のカラーリングがjs用なのは気にしない方向で

tell application "Adobe InDesign CS5"
	tell document 1
		try
			set ss to object reference of selection
		on error
			display dialog "選択されていません" buttons {"キャンセル"} default button 1
		end try
		set {button returned:btres} to display dialog "上下or左右" buttons {"上下", "左右", "キャンセル"} default button 3
		repeat with s in ss
			set {y, x, yy, xx} to geometric bounds of s
			set {pr1, pr2, ps} to {{y, x, yy, x + yy - y}, {y, xx - (yy - y), yy, xx}, {y, x + ((yy - y) / 2), yy, xx - ((yy - y) / 2)}}
			if btres = "上下" then set {pr1, pr2, ps} to {{y, x, y + xx - x, xx}, {yy - (xx - x), x, yy, xx}, {y + ((xx - x) / 2), x, yy - ((xx - x) / 2), xx}}
			set r1 to duplicate s
			convert shape r1 given convert to oval
			set geometric bounds of r1 to pr1
			set r2 to duplicate s
			convert shape r2 given convert to oval
			set geometric bounds of r2 to pr2
			set geometric bounds of s to ps
			add path s with {r1, r2}
		end repeat
	end tell
end tell

角丸の直径が左右幅を超えると、変なことになります。

角丸が間尺に合ってる範囲内では、最初のアイテムと同じ外形寸法になります。

普通の方法でサイズ変更をすると角丸の半径が変わりますので、一旦、長方形シェイプに戻してからサイズ変更をして、再度角丸にしてください。

applescriptでごめんなさい……。