[Closed] Transfer Skin Data

I want to create a script to transfer skin data between two objects with different vertex and bone data. like skin utility (Export Import Skin Data). This is my first try that works on simple objects, but too slow on complex objects:

fn PrepareModifyPanel Obj Md: =
(
   if selection.count != 1 or selection[1] != Obj do select Obj
   max modify mode
   resumeEditing()
   classof Obj
   if Md != unsupplied and Md != undefined and modPanel.getCurrentObject() != Md do modPanel.setCurrentObject Md
)

fn GetBoneIndex SkinMd Bn = 
(
   if isvalidnode Bn then
   (
      boneNames = for i =1 to (skinOps.GetNumberBones SkinMd) collect (skinOps.GetBoneName SkinMd i 0)
      findItem boneNames Bn.name
   )
   else 0
)

fn GetEffectedVertexes SkinMd BoneId =
(
   Verts = #()
   for v = 1 to skinops.getnumbervertices SkinMd do
   (
      for w = 1 to skinops.getvertexweightcount SkinMd v do
      (
         if skinops.getvertexweightboneid SkinMd v w == BoneId \
         and skinops.getvertexweight SkinMd v w != 0 do append Verts v
      )
   )
   Verts
)

fn CopyPasteSkinData SourceObj: TargetObj: SourceBone: TargetBone: Threshold:20 =
(
   if isvalidnode SourceObj and isvalidnode TargetObj and isvalidnode SourceBone and isvalidnode TargetBone do
   (
      SourceSkinMd = SourceObj.modifiers[#Skin]
      TargetSkinMd = TargetObj.modifiers[#Skin]
      if SourceSkinMd != undefined and TargetSkinMd != undefined do
      (   
         Glb.Fns.PrepareModifyPanel SourceObj Md:SourceSkinMd
         SourceVertCount = skinOps.GetNumberVertices SourceSkinMd
         SourceBoneId = Glb.Fns.GetBoneIndex SourceSkinMd SourceBone
         Verts = Glb.Fns.GetEffectedVertexes SourceSkinMd SourceBoneId
         Poses = #()
         Values = #()
         for i in Verts do
         (
            append Poses (getVert SourceObj.mesh i)
            append Values (skinOps.GetVertexWeight SourceSkinMd i SourceBoneId)
         )
         
         Glb.Fns.PrepareModifyPanel TargetObj Md:TargetSkinMd
         TargetVertCount = skinOps.GetNumberVertices TargetSkinMd
         TargetBoneId = Glb.Fns.GetBoneIndex TargetSkinMd TargetBone
         for i = 1 to Verts.count do
         (
            for j = 1 to TargetVertCount do
            (
               if (distance (getVert TargetObj.mesh j) Poses[i]) <= Threshold do skinOps.setVertexWeights TargetSkinMd j TargetBoneId Values[i]
            )      
         )
      )
   )
)

My question is how we can make this faster? I think bottleneck is here:

         for i = 1 to Verts.count do
         (
            for j = 1 to TargetVertCount do
            (
               if (distance (getVert TargetObj.mesh j) Poses[i]) <= Threshold do skinOps.setVertexWeights TargetSkinMd j TargetBoneId Values[i]
            )      
         )