<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<br>
<div class="moz-forward-container"><br>
<br>
-------- Mensagem original --------
<table class="moz-email-headers-table" cellpadding="0"
cellspacing="0" border="0">
<tbody>
<tr>
<th valign="BASELINE" align="RIGHT" nowrap="nowrap">Assunto:
</th>
<td>Mover coordenadas em shapefile</td>
</tr>
<tr>
<th valign="BASELINE" align="RIGHT" nowrap="nowrap">Data: </th>
<td>Tue, 29 Apr 2014 15:11:34 -0400</td>
</tr>
<tr>
<th valign="BASELINE" align="RIGHT" nowrap="nowrap">De: </th>
<td>ASANTOS <a class="moz-txt-link-rfc2396E" href="mailto:alexandresantosbr@yahoo.com.br"><alexandresantosbr@yahoo.com.br></a></td>
</tr>
<tr>
<th valign="BASELINE" align="RIGHT" nowrap="nowrap">Para: </th>
<td><a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a></td>
</tr>
</tbody>
</table>
<br>
<br>
<pre>Bom tarde Pessoal,
Estou tentando mover as coordenadas de um arquivo shapefile
sem sucesso, preciso mover as coordenadas do meu polígono (que esta em
UTM), 1032m à esquerda e 280m para cima, tentei fazer operações
trigonométricas sobre os pontos da extensão *bdf, mas não consegui a
visualização em formato *shp, alguém conhece alguma função em algum
pacote para fazer isto ou teria alguma sugestão, segue CRM dos dados:
#Download do controno da área em shapefile
links <- c(
<a class="moz-txt-link-rfc2396E" href="https://www.dropbox.com/s/1oz5lhnk96jih3w/Tamandua288.dbf">"https://www.dropbox.com/s/1oz5lhnk96jih3w/Tamandua288.dbf"</a>,
<a class="moz-txt-link-rfc2396E" href="https://www.dropbox.com/s/6b3uygyrjhq1bby/Tamandua288.shp">"https://www.dropbox.com/s/6b3uygyrjhq1bby/Tamandua288.shp"</a>,
<a class="moz-txt-link-rfc2396E" href="https://www.dropbox.com/s/wntluhn8bi7us2f/Tamandua288.shx">"https://www.dropbox.com/s/wntluhn8bi7us2f/Tamandua288.shx"</a>)
tokens <- gsub("^.*/s/","",dirname(links))
fileNames <- basename(links)
newLinks <- file.path(<a class="moz-txt-link-rfc2396E" href="http://dl.dropbox.com/s">"http://dl.dropbox.com/s"</a>, tokens, fileNames);
newLinks
for (a in newLinks) {
tryCatch(download.file(a, dest=basename(a), mode='wb'),
error=function(...) print("Falha no
download!"))}
## Abrir e visualizar contorno
require(rgdal)
plotRGB(landa)
contorno_line <- readOGR(dsn="/Documents and
Settings/ASANTOS/Desktop/Percevejo GIS", layer="Tamandua288")
CRS.new <- CRS("+proj=utm +zone=23 +south +datum=WGS84 +units=m +no_defs
+ellps=WGS84 +towgs84=0,0,0")
contorno_line.WGS84 <- spTransform(contorno_line, CRS.new)
projection(landa)
projection(contorno_line.WGS84)
lines(contorno_line.WGS84,col="red")
Obrigado,
--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
<br>
</div>
<br>
</body>
</html>