block 이름 불러오기

Dim objBlock As AcadBlock
Dim strBlockList As String
    strBlockList = “List of blocks: “
     
    For Each objBlock In ThisDrawing.Blocks
        strBlockList = strBlockList & vbCr & objBlock.Name
    Next
    MsgBox strBlockList

위에 Code는 보통 도면에 모든 블록 이름을 불러오는 내용입니다.

모든 블록이름이 아니라

하나의 블록을  선택하게 하여 그 블록이름을 변수나 MsgBox등에 담을 수 있는

Code 가 어렵네요

고수님들 부탁드립니다.