オブジェクト位置ファイル出力

-- *****************************************************************
--      選択したオブジェクトの位置を出力するユーティリティ
--
--      Coded By Yoshiaki Tanaka
-- *****************************************************************
utility ObjPos "ｵﾌﾞｼﾞｪｸﾄ位置出力"
(
--
-- ユーザーインターフェース定義
--
    spinner keisuspin "拡縮倍率" range:[0.001,1000,0.1]
    edittext outfile text:"C:\TESTFILE.TXT" enabled:on
    button do_listup "出力" width:160 height:30

--
-- アクション定義
--
    on do_listup pressed do             -- 出力ボタン --
    (
        Local  ostr

        if selection.count < 1  then
        (
            messagebox "オブジェクトを選択してください。" Title:"Operation Error"
        )
        else
        (
            ostr = createFile( outfile.text )
            if ostr != undefined then 
            ( 
                for i in selection do
                (
                    tpos = i.pos * keisuspin.value
                    eang = i.rotation as eulerAngles

                    format "%\n"i.name                  to:ostr
                    format "          X = %\n" tpos.x   to:ostr
                    format "          Y = %\n" tpos.y   to:ostr
                    format "          Z = %\n" tpos.z   to:ostr

                    format "          RX = %\n" eang.x  to:ostr
                    format "          RY = %\n" eang.y  to:ostr
                    format "          RZ = %\n" eang.z  to:ostr

                )
                close ostr
                messagebox "ファイルに出力しました。" Title:"Attention"
            )
            else
            (
                messagebox "ファイルが書きこめません。" Title:"File Error"
            )
        )
    )
)