如何对空块进行处理

freshclue

在图形中遍历块参照

Dim UpperRight As Variant, LowerLeft As Variant

if BlBlkRef.ObjectName = "AcDbBlockReference" then
BlkRef.GetBoundingBox LowerLeft, UpperRight
.....
end if

但是不知什么原因，图形中存在一些空的块，这时LowerLeft和UpperRight显示<类型不匹配>，请问我怎样对这种情况进行判断，当获取不到块参照的两个角点时对下一个块参照进行操作？