topic Anonymous block replace or rename with a named block? in VBA Forum

Anonymous block replace or rename with a named block?

mdhutchinson — Mon, 12 May 2008 15:08:37 GMT

I have an application that uses a named block which the user has previously inserted. For purposes of discussion, lets call it "MyNamedBlock". Accross multiple erection drawings within a given project there might be a thousand or more of these.
When the application is ran on the drawings these named block references are converted to an anonymous block definition using ConvertToAnonymousBlock method.
This works great for my purposes.

I would like to now create some code that would convert these anonymous block references back to the named block "MyNamedBlock" definition.

How might I do this?

Re: Anonymous block replace or rename with a named block?

Anonymous — Wed, 14 May 2008 12:02:50 GMT

This may be helpful
http://www.draftsperson.net/index.php?title=Anonymous_Blocks_in_AutoCAD

http://mechcad-insider.blogspot.com/

Re: Anonymous block replace or rename with a named block?

mdhutchinson — Wed, 14 May 2008 12:59:27 GMT

I looked at this and found that the manual method described no longer works. (2007)
... however, the lisp routine does...
I may decide to convert it to VBA

... any way... thanks!
that's two for two.

Re: Anonymous block replace or rename with a named block?

Anonymous — Wed, 16 Sep 2009 17:44:39 GMT

i need the same functionality.. to convert an *U block to a block i can rename. I went to draftsperson.net and used the unanon.lsp 2007. It did work. but it also created an error.. everytime i audit the drawing. i get the following:

Extension dictionary 2DB2D Not this object Set to this
AcDbAttributeDefinition(3335A)
Extension dictionary 2DB32 Not this object Set to this
AcDbAttributeDefinition(3335B)
Extension dictionary 2DB37 Not this object Set to this
AcDbMText(33378)
Extension dictionary 2DB90 Not this object Set to this
AcDbAttributeDefinition(3338B)
Extension dictionary 2DBC7 Not this object Set to this
AcDbAttributeDefinition(3338C)
Extension dictionary 2DBCC Not this object Set to this
AcDbAttributeDefinition(3338D)
Extension dictionary 2DBD1 Not this object Set to this
Pass 2 5800 objects auditedAcDbAttributeDefinition(3338E)
Extension dictionary 2DBD6 Not this object Set to this
AcDbAttributeDefinition(3338F)
Extension dictionary 2DBDB Not this object Set to this
AcDbMText(333C6)
Extension dictionary 2DC62 Not this object Set to this
AcDbMText(333C7)
Extension dictionary 2DC6A Not this object Set to this
AcDbAttributeDefinition(333C8)
Extension dictionary 2DC72 Not this object Set to this
AcDbAttributeDefinition(333C9)
Extension dictionary 2DC77 Not this object Set to this
AcDbAttributeDefinition(333CA)
Extension dictionary 2DC7C Not this object Set to this

Does anyone know how to update the lisp for it to work proper on 2008??

Lisp is attached..

thx

Re: Anonymous block replace or rename with a named block?

Anonymous — Tue, 24 Apr 2018 16:54:32 GMT

This was the best, and most useful answer as it told me why it became an anonymous block by *E, non-uniformly scaled block, and then I could correct the scale and then explode it. Renaming still and NEVER did work! Please stop suggesting it!!!

this was most helpful, thank you!

-Jon

@Anonymouswrote:
This may be helpful
http://www.draftsperson.net/index.php?title=Anonymous_Blocks_in_AutoCAD

http://mechcad-insider.blogspot.com/

http://www.draftsperson.net/index.php?title=Anonymous_Blocks_in_AutoCAD

Re: Anonymous block replace or rename with a named block?

Anonymous — Mon, 28 Jan 2019 14:24:36 GMT

For those who are of the coding ilk...

Public Sub AnonymousBlock_RenameAll()
'------------------------------------------------------------------------------
'
'
'------------------------------------------------------------------------------
Dim acEnt As AcadEntity
Dim sName As String
Dim acBlk As AcadBlock
'''''''''''''''''''''''''''''''''''''''
For Each acEnt In ThisDrawing.ModelSpace
If acEnt.ObjectName = "AcDbBlockReference" Then
sName = acEnt.Name
Select Case True
Case sName Like "[*]U#*"
Set acBlk = BlockDef_GetByName(sName)
Debug.Print
acBlk.Name = "ANO_" & Mid$(sName, 2)
ThisDrawing.Utility.Prompt "Renamed Block " & sName & " to " & acBlk.Name & Chr$(10)
End Select
End If
Next acEnt
'------------------------------------------------------------------------------

End Sub

Re: Anonymous block replace or rename with a named block?

Anonymous — Mon, 28 Jan 2019 14:26:13 GMT

oops, forgot something...

Public Function BlockDef_GetByName( _
ByVal sBlkName As String) As AcadBlock
'------------------------------------------------------------------------------
'
'
'------------------------------------------------------------------------------
Dim acBlks As AcadBlocks
Dim acBlk As AcadBlock
'''''''''''''''''''''''''''''''''''''''
On Error GoTo ErrHandler

Set acBlks = ThisDrawing.Blocks
Set acBlk = acBlks(sBlkName)

Set BlockDef_GetByName = acBlk
Set acBlk = Nothing

ExitHere:
Exit Function
ErrHandler:
Select Case Err.Number
Case 0
Case -2145386476 'block not in blocks
'Debug.Print Err.Number, Err.description, "BlkInBlkCollection Error"
Case Else
Debug.Print Err.Number, Err.description, "BlockDef_GetByName Error"
End Select
GoTo ExitHere

End Function