Новые имена вставленным блокам

> Андрей
Да никак не изменишь. Надо их ПЕРЕОПРЕДЕЛЯТЬ.

> Андрей
Мне кажется идея непродуктивная, не лучше ли
будет изменять значения атрибутов с приращением
а то у тебя будет немерено блоков
Тем не менее попробуй (почти без теста):

Option Explicit
Sub RenameOnFly()
Dim objBlk As AcadBlock
Dim newBlk As AcadBlock
Dim itmBlk As AcadObject
Dim objBlks As AcadBlocks
Dim insPnt As Variant
Dim origPt As Variant
Dim i, j As Integer
Dim blkRef As AcadBlockReference
Dim itmVar() As AcadObject
Dim blkName, matchStr As String
Dim isExist As Boolean
isExist = False
On Error GoTo ErrQuit
Set objBlks = ThisDrawing.Blocks
blkName = InputBox("Block Name:", , "Number")
For Each itmBlk In objBlks
If itmBlk.Name = blkName Then
isExist = True
End If
Next
If isExist Then
Set objBlk = objBlks(blkName)
Else
MsgBox "Block " & blkName & " does not isExist"
Exit Sub
End If
Set objBlk = objBlks(blkName)
origPt = objBlk.Origin
ReDim Preserve itmVar(0 To objBlk.Count - 1)
For i = 0 To objBlk.Count - 1
Set itmVar(i) = objBlk.Item(i)
Next
j = 0
On Error Resume Next
With ThisDrawing
Do
insPnt = .Utility.GetPoint(, "Pick insertion point >> :")
Set newBlk = objBlks.Add(origPt, "Block" & CStr(j))
.CopyObjects itmVar, newBlk
Set blkRef = .ModelSpace.InsertBlock(insPnt, "Block" & CStr(j), 1#, 1#, 1#, 0#)
j = j + 1
Loop
End With
ErrQuit:
MsgBox Err.Description
End Sub

~'J'~

Уважаемые Знатоки, большое спасибо за подсказки. Немного изменив ваш кусок программы, я буду перед вставкой стандартного блока, изменять его имя. После чего, даже после редактирования блока командой  refedit, изменения блока будут касаться, лишь этого блока, а все остальные останутся без изменения.

Я хочу изменять имена уже вставленным блокам.  Если у меня в чертеже вставлено несколько блоков с одинаковым именем, то желательно, чтобы я мог изменить имя выделенного блока без изменения имен его тесок.
Спасибо за помощь.

Вы абсолютно правы, я окончательно запутался. Поэтому постараюсь изложить все более подробно. Я создал библиотеку блоков с атрибутом в панели TOOL PALETTES. Блоки в чертеж я вставляю с этой панели. Некоторые блоки нужно будет редактировать. Я понимаю, что если отредактировать блок с именем совпадающем с именем других блоков на чертеже, то все изменения коснуться всех тесок. Поэтому , наверное мне придется изменять имя блока сразу же после вставки в чертеж. Конечно, получается не элегантно.

> Андрей
Что значит  Некоторые блоки нужно будет редактировать? Если речь идет о значениях атрибутов, то редактируйте на здоровье свой блок, эти изменения не коснутся его тезок.

> Андрей
http://vbamaker.narod.ru/Cod2.html
вот здесь полазай и посмотри как с блоками работать из VBA

> Андрей
И все таки, если речь идет о блоках с атрибутами - AcadBlockReference, то какие параметры ты намереваешься редактировать? То есть, почему именно команда _refedit?

> Андрей
А динамические блоки не катят?

> Андрей
Они применяются начиная с ACAD2006

Помоему нет ничиго проше выделить примитив. Проверить на то что выделенный примитив это BlockReference. Найти в блоках -"ModelSpase.Blocks" по имени тот блок на который ссылается BlockReferense создать новый блок с новым именем напхать в него другие примитивы. Удалить выделенный BlockReference и в туже точку вставки вставить другой BlockReference но уже с сылкой на свежесозданный блок?