hatch a region object - multiple areas

Hello All,

I need to hatch a region w/ multiple areas:

Tried modding the example code for :

 
Public Function AddHatch(Region As AcadRegion) As AcadHatch
   ' This example creates an associative gradient hatch in model space.
   Dim patternName As String
   Dim PatternType As Long
   Dim bAssociativity As Boolean
   Dim outerLoop() As AcadEntity
   ReDim outerLoop(0)
   Dim oplineReg As AcadEntity
   Set oplineReg = Region.Copy
   Set outerLoop(0) = Region
   ' Define the hatch
   patternName = "CYLINDER"
   PatternType = acPreDefinedGradient '0
   bAssociativity = True
   
   ' Create the associative Hatch object in model space
   Set hatchObj = ThisDrawing.ModelSpace.AddHatch(PatternType, patternName, bAssociativity, acGradientObject)
   Dim col1 As AcadAcCmColor, col2 As AcadAcCmColor
   Set col1 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")
   Set col2 = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")
   Call col1.SetRGB(255, 0, 0)
   Call col2.SetRGB(0, 255, 0)
   hatchObj.GradientColor1 = col1
   hatchObj.GradientColor2 = col2
   
   ' Append the outerboundary to the hatch object, and display the hatch
   hatchObj.AppendOuterLoop outerLoop
   hatchObj.Evaluate
   ThisDrawing.Regen True
End Function

invalid input here:

hatchObj.AppendOuterLoop outerLoop

obviously there is no "OuterLoop" but its really simple to hatch the object using the std autocad Hatch command and the options with it. Any ideas?

thanks,

trent

I seem to have the same problem

did you try

Dim outerLoop(0) As AcadEntity

instead of

Dim outerLoop() As AcadEntity

ReDim outerLoop(0)

sometimes vba mistake from variant to other types...

Do you have this problem with every region or only some of them?

For me this kind of approach: appending loop - evaluating, always worked with closed objects (and a region is closed)