vb\块\选择集

qiush1234

mccad 发表于 2003-3-10 19:51
Sub SelBlkSet()
    Dim Blk As AcadBlockReference
    Dim Ent As AcadEntity

Private Sub CommandButton1_Click()
    Dim Blk As AcadBlockReference
    Dim Ent As AcadEntity
    Dim Pnt As Variant
    Dim SelBlk As Boolean
    Dim BlkName As String
   
    On Error Resume Next
   
    '选择对象并判断所选对象是否为图块
    SelBlk = True
    While SelBlk
    ThisDrawing.Utility.GetEntity Ent, Pnt, "选择图块"
    If Ent.ObjectName = "AcDbBlockReference" Then
       Set Blk = Ent
        BlkName = Blk.Name
        SelBlk = False
    End If
    Wend
Debug.Print "选定的图块名称为“" & BlkName

End Sub


因为使用整段代码卡在了选择图块上，我是AUTOCAD2010版本的。
将代码简化为上面显示的，还是卡在了选择图块上。不知是啥问题？