Welding points on mesh (not boundary)

[Xsinode]

I want weld point on one single mesh (share the same position).
I find one old script (WeldMesh v1.1) but script dont work.
Please help

Code: Select all

'----------------------------------------------------------------------
'
'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

[Daniel Brassard]

You are missing the equality sign at the end of the if

It should be

Code: Select all

If Vertice1X = Vertice2X And Vertice1Y = Vertice2Y And Vertice1Z = Vertice2Z Then

This is an old visual basic script tested on XSI 1.5
Surely their is something better today. Did you try to select your object and execute the command modify>polygon >weld point > weld point closer than with a very low threshold like .001

There is even an ICE topo script.

[julius]

did you tried the "filter points" option instead of scripting this ?

[Xsinode]

to Daniel Brassard
Ok. But i have error in 11 line

to julius
Which filter you mean? And what's next? I have mesh with around 10 similar places. If I select all needed pints and use Weild Boundary Points/Edges it's don't work. Sorry for bad english

[Daniel Brassard]

Copy and check the code I posted above.

Dan

[Xsinode]

Daniel Brassard
Ok. I dont know why, but when I use you code i have ERROR in - [line 18] but thanks for help anyway.

to julius
Thanks man i understand you. Just I dont know about Filter Points tool. I'm so stupid sorry...
Softimage great software but not intuitive in some places for me.

[Daniel Brassard]

OK.

Just in case you want to try it again

Code: Select all

'----------------------------------------------------------------------
'
'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

[Xsinode]

BIG Thanks Daniel it working!

[Daniel Brassard]

Cheers!

[julius]

go to model menu-->modify-->poly mesh-->filter points

this filter weld all the points placed on top of each other.

[Xsinode]

julius
Big thanks to you, I'm already find this tool. (see my post above)

[julius]

ok, sorry, didn't understand.
;)