AcadEntity的Error Number

Sub mmm()
  Dim xlSheet3 As Worksheet
  Set xlSheet3 = ReturnxlSheet("Sheet3")
  Dim objDim As AcadDimension
  With xlSheet3
    For ii = 2 To .Range("A65355").End(xlUp).Row
      On Error Resume Next
      Set objDim = ThisDrawing.HandleToObject(.Cells(ii, 1))
      objDim.Layer = "虚线"
      If Err.Number = 0 Then
        .Cells(ii, 5) = objDim.Handle
        .Cells(ii, 6) = objDim.Layer
      End If
      .Cells(ii, 7) = Err.Number
    Next ii
  End With
  Dim ent As AcadEntity
End Sub原因
在http://forums.augi.com/archive/index.php/t-5547.html有这段描述
'Not a valid handle. 未知句柄
This could be an older block that doesn't  follow the pattern of BlockBegin's handle starting at 1 above the block handle. Continue the loop until you find it. BlockEnd should still be 1 above BlockBegin.
这是老版本生成的块，不能随父节点在块开始点1之上找到块关联句柄。只有不断循环才能找到它，块的结束部分仍然在块开始的1上。