Is there a way to embedd all used blocks at once?

Hi guys, we have a modell with a lot of linked blocks. For client presentations I need the file to go.
Is there a way to embedd all of them at once. How can I make a TOGO file with all the blocks wich are scattert throughout our Server. Thanks Guys . . . Oliver

Here try this it’s python script I wrote a while back.

Here is a RhinoScript version that should do the trick:

Option Explicit
    
Call Main()
Sub Main()

	Dim arrBlocks : arrBlocks = Rhino.BlockNames()
	
	If isnull(arrBlocks) Then Exit Sub
	Call Rhino.EnableRedraw(False)
	Dim i
	Call Rhino.StatusBarProgressMeter("Processing...", 0, Ubound(arrBlocks), True, True)
	For i=0 To Ubound(arrBlocks)
		Call Rhino.Command("-_BlockManager _Properties " & chr(34) & arrBlocks(i) & chr(34) & " _UpdateType _Embedded _EnterEnd", False)
		Call Rhino.StatusBarProgressMeter(i)
	Next
	
	Call Rhino.StatusBarProgressMeter()
	Call Rhino.EnableRedraw(True)	
	
End Sub

Hi guys, thank you for the script.

How do I use it. I pasted it into a commend Button and tried to run in the macro editor. It doesnt work. Sorry scripting is not my thing. . . .

Thanks for your help.

For occasional use, you can run it directly from the script editor - type EditScript, then Open, then browse to the script and hit the “run” button.

For more frequent use:

Use an alias -
Put the script file somewhere you know the full file path, then create an alias:
_-RunScript Drive:\path\to\script\scriptname.rvb

-or-

Create a toolbar button -
Make a new toolbar button, then in the macro area, insert the following:

_NoEcho _-RunScript (
<copy and paste the entire script above here>
)

great, works fine

Thank you