VB.NET Map Query

[ced_abitat]

Hi All,

  I have a problem with VB.NET and Map using ActiveX interface.

I have an error when I try to add a new condition to QueryBranch

Ex

Dim objQB As AutocadMAP.QueryBranch = objQuery.QueryBranch

Dim objPCond As Object = objQB.Add(EClassId.kQueryBranch, EJoinOperator.kOperatorAnd) 

The same code in VB6 work fine!!!

Can you help me?

Regards

Matteo

[Anonymous]

Hi Matteo,

Check if the following approach resolves this issue ?

<code_begin>

Public Function TestDefQuery()
Dim mapApi As Autodesk.Gis.Map.MapApplication
mapApi = MAP.HostMapApplicationServices.Application

Dim project As PROJECT.ProjectModel
project = mapApi.ActiveProject

'create location condition
Dim JointOp As New MAPCONSTANTS.JoinOperator()
Dim locationType As New MAPCONSTANTS.LocationType()
'Dim qryCondition As MAPQUERY.LocationCondition = New MAPQUERY.LocationCondition(JointOp.OperatorAnd, locationType.LocationInside)
Dim qryCondition As MAPQUERY.LocationCondition = New MAPQUERY.LocationCondition(JointOp.OperatorAnd)
Dim allBdry As MAPQUERY.AllBoundary
allBdry = maputil.NewAllBoundary()
qryCondition.Boundary = allBdry

'create branch
Dim qryBranch As New MAPQUERY.QueryBranch(JointOp.OperatorAnd)
qryBranch.AppendOperand(qryCondition)

End Function

<code_end>

Thanks,

Partha Sarkar
Autodesk Developer Network

[dohenry]

Hi,

I just tried out this code and it works well.

However I was getting an error in the following line 

allBdry = maputil.NewAllBoundary()

I changed it to

allBdry = project.MapUtility.NewAllBoundary

and it resolve the error.

Donagh