text - maxscript衝突を検出してテキストに書き込む方法

Question

まず、私は Maxscript の初心者です。特定のオブジェクトの衝突検出用のスクリプトを見てきました。オブジェクトを txt ファイルに書き込みたいと考えています。たとえば、Cylinder001 と衝突する「Prism*」という名前のすべてのオブジェクトを赤色にしてテキスト ファイルに書き込みたいと考えています。私はコードを試みました。

     fn collisionDetection node1 node2 =
     (
      if intersects node1 node2 then 
     (node1.mesh * node2.mesh).numverts > 0
     else
     false
     )

    dir =getFilenamePath (getThisScriptFilename())
    makeDir  dir
   OutputTextFile = dir + "Output.txt"
   if (doesFileExist OutputTextFile) do deleteFile OutputTextFile 
  filestreamvar = openFile OutputTextFile mode:"w"
     if  filestreamvar == undefined do 
    (
createFile OutputTextFile
filestreamvar = openFile OutputTextFile mode:"w"

        myObjects = $'Prim*' as array

        for i = 1 to myObjects.count do
        (
            nam = myObjects[i].name
      if collisionDetection $myobject[i] $'Cylinder001' do 
   (    
print myobjects[i] to:filestreamvar
            )
    )   
    edit OutputTextFile
   close filestreamvar

すでにテキストファイルの出力に苦労しているため、オブジェクトを色付けするためのコードを追加していません。誰か助けてくれませんか？ありがとうございました。