Здравствуйте, есть макрос, который должен определять имя блока при его выборе:
Sub Insert()
Dim el As AcadBlockReference
On Error GoTo 2
Set sset = ThisDrawing.SelectionSets.Add("ssone")
sset.SelectOnScreen
For Each el In sset
zt = el.name
Next
MsgBox zt
2
sset.Delete
End Sub
но по какой то причине он не может корректно определить имя блока, и вместо этого сам назначает ему другое имя. Где может быть косяк? Файл с блоком прилагаю.
