Vfp con Mapobject

Victor Candiotty
10 de Abril del 2006
Buenas Tardes,
Solicito ayuda, a los programadores que trabajen o tenganexperiencia con Mapobject y VFP, le hago una consulta,

quiero buscar un nobre de una persoba en un shape (Datos de Informacio) con que comando accedo para poder hacer la busqueda y me lo muestre en la pantalla.

agradecere a los que sirvan ayudarme ... por otraparte les ofresco mis servicion en lo que se refiere a MapInfo, MapBasic, MicroStation, y otros.

Victor Candiotty
Analista Programador GIS
Integrador GIS



Fran
10 de Abril del 2006
Hola Victor, necesito calibrar un shapefile. Y la verdad es que no sé cómo empezar. Ya que necesito hacerlo desde una aplicación desarrollada en Visual C++.
Puedes ayudarme?

Gracias antipadas.
Fran.

alfredo
10 de Abril del 2006
Hola.
Ojala puedan ayudarme con un problema...
Estoy agregando iconos con MapObject, en lugar de usar fonts de vehiculos (trasporte), meto iconos. el problema es el refresh, pues me aparece nadamas un cachito de icono, no me lo muestra completo. Alguien sabe cual es el problema. Si hago un refresh, no funciona... cuando hago un zoom, o algun otro movimiento en el mapa es cuando se ve el icono completo. alguien sabe algo de esto?
Saludos.
Set PictMoviles = New CustomSymbols.BITMAP
Set PictMoviles.IconMovil = FrmMapa.Imagen
With gFrmMapa.MAPA.TrackingLayer.Symbol(0)
Set .Custom = PictMoviles
End With

Erika
10 de Abril del 2006
.....
.....
.....

Dim strQry As String
Dim objrec As MapObjects2.Recordset
Dim shp As Object
Dim RECT As MapObjects2.Rectangle


strQry = "campo_shape" & "=" & numero ó
strQry = "campo_shape" & "='" & string & "'"


' lo busco
Set objrec = Mapa.Layers(Indice_layer).SearchExpression(strQry)

' si existe el elemento, lo muestro.
If Not objrec.EOF Then

' se presenta en forma destacada (parpadeante)
Set shp = objrec("Shape").Value
Set RECT = shp.Extent
RECT.ScaleRectangle 7
Mapa.Extent = RECT
Mapa.Refresh
Mapa.FlashShape shp, 6

End If


.....
.....
....

Esteban
10 de Abril del 2006
.....
.....
.....

Dim strQry As String
Dim objrec As MapObjects2.Recordset
Dim shp As Object
Dim RECT As MapObjects2.Rectangle


strQry = "campo_shape" & "=" & numero ó
strQry = "campo_shape" & "='" & string & "'"


' lo busco
Set objrec = Mapa.Layers(Indice_layer).SearchExpression(strQry)

' si existe el elemento, lo muestro.
If Not objrec.EOF Then

' se presenta en forma destacada (parpadeante)
Set shp = objrec("Shape").Value
Set RECT = shp.Extent
RECT.ScaleRectangle 7
Mapa.Extent = RECT
Mapa.Refresh
Mapa.FlashShape shp, 6

End If


.....
.....
....