Hi Richard,
You can do this with a bit of mapbasic as below. If you don't have mapbasic
let me know and I will expand this code and compile this into an MBX.
Change the 'percent' value to the required number where 0.1 = 10%, 1 = 100%
Cheers
Martin
==================================
Martin Roundill
GIS Manager
Waitakere City Council
Private Bag 93109
Henderson
Waitakere City
New Zealand
'---------------- Shrink.mb Start ----------
include "mapbasic.def"
dim o as object
dim percent as float
dim cx,cy,x,y as float
dim iPart,iNode as integer
set coordsys table selection
percent = 0.5 'ie 50%
o = selection.object
cx = centroidx(o)
cy = centroidy(o)
for iPart = 1 to objectinfo(o,OBJ_INFO_NPOLYGONS)
for inode = 1 to objectinfo(o,OBJ_INFO_NPOLYGONS+iPart)
x = objectnodex(o,ipart,inode)
y = objectnodey(o,ipart,inode)
alter object o node set position iPart,iNode
(cx+((x-cx)*percent),cy+((y-cy)*percent))
next
Next
update selection set object = o
'---------------- Shrink.mb End ----------
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]
Sent: Wednesday, 12 December 2001 11:25
To: [EMAIL PROTECTED]
Subject: MI-L Shrinking Regions
Is there any way to shrink a region by a percentage to its centroid??
Thanks in advance and pardon my ignorance,
Richard Rousselot
_______________________________________________________________________
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, send e-mail to [EMAIL PROTECTED] and
put "unsubscribe MapInfo-L" in the message body.
_______________________________________________________________________
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, send e-mail to [EMAIL PROTECTED] and
put "unsubscribe MapInfo-L" in the message body.
