RenameBlock

Renames an existing block definition.

Rhino.RenameBlock (strOldBlock, strNewBlock)

strOldBlock	Required. String. The name or identifier of an existing block definition.
strNewBlock	Required. String. The new block definition name.

String	The new block definition name if successful.
Null	If not successful, or on error.

Dim strOldBlock, strNewBlock

strOldBlock = Rhino.GetString("Old block name")

If Not IsNull(strOldBlock) Then

strNewBlock = Rhino.GetString("New block name")

If Not IsNull(strNewBlock) Then

Rhino.RenameBlock strOldBlock, strNewBlock

End If