How to make script where applys fn() or script on several selected objects?

Submitted by Nik on Sun, 2014-01-12 12:55

Hi frends!
Forexample is not works:

(
for obj in (selection as array) do
	(
		PolyToolsSelect.NumericEdge false
		obj.EditablePoly.ConvertSelection #Border #Vertex
		obj.weldThreshold = 0.001
		obj.EditablePoly.weldFlaggedVertices ()
		subobjectLevel = 3
	)
)

This script is works only with single object
Please help.
Thanks.

General Scripting

Comments

Submitted by Nik on Tue, 2014-01-14 04:47.

Thanks guys for answers

Submitted by Nik on Mon, 2014-01-13 10:41.

here's the solution

(
for obj in (selection as array) do
	(
                select obj
		PolyToolsSelect.NumericEdge false
		obj.EditablePoly.ConvertSelection #Border #Vertex
		obj.weldThreshold = 0.001
		obj.EditablePoly.weldFlaggedVertices ()
		subobjectLevel = 3
	)
)

Submitted by barigazy on Mon, 2014-01-13 11:12.

...

Do you know that this is "worst case scenario" solution.
Come on man, you can do this better I'm sure. :)

bga

Submitted by barigazy on Mon, 2014-01-13 12:10.

...

Anyway ...

fn weldBorderVerts objs thresh:.001 = if objs.count != 0 do
(
	local moOpenEdges = meshop.getOpenEdges, poOpenEdges = polyop.getOpenEdges
	local moVertByEdge = meshop.getVertsUsingEdge, poVertByEdge = polyop.getVertsUsingEdge
	local moWeldVerts = meshop.weldVertsByThreshold, poWeldVerts = polyop.weldVertsByThreshold
	max create mode
	with redraw off for o in objs do
	(
		case classof o of
		(
			(editable_poly):
			(
				o.weldThreshold = thresh
				if not (edgelist = poOpenEdges o).isEmpty do (poWeldVerts o (poVertByEdge o edgelist))
			)
			(editable_mesh): (if not (edgelist = moOpenEdges o).isEmpty do (moWeldVerts o (moVertByEdge o edgelist) thresh))
		)
	)
)
weldBorderVerts selection

bga

Submitted by miauu on Mon, 2014-01-13 12:37.

.

Now add few more lines for Editable Poly objects, so the weld threshold to be restored when te function finish its job. :)

Tools and Scripts for Autodesk 3dsMax

Submitted by barigazy on Mon, 2014-01-13 12:42.

...

Hey Kostadin, how are you?

bga

Submitted by barigazy on Mon, 2014-01-13 12:51.

...

fn weldBorderVerts objs thresh:.001 = if objs.count != 0 do
(
	local moOpenEdges = meshop.getOpenEdges, poOpenEdges = polyop.getOpenEdges
	local moVertByEdge = meshop.getVertsUsingEdge, poVertByEdge = polyop.getVertsUsingEdge
	local moWeldVerts = meshop.weldVertsByThreshold, poWeldVerts = polyop.weldVertsByThreshold
	max create mode
	with redraw off for o in objs do
	(
		case classof o of
		(
			(editable_poly):
			(
				oldthresh = o.weldThreshold
				o.weldThreshold = thresh
				if not (edgelist = poOpenEdges o).isEmpty do (poWeldVerts o (poVertByEdge o edgelist))
				o.weldThreshold = oldthresh
			)
			(editable_mesh): (if not (edgelist = moOpenEdges o).isEmpty do (moWeldVerts o (moVertByEdge o edgelist) thresh))
		)
	)
)
weldBorderVerts selection

bga

Submitted by miauu on Mon, 2014-01-13 12:49.

Busy. :) I hope you are

Busy. :)
I hope you are well.