Murat,
I think that if you want to add a new feature object or features collection
object to a layer, it needs to be a standalone object/collection. The
objects you are trying to add are just references to extant objects in other
layers. Try creating a standalone feature or features collection by using
the clone method - then add that to your new layer.
Richard Burkmar.
-----Original Message-----
From: levent demircan [mailto:[EMAIL PROTECTED]]
Sent: 12 September 2000 09:34
To: [EMAIL PROTECTED]
Subject: MI selecting within a spesific distance (mapx question)
HI,
I AM SORRY I KNOW THAT THIS IS NOT A MAPINFO RELATED POST BUT I HOPE THAT
LIST
MEMBERS HAVE SOME IDEA TO GIVE ME ABOUT THE FOLLOWING ISSUE:
I WANT TO SELECT SOME POINTS WITHIN A X KM DISTANCE FROM A SPESIFIC
POINT(DBLMAPX, DBLMAPY)
AND ADD THEM AS A NEW LAYER. I USED THREE WAYS TO DO THAT BUT I FACED WITH
ERRORS. I ADDED MY SAMPLE CODES AND ERRORS OCCURED.
WHAT IS THE RIGHT CODE OF SELECTING POINTS?
THANK YOU
MURAT
[EMAIL PROTECTED]
FIRST ATTEMPT:
...
dim ObjResults as object
...
'SELECTIONLAYER IS THE LAYER THAT I SELECT POINTS FROM.
bRC = AddMapLayer(selectionlayer, 1)
bRC = CreateMapPoint(p)
p.set dblMapX, dblMapY
set objResults = g_objMapX.Layers(1).SearchWithinDistance(p,2,1,0)
'I CREATE A NEW LAYER FOR SELECTED POINTS.
g_objMapX.Layers.CreateLayer "TempSelection", , 2
'IN THE FOLLOWING ROW AN ERROR OCCURS (SEE BELOW).
g_objMapX.Layers("TempSelection").Selection.Add objResults
...
ERROR OCCURED IN THE FIRST ATTEMPT:
Error Number: 1108
Error Description: Every Feature in a Features collection object must be
from
the same layer.
**************************************************************************
SECOND ATTEMPT:
...
dim ObjResults as object
...
'SELECTIONLAYER IS THE LAYER THAT I SELECT POINTS FROM.
bRC = AddMapLayer(selectionlayer, 1)
'I SELECT POINTS WITHIN A 1 MILE DISTANCE.
g_objMapX.Layers(1).Selection.SelectByRadius dblMapX, dblMapY, 1, 0
'I CREATE A NEW LAYER FOR SELECTED POINTS.
g_objMapX.Layers.CreateLayer "TempSelection", , 2
'IN THE FOLLOWING ROW AN ERROR OCCURS (SEE BELOW).
g_objMapX.Layers("TempSelection").Selection.Add objResults
ERROR OCCURED IN THE SECOND ATTEMPT:
Error Number: 1100
Error Description: Invalid Features object.
**************************************************************************
THIRD ATTEMPT:
...
dim ObjResults as object
...
'SELECTIONLAYER IS THE LAYER THAT I SELECT POINTS FROM.
bRC = AddMapLayer(selectionlayer, 1)
bRC = CreateMapPoint(p)
p.set dblMapX, dblMapY
'I SELECT POINTS WITHIN A 2 KM DISTANCE
set circle = g_objMapX.FeatureFactory.CreateCircularRegion
(1,p,2,1,100)
set objResults = g_objMapX.Layers(1).SearchWithinFeature(circle,0)
'I CREATE A NEW LAYER FOR SELECTED POINTS.
g_objMapX.Layers.CreateLayer "TempSelection", , 2
g_objMapX.Layers("TempSelection").AddFeature objResults
ERROR OCCURED:
Error Number: 1078
Error Description: Feature object is no longer valid.
____________________________________________________________________
Get free email and a permanent address at http://www.netaddress.com/?N=1
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
