Environment: AutoCAD Map 3D 2011 + Update 2 , Windows 7 Ultimate 64bit, 64bit VBA
The VBA crashes when I attempt the following in order to query from an attached drawing. The error I get is: x64VBAServer has stopped working. The error happens at the code as commented below. Can anyone tell me what should be done to avoid it?
Sub DoQuery()
Dim pMap As AcadMap
Set pMap = ThisDrawing.Application.GetInterfaceObject("Autocadmap.application")
Dim pProj As Project
Set pProj = pMap.Projects.Item(0)
'Dim pDrgSet As DrawingSet
'Set pDrgSet = pProj.DrawingSet
Dim pAttDwg As AttachedDrawing
Set pAttDwg = pProj.DrawingSet.Add("C:\\Temp\\Ceometric.dwg")
Dim pQry As Query
Set pQry = pProj.CurrQuery
pQry.Clear
'Main Query Branch
Dim pMainQryBranch As QueryBranch
Set pMainQryBranch = pQry.QueryBranch
'Query Leaf to hold a location query
Dim pQryLeaf As QueryLeaf
Set pQryLeaf = pMainQryBranch.Add(kAllBoundary, kOperatorAnd) '<<ERROR HAPPENS HERE
'Define the query
Debug.Print "Query Define: " & pQry.Define(pMainQryBranch)
'Execute the query
pQry.Execute
End Sub
