// Change or Init Pivot Point 0.1
// PivotPositionを単一頂点座標値/複数頂点のBoundingBox中央/ゼロにする。

@name "ChangeInitPivotPoint"
@version 2.5
@warnings
@script modeler

main
{
	selmode(DIRECT);
	var SelPts = pointcount();
// 90/92/93 はpoint/poly countでUndoバッファを消費する
@if version < 2.2
	undo();
@end
@if version > 2.7
	undo();
@end

	if(!SelPts){
		setpivot(<0.0,0.0,0.0>);
		info("<br> Changed Pivot <0.0, 0.0, 0.0>");
		return;
	}else{
		var Vec;
		selmode(USER);
		editbegin();
		if(SelPts == 1) Vec = pointinfo(points[1]);
		else Vec = center(boundingbox());
		editend();
// 90/92/93 は変化の無いeditbegin/endでもUndoバッファを消費する
@if version < 2.2
		undo();
@end
@if version > 2.7
		undo();
@end
		setpivot(Vec);
		info("<br> Changed Pivot ", Vec);
	}
}