Community
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
I'm experiencing the exact same thing when I'm trying to assign a queryleaf to the root branch. Anyone know how to fix this? It works fine in AutoCAD Map 2011 32 bit but in AutoCAD Map 2011 64 bit, it does not work.