'----------------------------------------------------------------------
'
'WeldMesh v1.1 / André Adam
'
'Welds all points that share the same position on a polymesh object.
'
'----------------------------------------------------------------------
Set oSelection = Selection
If oSelection.Count = 1 Then
If oSelection(0).Type = "polymsh" Then
Do
Found = False
oVertices = oSelection(0).ActivePrimitive.Geometry.Points.PositionArray
i = 0
While (i < UBound(oVertices, 2)) And Not Found
Vertice1X = Round(oVertices(0, i), 3)
Vertice1Y = Round(oVertices(1, i), 3)
Vertice1Z = Round(oVertices(2, i), 3) j = i + 1 While (j < UBound(oVertices, 2)) And Not Found Vertice2X = Round(oVertices(0, j), 3)
Vertice2Y = Round(oVertices(1, j), 3)
Vertice2Z = Round(oVertices(2, j), 3)
If Vertice1X = Vertice2X And Vertice1Y = Vertice2Y And Vertice1Z 
Vertice2Z Then
ApplyTopoOp "WeldPoints", oSelection(0) & ".pnt[" & i & ", " & j &
"]"
Found = True
End If
j = j + 1
Wend
i = i + 1
Wend
Loop While Found
Else
LogMessage "Wrong Selection", siError
End If
Else
LogMessage "Wrong Selection", siError
End If