Philip
This should work for you:
Include "MapBasic.Def"
declare sub main
sub main
Dim i as integer
Dim i_lay_type as integer
Dim map_win_id as integer
Dim cmd as string
map_win_id = FrontWindow()
if WindowInfo(map_win_id, WIN_INFO_TYPE) = WIN_MAPPER then
For i = 1 to MapperInfo(map_win_id,MAPPER_INFO_LAYERS)
i_lay_type = LayerInfo(map_win_id , i, LAYER_INFO_TYPE)
If i_lay_type = LAYER_INFO_TYPE_IMAGE Then
cmd = "set map Layer " + i + " Display Off"
run command cmd
End If
Next
else
note "Not a Map Window"
end if
end sub
Kind Regards
Jerry O'Sullivan
Jerry O'Sullivan
GIS Consultant
ESBI Computing Ltd
Stephen Court | 18-21 St. Stephen's Green | Dublin 2
Tel +353 1 7038060 | Fax +353 1 6618455
E-mail: [EMAIL PROTECTED]
www.esbic.ie
-----Original Message-----
From: Lesnik, Phillip S [mailto:[EMAIL PROTECTED]
Sent: 17 October 2005 15:46
To: MAPINFO Discusion Group
Subject: MI-L Raster Image (Turn Off) or disable
Group.
I have around 900 raster images in a workspace. Anybody have ideas or code to
disable or turn off all raster images in a workspace with a simple click.
Ideas?
thanks
Philip Lesnik
Research Systems Analyst
Market Research Dept.
General Growth Properties
www.generalgrowth.com <http://www.generalgrowth.com/>
NYSE: GGP
110 N. Wacker Drive
Chicago, IL 60606
Phone: 312-960-2998
BSC - 3N13G
-----------------------------------------
+++++++++++++++++++++++++++++++++++++++++++++++++++++++ Notice: This
e-mail including attachments) is covered by the Electronic Communications
Privacy Act, 18 U.S.C. ยงยง 2510-2521, is confidential and may be legally
privileged. If you are not the intended recipient, you are hereby notified that
any retention, dissemination, distribution, or copying of this communication is
strictly prohibited. Please reply to the sender that you have received the
message in error, then delete it. Thank you.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
* ** *** ** * ** *** ** * ** *** ** *
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they
are addressed.
Any views or opinions presented are solely those of the author, and do not
necessarily
represent those of ESB.
If you have received this email in error please notify the sender.
Although ESB scans e-mail and attachments for viruses, it does not guarantee
that either are virus-free and accepts no liability for any damage sustained
as a result of viruses.
* ** *** ** * ** *** ** * ** *** ** *
---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 18331
