RE: [MI-L] Zoom to Extents of Selection - MapBasic Code

Peter Horsbøll Møller Fri, 16 Jun 2006 02:03:04 -0700

Morgan,

Your idea with zooming to the layer is correct. The problem is that MapInfo can't find the layer in the map, so you need to add the layer to the map before zooming to the extent of this layer/selection.

Something like this:

'**selecting all objects into a named temp table

Select * From ObjectsToMap

Where OBJ

Into TO__PRINT NoSelect

Fetch first From TO__PRINT

Do Until EOT(TO__PRINT)

nRow = TO__PRINT.OBJ 'remember to Dim this integer variable

'*Selecting the current record into a temp table

Select * From TO__PRINT

Where ROWID = nRow

Into CUR__OBJECT Noselect

Fetch First From CUR__OBJECT

Set Map

Center (CentroidX(CUR__OBJECT.obj), CentroidY(CUR__OBJECT.obj)) 'center map on selected object

'**Adding the layer to be able to zoom to its extent

Add Map

Layer CUR__OBJECT

Set Map Zoom Entire Layer CUR__OBJECT

'**Removing the layer from the map again

Remove Map

Layer CUR__OBJECT

Run Menu Command 112 'Print Command

Fetch Next from TO__PRINT

Loop

HTH,

Peter Horsbøll Møller
GIS Developer, MTM
Geographical Information & IT

COWI A/S
Odensevej 95
DK-5260 Odense S.
Denmark

Tel     +45 6311 4900
Direct +45 6311 4908
Mob     +45 5156 1045
Fax     +45 6311 4949
E-mail [EMAIL PROTECTED]
http://www.cowi.dk/gis

From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ellingham Morgan
Sent: Friday, June 16, 2006 9:06 AM
To: [email protected]
Subject: [MI-L] Zoom to Extents of Selection - MapBasic Code

Hi all,

Am trying to create a batch to print off a series of maps automatically, I need it to cycle through a series of mapped objects, print, then move to the next object. I can get it to center at each object but the zoom extent stays the same. Trying below code;

Select * From ObjectsToMap

Fetch first From ObjectsToMap

Do Until EOT(ObjectsToMap)

Set Map Center (CentroidX(Selection.obj), CentroidY(Selection.obj)) 'center map on selected object

Set Map Window WindowID(1) Zoom Entire Layer SelectionInfo(SEL_INFO_SELNAME) 'THIS IS WHERE THE ERROR IS "INVALID VIEW LAYER" TRIED Layer Selection et al

Run Menu Command 112 'Print Command

Fetch next from ObjectsToMap

Loop

Any ideas?

Regards...

Morgan Ellingham

Citywide Service Solutions

GIS Technician

Level 1, 150 Jolimont Rd, East Melbourne

Ph: (03) 9261 5065

Mob: 0419 145 666

Email: [EMAIL PROTECTED]

_______________________________________________
MapInfo-L mailing list
[email protected]
http://www.directionsmag.com/mailman/listinfo/mapinfo-l

RE: [MI-L] Zoom to Extents of Selection - MapBasic Code

Reply via email to