AutoCad - Cómo coloco hatch con codigo vba excel?

Dim Rad As Double, pc(0 To 2) As Double

Dim RefFT(0 To 0) As AcadEntity

Dim SolidVar As AcadHatch

Rad = Z(8) / 2

num = 0

For i = 1 To Z(9)

Set SolidVar = Aut0CAD.Application.ActiveDocument.ModelSpace.AddHatch(1, "SOLID", True)

pc(0) = X + Z(5) + Z(7) + Z(8) * 0.5 + 0.5 + num: pc(1) = Y + Z(5) + Z(7) + Z(8) / 2

Set RefFT(0) = AutoCAD.Application.ActiveDocument.ModelSpace.AddCircle(pc, Rad)

SolidVar.AppendOuterLoop (RefFT)

SolidVar.Evaluate

SolidVar.Layer = "Var"

num = num + Z(10)

Next i