[VBA函数]：图案填充[Hatch]出错！

macula55

自己写了一个填充图案的过程，如下：

Sub aaa()
  Dim dd As AcadHatch
  Dim s As AcadSelectionSet
  Dim obj() As AcadEntity
  Dim i As Long
   
'  On Error Resume Next

  ThisDrawing.SelectionSets.Item("fda").Delete
  Set s = ThisDrawing.SelectionSets.Add("fda")
  
  s.SelectOnScreen
  
  If s.Count > 0 Then
    ReDim Preserve obj(s.Count)
    For i = 0 To s.Count - 1
      Set obj(i) = s.Item(i)
    Next
  End If
   
Set dd = ThisDrawing.ModelSpace.AddHatch(0, "SOLID", True)

  dd.AppendOuterLoop obj
  dd.Evaluate
  ThisDrawing.Regen acActiveViewport
End Sub


当运行上面的函数，总是提示-2147418133错误，方法“AppendOuterLoop”作用于对象“IAcadHatch”时失败！
不知道是那里出错了，请各位大虾指点！