Title: RE: [MI-L] Make a whole in a region object
Well,
if you need to do this 100 times a day, I can see a need for a tool that makes
this process easier.
1. Draw hole with special
tool
- 1a. The hole searches for
objects in a certain layer, could be the editable layer
- 1b. For each found object,
it erases the part of the object, that is within the hole
1 step is a lot easier
than7 ;-)
And I can even give you some
part of the code, bear with me as I don't have MapBasic Help or my normal editor
here to help me check the spelling and the defines and functions
used:
Sub
ToolEraser
'**This is the procedure called by
your toolbutton,
'**that should have a POLYGON draw_mode
Dim oEraser,
oToBeErasedAs Object,
nMID,
nRowIDAs Integer,
sLayer As
String
oEraser =
CommandInfo(CMD_INFO_COSTUM_OBJ)
nMID =
FrontWindow()
'**Check that the
frontwindow exists and is a mapper
sLayer = MapperInfo(nMID,
MAPPER_INFO_EDITABLE_LAYER)
Select * from
sLayer
Where OBJ
Intersects oEraser
Into
OBJS__TO__ERASE NoSelect
Fetch First From
OBJS__TO__ERASE
Do Until
EOT(OBJS__TO__ERASE)
nRowID = OBJS__TO__ERASE.ROWID
oToBeErased = OBJS__TO__ERASE.OBJ
oToBeErased = Erase(oToBeErased, oEraser)
Update OBJS__TO__ERASE
Set OBJ =
oToBeErased
Where ROWID =
nRowID
Fetch Next From OBJS__TO__ERASE Loop
End
Sub
This is pretty much what you need. I you want to store the Eraser
object, you just need to insert that into a layer at the end of the
procedure
HTH,
Peter Horsbøll Møller
GIS Developer, MTM
Geographical Information IT
COWI A/S
Odensevej 95
5260 Odense S.
Denmark
Tel + 456311 4900
Dir+45 6311 4908
Mob+45 5156 1045
Fax + 45 6311 4949
E-mail [EMAIL PROTECTED]
http://www.cowi.dk
From: [EMAIL PROTECTED]
on behalf of Warren Vick, Europa Technologies Ltd.Sent: Fri 14-Jul-06
10:33To: 'Mapinfo-L'Subject: RE: [MI-L] Make a whole in a
region object
and don't' forget to:7) Delete "hole"I can't
remember how many times I've left an "eraser" object in a layer
byaccident.Regards,Warren VickEuropa Technologies Ltd.http://www.europa-tech.com-Original
Message-From: [EMAIL PROTECTED][mailto:[EMAIL PROTECTED]]
On Behalf Of UffeKousgaardSent: 14 July 2006 07:54To:
Mapinfo-LSubject: Re: [MI-L] Make a whole in a region objectThis
is already possible with a few steps in MapInfo. I don't think you canmake
it much simpler by writing a tool.1) Make layer editable2) Select
the region3) Objects Set Target (ctrl T)4) Draw "hole"5) Select
"hole"6) Objects EraseDone.Kind regardsUffe
Kousgaardwww.routeware.dk- Original Message -From: "Boyd
Townsend" [EMAIL PROTECTED]To:
mapinfo-l@lists.directionsmag.comSent: Friday, July 14, 2006 8:03
AMSubject: [MI-L] Make a whole in a region object Can anyone
assist. I am wanting to develop a simple tool for a user which
will essentialy make a hole in a region object. For
example. We have a region object which depicts an area of land
burnt by fire. Within that region there are small pockets which were not
burnt. We would like to be able to draw in those unburnt portions into
the existing region. Essentially the user would draw a
small area within the existing region which would then be erased
from that region making a hole in it. (If this makes
Sense). Can anyone make a suggestion on what road I would best
take to acheive this??? In anticipation -
Thanks Boyd Townsend CSO - Northern Rivers NSW
Rural Fire Service This email message is intended only
for the addressee(s) and contains information which may be
confidential. If you are not the intended recipient, please notify the
sender and delete this email and any copies or links to this
email completely and immediately from your system. Views expressed in
this message are those of the individual sender, and are not necessarily
the views of the NSW Rural Fire Service.
___ MapInfo-L mailing
list MapInfo-L@lists.directionsmag.com http://www.directionsmag.com/mailman/listinfo/mapinfo-l___MapInfo-L
mailing listMapInfo-L@lists.directionsmag.comhttp://www.directionsmag.com/mailman/listinfo/mapinfo-l___MapInfo-L
mailing listMapInfo-L@lists.directionsmag.comhttp://www.directionsmag.com/mailman/listinfo/mapinfo-l
___
MapInfo-L mailing list
MapInfo-L@lists.directionsmag.com
http://www.directionsmag.com/mailman/listinfo/mapinfo-l
