Herramientas Cartograficas!!

[torito]

Hola Fernando, yo solo he trabajado con Mapobjects, el trial lo consigues en la pagina de esri.com, y lo enlazo a delphi 7 o a delphi 5.... saludos

[Fernando]

Gracias Torito, revisaré el demo.

Salu2

[Fernando]

Pues nada, con la novedad que el susodicho MapObjects cuesta 5 mil dólares.

Eso significa que a mis clientes (3) les tendré que cobrar 1,666.66 dólares por cabeza (significativo y demoniaco el precio, no creen?)

Claro que, como mis clientes no siembran cocaína o marihuana, dirán que "gracias, pero no"

Si alguno de ustedes, impresindibles foreros, conoce otro programa para controlar el despliegue de mapas, les estaré muy agradecido si me informan.

Salu2.

[kinobi]

Empezado por Fernando

Si alguno de ustedes, impresindibles foreros, conoce otro programa para controlar el despliegue de mapas, les estaré muy agradecido si me informan.

Echa un vistazo aquí: http://www.freegis.org/

Tal vez puedas encontar algo que te sirva y sea libre.

Saludos.

[torito]

Oye Fer, el MO no cuesta 5000 dolares, ya que a nosostros nos costo 5000 pesos Mexicanos, eso seria como 480 dolares

[Fernando]

Gracias por esta información Kinobi (y por las anteriores)

Con respecto al precio, Torito, en la página de ESRI dice $ 5,000.00 y como está en inglés pensé que eran dólares. Revisaré mejor la información (tengo vista cansada y astigmatismo ¡glup!) y si el precio es en pesos mexicanos (mejicanos) lo compro.

Por otra parte, en un sitio de Argentina describen un sistema de fumigación/asperción aérea utilizando GPS y un programa/software que conduce al piloto del avión a través de la superficie a fumigar. ¿Alguno de los geodelphimaniacos ha trabajado o conoce sobre este tema?

Gracias a todos por su ayuda.

Salu2

[torito]

Pues lo que mencionas no es muy dificil, solo requires un mapa base u ortofoto, tomas de un servidor tus coordenadasd xy y las plasmas sobre tu imagen y se crea la ruta

[wleon]

buenas, soy un nuevo usuario de ArcGis y necesito realizar una personalizaciòn alguen me podria ayudar, no se si se pueda con mapobject o como gracias de antemano.

[torito]

Pues mira, si vas a trabajar con arcgis te recomiendo que le metas la personalización con Visual Basic ya que es lo más idoneo... ahora si lo vas a hacer con MapObjects te recomiendo ampliamente el Delphi... Saludos

[torito]

Hola Fer...

Si apenas vas a iniciar vas a tenes un problema principalmente, requieres información de base o mejor dicho, capas base... ya cuando las tengas de acuerdo a su tipo puesdes trabajarla con Maps Objects, mapInfo, Workstation, etc... ahora si tienes bajos costos hay herramientas free, que el problema es encontrarlas... saludos

[Onti]

Tengo un a base de datos con informacion de inmuebles
(la estucutra de las tblas es algo como
-codigo_inmueble
- descripcion
- tipo_inmueble
- etc


, ahora me piden que los resultados de una consulta Por ejemplo

" todos los imnuebles tipo 'X'"

sean reflejados en un mapa hecho con Arcview



Por favor alguien me puede orientar cual es la mejor forma para lograr esto.



muchas gracias

y salu2

[torito]

oye pero solo tienes la tabla de datos o ya tieneas la información georefenciada, osea ya tienes esa información geograficamente??

[Onti]

Solo tengo tabla de datos, como hago la georeferenica (disculpa pero desconosco totalmente el tema)

[torito]

ups, si esta bastante complicadon, primero requieres una capa base de tu ciudad, al referirme a capa me refiero a un mapa (geografico)de tu ciudad y de ahi empiezas generando otra capa para tus puntos de referencia de tus muebles... tienes forma de conseguir esa capa base??

[Onti]

gracias por responder ,
En que formato debe estar el mapa?

[torito]

El formato depende de que herramienta geografica vayas a usar, yo por ejemplo use arcobjects y actualmente mapobjects, en ambos el archivo debe ser shape, extención .shp

[sierraja]

Fernanado, podrías enviarme un demo de tu aplicación, estoy desarrollando una aplicación para mi finca sobre el control ganadero y rotación de potreros, me sería muy util lo que tienes desarrollado. Mi correo: sierraja2000@yahoo.mail

[Magui]

Tengo una cobertura Uv.shp la cual tiene los siguientes campos:
shape,id,color y le he asignado diferentes colores

Como puedo hacer para que lo cargue en el mapa con los colores que yo le he asignado?

estoy trabajando con mapObjects2 y delphi 7

Si alguien me puede ayudar o enviar un ejemplo se lo agradecere...
mi correo es maguipsc@hotmail.com

[torito]

ok magui, tu tienes que trabajar con el renderer de tu capa y de ahi escalarla, te mando el ejemplo de esto

procedure TForm2.bbuniClick(Sender: TObject);
var
a,breakVal,z : integer;
zaz : string;
begin
try
memo1.Clear;
recs:=l.Records;
l.Renderer:=nil;
l.Renderer:=ImoClassBreaksRenderer(CreateOleObject('MapObjects2.ClassBreaksRenderer'));
tdesc:=recs.TableDesc;
fields:=recs.Fields;
cbr:=ImoClassBreaksRenderer(l.Renderer);
cbr.Field:=tdesc.FieldName[cbx.ItemIndex];
if cbx.Text='' then
 begin
 showmessage('No Se Eligio Un Campo');
 exit;
 end;
 strsUniqueValues:= IMoStrings(CreateOleObject('MapObjects2.strings'));
 //fld := IMoField(CreateOleObject('MapObjects2.Field'));

 fld := fields.Item(tdesc.FieldName[cbx.ItemIndex]);

except//if varisempty(fld) then
 //begin
 showmessage('Hay Un Error En La Tabla!!');
 exit;
 end;
z:=0;
recs.MoveFirst;
a:=1;
while (not recs.EOF) do
 begin
 strsUniqueValues.Add(fld.value);
 recs.MoveNext;
 inc(z);
 if z = 100 then
  begin
  a:=application.MessageBox( 'USTED TIENE MÁS DE 100 VARIABLES UNICAS, DESEA CONTINUAR A PESAR DE QUE DILATE MUCHO EL PROCESO??', 'EXCEDENTE DE VARIABLES...', MB_OKCANCEL);
  if  a=2 then
  exit; //se sale de la aplicacion
  end; //fin if
 end; //fin while
{a:=1;
if strsUniqueValues.Count > 100 then
 a:=application.MessageBox( 'USTED TIENE MÁS DE 100 VARIABLES UNICAS, DESEA CONTINUAR??', 'EXCEDENTE DE VARIABLES...', MB_OKCANCEL);
if  a=2 then
 exit; //se sale de la aplicacion}
if (vmr=nil)then
vmr:= IMoValueMapRenderer(CreateOleObject('MapObjects2.ValueMapRenderer'));

vmr.SymbolType:=l.Symbol.SymbolType;
vmr.Field:=fld.Name;
vmr.ValueCount:=strsUniqueValues.Count;
vmr.UseDefault:=false;
for a:=0 to strsUniqueValues.Count-1 do
 begin
 vmr.Value[a]:=strsUniqueValues.Item(a);
// showmessage(strsUniqueValues.Item(a));
 end;

memo1.Lines.Add('       LISTADO DE VALORES UNICOS!!');
memo1.Lines.Add('       ');

for a:=0 to vmr.ValueCount-1 do
 begin
 zaz:='';
 zaz:=inttoStr(a+1);
 zaz:=zaz+'     '+vmr.Value[a];
 memo1.Lines.Add(zaz);
 end; //fin for llenado memo1

cbr.BreakCount:=strsUniqueValues.Count;

bbuni2.Enabled:=true;

end; //fin procedure

[Magui]

gracias por el codigo..

lo he probado ..pero no me muestra el mapa con los colores asignados, me imagino que esta es la parte donde se cambia los colores..

if (vmr=nil)then
vmr:= IMoValueMapRenderer(CreateOleObject('MapObjects2.ValueMapRenderer'));

vmr.SymbolType:=l.Symbol.SymbolType;
vmr.Field:=fld.Name;
vmr.ValueCount:=strsUniqueValues.Count;
vmr.UseDefault:=false;
for a:=0 to strsUniqueValues.Count-1 do
begin
vmr.Value[a]:=strsUniqueValues.Item(a);
// showmessage(strsUniqueValues.Item(a));
end;

me gustaria que me expliques un poco mas que tengo que hacer para que funcione..