# 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. . . .

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