スクリプト関連/5

sugiです。
点の座標を求めるのに EvaluatePt コマンドを使いますが、

・0付近で指数表示になることがある。
・"."と","が見づらい。
・桁数が指定できない。

といったところが気になってました。
そこで、点座標を表示させるスクリプトを作ってみました。

 桁数は keta=3 の行で変更することができます。
プラスの値だと強制的に指定桁数で表示されますが、マイナスの値
を入力すると、小数点以下の"0"が省略されます。
例: keta=3  の場合 15.000
    keta=-3 の場合 15

ドキュメントのプロパティのエイリアスで
noecho _-loadscript 点座標.rvb
と設定するなどして使ってみてください。

 --- 点座標.rvb cut here ---
On error resume next

Dim pt1,pt2,msg,keta

keta=3

pt1=Rhino.GetPoint("測定する点")
pt2=Rhino.XformWorldToCPlane (pt1, Rhino.ViewCPlane)

if keta<=0 then
  for i = 0 To 2
    pt1(i)=round(pt1(i),-keta)
    pt2(i)=round(pt2(i),-keta)
  next
else
  for i = 0 To 2
    pt1(i)=FormatNumber(pt1(i),keta)
    pt2(i)=FormatNumber(pt2(i),keta)
  next
end  if

msg="ﾜｰﾙﾄﾞ座標   X=" & pt1(0) &_
  "  Y=" & pt1(1) & "  Z=" & pt1(2) &_
  "  作業平面座標   X=" & pt2(0) &_
  "  Y=" & pt2(1) & "  Z=" & pt2(2) 

Rhino.print msg
 --- 点座標.rvb cut here ---