// Merge Points No Requester 0.1
// 始点にMerge, weldのmerge版

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

main
{
// undogroupbegin()〜undogroupend()で括った範囲がUndo1回分になるようになる。
// とか、そんな感じだったはず。非公式無保証コマンド。9対策の最後の手段と思うべし
@if version < 2.2
	undogroupbegin();
@end
@if version > 2.7
	undogroupbegin();
@end

	selmode(DIRECT);
	var SelPts = pointcount();
// 90/92/93 はpoint/poly countでUndoバッファを消費する

	if(SelPts < 2){
@if version < 2.2
		undogroupend();
@end
@if version > 2.7
		undogroupend();
@end
		error("<br> Need 2 pts or More");
		return;
	}
	selmode(USER);
	editbegin();
	var SrcVec = pointinfo(points[1]);
	for(i = 2; i <= SelPts; i++) pointmove(points[i], SrcVec);
	editend();
	mergepoints();

@if version < 2.2
	undogroupend();
@end
@if version > 2.7
	undogroupend();
@end
}