Geotecnologías cartográficas en ingeniería y

Info icon This preview shows pages 29–31. Sign up to view the full content.

Geotecnologías Cartográficas en Ingeniería y Arquitectura Escuela Politécnica Superior de Ávila 29 Universidad de Salamanca Además de la Opción Abrir en el menú añadimos: En la opción Guardar en XYZ guardaremos en formato de texto delimitado por tabulaciones como en algún otro ejercicio. El código quedará: Para la opción guardar en DXF utilizamos la biblioteca creada. Nos quedará: Private Sub GuardarEnXYZToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarEnXYZToolStripMenuItem.Click SaveFileDialog1.Filter = "Archivos de Texto delimitado por tabulaciones(*.txt)|*.txt" 'Establecemos el formato de archivo de salida a *.txt If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'Abrimos el diálogo de guardar Dim linea As String Dim i As Integer Dim escribir As New StreamWriter( New FileStream(SaveFileDialog1.FileName, FileMode.OpenOrCreate)) 'Usamos la variable de tipo StreamWriter para asociarsela al fichero que nos han indicado. 'Le ponemos que nos abra o nos cree el archivo si no existiese 'Ponemos en el cuadro la ruta de guardar el nombre y ruta del archivo. For i = 0 To Listado.Count - 1 'Recorremos las filas del listado de puntos linea = Listado.Item(i).x.ToString & vbTab & Listado.Item(i).x.ToString & vbTab & Listado.Item(i).x.ToString 'Generamos una linea con las coordenadas de los puntos, el tabulador(vbTab) entre ellas y un salto de linea al final escribir.WriteLine(linea) 'Escribimos la linea generada en el fichero. Next escribir.Close() 'Cerramos el fichero escribir = Nothing End If End Sub Private Sub GuardarComoDXFToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarComoDXFToolStripMenuItem.Click SaveFileDialog1.Filter = "Archivo DXF(*.dxf)|*.dxf" 'Establecemos el formato de archivo de salida a *.dxf If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'Abrimos el diálogo de guardar Dim listafich As New ListaFichero listafich.agregar_comienzo() 'ESCRIBIMOS LA PARTE INICIAL
Image of page 29

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

Herram. Inf. para el Geoprocesado. Procesamiento y Gestión de datos Láser y Rádar Geotecnologías Cartográficas en Ingeniería y Arquitectura Escuela Politécnica Superior de Ávila 30 Universidad de Salamanca Probamos a ejecutar el Programa y vemos su uso con el archivo Andarax_Micro.xyz proporcionado. Ahora probamos a analizar los puntos en el menú incluimos: En la opción reducir por distancia mínima incluimos: listafich.agregar_Lista_Puntos(Listado, "Puntos" ) 'LLAMAMOS A LA FUNCIÓN QUE ESCRIBE LOS PUNTOS 'EL CODIGO SIGUIETE SERÍA UN EJEMPLO DE LA LLAMADA DXF PARA LINEAS 'CREAMOS UNA LINEA DEL PRIMER PUNTO AL ÚLTIMO Y SE LA AÑADIMOS A LA LISTA 'LUEGO AGREGAMOS LA LISTA DE LINEAS AL LISTADO DE INSTRUCCIONES PARA EL DXF 'Dim listali As New ListaLineas 'listali.Add(New LineaLidar(Listado.Item(0), Listado.Item(Listado.Count - 1))) 'listafich.agregar_Lista_Lineas(listali, "LINEAS", 5) listafich.agregar_fin() 'AGREGAMOS LA PARTE FINAL listafich.escribir_DXF(SaveFileDialog1.FileName) 'ESCRIBIMOS REALMENTE EN EL ARCHIVO End If End Sub
Image of page 30
Image of page 31
This is the end of the preview. Sign up to access the rest of the document.
  • Fall '18
  • Punto, Archivo, Triángulo, Número entero, La línea, Dxf

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern