You need to know how many loops are in a hatch first by using
integer = hatchObj.NumberOfLoops
and then you can look in each loop (array of acceptable objects) by using
hatchObj.GetLoopAt 0, variantVariable
You can then cycle through the objects to determine geometry, which each method may be specific to object type. I don't recall determining the inner or outer loops, may have something to do with the "normal" property? Don't recall.
The following code may be helpful, this makes hatches:
Sub testIt()
Dim selSet As AcadSelectionSet, newHatch As AcadHatch
Dim foutLoops() As AcadEntity, finLoops() As AcadEntity
ThisDrawing.Utility.Prompt "Please select outer loops to form the hatch:"
Set selSet = clnSSet
For i = 0 To selSet.Count - 1
ReDim Preserve foutLoops(i)
Set foutLoops(i) = selSet(i)
Next i
ThisDrawing.Utility.Prompt "Please select inner loops to be subtracted from hatch:"
Set selSet = clnSSet
For i = 0 To selSet.Count - 1
ReDim Preserve finLoops(i)
Set finLoops(i) = selSet(i)
Next i
Set newHatch = mkHatch("ANSI32", foutLoops, finLoops)
End Sub
Function mkHatch(patName As String, oLoopObjs As Variant, _
iLoopObjs As Variant, Optional layrName As String = "") As AcadHatch
Dim i As Integer, olObjs(0) As AcadEntity, fHatch As AcadHatch
j = -1
Set fHatch = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, patName, False)
On Error Resume Next
For i = LBound(oLoopObjs) To UBound(oLoopObjs)
Set olObjs(0) = oLoopObjs(i)
fHatch.AppendOuterLoop (olObjs)
fHatch.Evaluate
Next i
For i = LBound(iLoopObjs) To UBound(iLoopObjs)
Set olObjs(0) = iLoopObjs(i)
fHatch.AppendOuterLoop (olObjs)
fHatch.Evaluate
Next i
On Error GoTo 0
If layrName <> "" Then fHatch.Layer = layrName
Set mkHatch = fHatch
Set fHatch = Nothing
End Function
Function clnSSet() As AcadSelectionSet
Dim fType(0 To 8) As Integer
Dim fData(0 To 8) As Variant
On Error Resume Next
If ThisDrawing.SelectionSets("SSdtlCat") Is Nothing Then
Set clnSSet = ThisDrawing.SelectionSets.Add("SSdtlCat")
Else
Set clnSSet = ThisDrawing.SelectionSets("SSdtlCat")
clnSSet.Clear
End If
On Error GoTo 0
clnSSet.SelectOnScreen
End Function
