判断所选的对象是块参照还是外部参照

Imports ZwSoft.ZwCAD.Runtime
Imports ZwSoft.ZwCAD.ApplicationServices
Imports ZwSoft.ZwCAD.DatabaseServices
Imports ZwSoft.ZwCAD.EditorInput


Public Class ZwcadApp
    <CommandMethod("blockORxref")> _
    Public Sub blockORxref()
        Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim ZcDB As Database = ZcDoc.Database
        Dim ZcEd As Editor = ZcDoc.Editor


        Using ZcTran As Transaction = ZcDB.TransactionManager.StartTransaction()
            Dim ZcBTR As BlockTableRecord = Nothing
            Dim objId As ObjectId = ObjectId.Null


            Do
                Dim peo As New PromptEntityOptions(vbLf & "Select a block reference or an external reference:")
                peo.SetRejectMessage(vbLf & "Must be a block referenc