On 22 Jan, [EMAIL PROTECTED] wrote:
> 
> 
> Thank you for your response on "Ancient Version (ver 3.0.5).  I thought I
> was all alone.
> 
> Question:
> Is it possible to plot points using MY latitude and longitude coordinates?
> 
Sure try this function:

'/* ---------------------------------------------------------------------*/
'/* FUNCTION:   PlaceTarget                                              */
'/*                                                                      */
'/* DESCRIPTION: Routine to paint point of intrest(POI)
'/* on map,(in cosmetic1)
'/*                                                                      */
'/* PARAMETERS:  Lat, Lon and WindowID                                   */
'/*                                                                      */
'/* RETURNS:     none                                                    */
'/*                                                                      */
'/* CREATED:     5/1/96                                                  */
'/*                                                                      */
'/* SIDE EFFECTS: mone                                                   */
'/*                                                                      */
'/* EXAMPLES:    PlaceTarget(Lat, Lon, WindowID)                         */
'/* -------------------------------------------------------------------- */
'/*ED1*/

Sub PlaceTarget(Lat as Float, Lon as Float, mapwindowid as integer)
    Set Map Window mapwindowid Redraw Off
    Set Map Window mapwindowid Layer 0 Editable
    Create Point Into Window mapwindowid (Lon,Lat) Symbol(35,RED,18)
    POI = CreatePoint(Lon,Lat)                   'store point in a variable
    Set Map Window mapwindowid Center (Lon, Lat) 'center window on point
    Set Map Window mapwindowid Zoom 5 Units "MI" 'zoom to 5 mile view
    Set Map Window mapwindowid Redraw On
End Sub

-- 
-----------------------------------------------------------------------
Roy Stewart             Global Atmospherics Inc.                       
Applications Developer  Manufacture and systems integrator of lightning
[EMAIL PROTECTED]    location and detection equipment and services 

                        Phone: (520) 741-2838 
2705 E. Media Rd.       Fax:   (520) 741-2848
Tucson AZ 85706-7155    Web:   http://www.glatmos.com

                   How intelligent is it, 
        to start the day by tying a noose around your neck?
-----------------------------------------------------------------------

----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]

Reply via email to