it gimme Object variable or With block variable not set (Error 91) in hatchloop buildreflist, and them gives error on other subs of hatchloop
the test seems to be OK
Dim Ci_Hatch As New Ci_Hatch
Dim oObjectHatch As AcadObject
Dim FSO As FileSystemObject
Set FSO = New FileSystemObject
Dim DXFMatches As MatchCollection
Dim DXFMatch As Match
Dim Rexp As New RegExp
Dim DXFstr As String
Dim i As Integer
Dim submatch As Variant
Dim sHatch As String, sHandle As String
Dim iCountMatch As Long, iCountSubMatch As Long
DXFstr = FSO.GetFile("C:\hatch.dxf").OpenAsTextStream.ReadAll
Rexp.Global = True
Rexp.MultiLine = True
Rexp.IgnoreCase = True
Rexp.Pattern = "\n\s\s0\r\n((HATCH)[A-Z\d]*)\r\n\s\s5\r\n([\dA-F]*)(.*[\r\n](?! 10))*330\r\n([\dA-F]*)(.*[\r\n](?! 10))*((.*[\r\n](?! 0))*)"
Set DXFMatches = Rexp.Execute(DXFstr)
If Not DXFMatches.COUNT = 0 Then
iCountMatch = 0
For Each DXFMatch In DXFMatches
If Not DXFMatch.SubMatches.COUNT = 0 Then
iCountSubMatch = 0
For Each submatch In DXFMatch.SubMatches
Debug.Print "Match " & iCountMatch & ", SubMatch " & iCountSubMatch & ":" & submatch
iCountSubMatch = iCountSubMatch + 1
Next submatch
sHandle = CStr(DXFMatch.SubMatches(2))
Set oObjectHatch = ThisDrawing.HandleToObject(sHandle)
If Not (TypeName(oObjectHatch) = "IAcadHatch2" Or TypeName(oObjectHatch) = "IAcadHatch") Then
MsgBox "Failed to handle object": Exit Sub
End If
End If
sHatch = CStr(DXFMatch.value)
Ci_Hatch.Read oObjectHatch, sHatch
iCountMatch = iCountMatch + 1
Next DXFMatch
End If
ive added Microsoft XML, v4.0 as reference, testing with a simple non associative hatch using a polyline as outerloop
