关于 MAXScript 逐行写入文本

官方帮助文档FileStream Values部分有相关介绍.

fn format_txt filepath filetext =

(

    if doesFileExist filepath == true 

        then

    (

        fin = openfile filepath mode:"r+"

        seek fin #eof

        txt = filetext + "\n"

        format txt to:fin

        close fin

    )

    else

    (

        newfile = createFile filepath

        close newfile

        format_txt filepath filetext

        )

    )  -- 逐行写入文本

format_txt "C:\Users\Administrator\Desktop\2.txt" "你好MAXScript"

每次都会在文档结尾处写入,如果文件不存在则自动创建.