Point2Pivot

LScript支援プラグインで、LScriptではピボット設定が出来ないような事を書いたけど、setpivotというコマンドがありました

/**************************************

選択されたポイントをピボットに設定する
モデラースクリプト

***************************************/

@script modeler
@name Point2Pivot
@version 2.3

main
{
 selmode(USER);
 nPnt = editbegin();
 if( 0 == nPnt ) return;
 piv = pointinfo(points[1]);
 editend();
 
//*
 reqbegin("Point2Pivot");
 c1 = ctlvector("NewPivot", piv);
 return if !reqpost();
 piv = getvalue(c1);
 reqend();
 //*/
 setpivot(piv);
}