这段程序有问题，请帮帮忙啊！！

tsxvvv

Public Sub block()
Dim HO As AcadHatch
Dim PN As String
Dim PT As Long
Dim BA As Boolean
Dim outerloop(0 To 2) As AcadEntity
Dim pl(0 To 15) As Double

PN = "ANSI31"
PT = 0
BA = True
Set HO = ThisDrawing.ModelSpace.AddHatch(PN, PT, BA)
HO.PatternScale = 1

pl(0) = 10
pl(1) = 10
pl(2) = 50
pl(3) = 10
pl(4) = 60
pl(5) = 20
pl(6) = 60
pl(7) = 35
pl(8) = 55
pl(9) = 50
pl(10) = 40
pl(11) = 50
pl(12) = 20
pl(13) = 25
pl(14) = 10
pl(15) = 10
Set outerloop(0) = ThisDrawing.ModelSpace.AddLightWeightPolyline(pl)
HO.AppendOuterLoop (outerloop)
HO.Evaluate
ThisDrawing.Regen True
End Sub
运行是系统报错“Set HO = ThisDrawing.ModelSpace.AddHatch(PN, PT, BA)“
这句语句类型不符，不只出错在哪儿啊？？

mccad

tsxvvv

谢谢老师！！