Attach mesh objs by name with numbering - Revit Import

Hi

I save this code as a *.ms file and tried to run it as a script but it did not collapse the mesh...what am I doing wrong?

Rueben

Hi

Obviously a newbie question here, but these lines of code/scripts how do I make them work?

I tried to copy the code into the max's "new script" save it out as an *.mcr, then tried and run the script and nothing happens.

Regards Rueben

Hey mate, just got a little error.

Thanks for your help, really appreciated!
Stan

ah, true, it did not work for names with spaces
this one should work for all kind of names:

(
	local basenames = #()
	local filterN = " ["
	for o in geometry do (
		a = filterstring o.name filterN
		if a.count > 1 then appendifunique basenames a[1]
	)

	for n in basenames do (
		a = (execute("$'"+n+"*'")) as array
		if a.count > 1 and classof a[1] == Editable_Mesh then (
			a[1].name = (filterstring a[1].name filterN)[1]
			for i = 2 to a.count do attach a[1] a[i]
			)
	)
)

Cheers mate, seems to work, although it eats up my ram :-)

wow, did you try to save and open it again ?
if yes, and still the same ram usage than maybe new objects are to heavy

if was caused by operations in script you can try to use just: gc()

or

(
	local basenames = #()
	local filterN = " ["
	for o in geometry do (
		a = filterstring o.name filterN
		if a.count > 1 then appendifunique basenames a[1]
	)

	for n in basenames do (
		local a = (execute("$'"+n+"*'")) as array
		if a.count > 1 and classof a[1] == Editable_Mesh then (
			a[1].name = (filterstring a[1].name filterN)[1]
			for i = 2 to a.count do attach a[1] a[i]
			)
		a = undefined
		free a
		gc()
	)
	basenames = undefined
	free basenames
	gc()
)

Linear attach will be versy slow. This thread can be used to improve the attach algorythm and to speed up the time for attaching.

Hey guys,
I'm facing the same issue again.
Got a scene with 150k objects and only 450k poly but ram goes through the roof and crashs max.

Any help would be appreciated.

Thanks
Stan

hi, try this one:

(
	local basenames = #()
	local filterN = " ["
	for o in geometry do (
		a = filterstring o.name filterN
		if a.count > 1 then appendifunique basenames a[1]
	)

	for n in basenames do (
		local str = stringStream ""
		format "a = $%*" n to:str
		execute (str as string)
		a = a as array
		if a.count > 1 then (
			a[1].name = (filterstring a[1].name filterN)[1]
			for i = 2 to a.count do attach a[1] a[i]
			)
	)
)

Hi

I save this code as a *.ms file and tried to run it as a script but it did not collapse the mesh...what am I doing wrong?

Rueben