Count 1 if minimoz ctype listitemi puntolidarz then

Info icon This preview shows pages 21–25. Sign up to view the full content.

Count - 1 If Minimoz > CType (List.Item(i), PuntoLidar).z Then Minimoz = CType (List.Item(i), PuntoLidar).z End If Next Else minimoz = 0 End If End Function End Class
Image of page 21

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 22 Universidad de Salamanca La clase ListaLineas.vb queda: Guardamos el proyecto y Generamos la Biblioteca en Generar/Generar LidarBase. Recordamos que en la ruta \Visual Studio 2005\Projects\LidarBase\LidarBase\bin\ Release si guardamos el proyecto en la ruta por defecto nos habrá dejado el archivo LidarBase.dll. 5 Creación de la Biblioteca para Generar DXF. Creamos ahora una Biblioteca de Clases que nos permita automatizar la forma de exportar a DXF que utilizamos en uno de los ejercicios anteriores, para incorporar esta utilidad en futuras aplicaciones. Damos el nombre Biblio_A_DXF a la Biblioteca creada. En esta biblioteca vamos a necesitar la referencia a System.Windows.Forms. Lo añadimos desde Proyecto/Agregar referencia. Public Class ListaLineas Inherits System.Collections.CollectionBase Public Sub Add( ByRef linea As LineaLidar) List.Add(linea) End Sub Public Sub Remove( ByVal indice As Integer ) If indice > Count - 1 Or indice < 0 Then System.Windows.Forms.MessageBox.Show( "¡Linea fuera de rango!" ) Else List.RemoveAt(indice) End If End Sub Public ReadOnly Property Item( ByVal indice As Integer ) As LineaLidar Get Return CType (List.Item(indice), LineaLidar) End Get End Property End Class
Image of page 22
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 23 Universidad de Salamanca También la Biblioteca LidarBase.dll creada en el ejercicio anterior. En esta biblioteca tendremos una clase con nombre ListaFichero que contendrá la lista de las líneas que se escribirán en el DXF. Imports System.IO Imports LidarBase Public Class ListaFichero Inherits System.Collections.CollectionBase Public Sub Add( ByRef renglon As String ) List.Add(renglon) End Sub Public Sub Remove( ByVal indice As Integer ) If indice > Count - 1 Or indice < 0 Then System.Windows.Forms.MessageBox.Show( "¡renglon fuera de rango!" ) Else List.RemoveAt(indice) End If End Sub Public ReadOnly Property Item( ByVal indice As Integer ) As String Get Return CType (List.Item(indice), String ) End Get End Property Public Sub escribir_DXF( ByVal nombre_fich As String ) Dim escribir As New StreamWriter( New FileStream(nombre_fich, 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 Dim i As Integer For i = 0 To List.Count - 1 'Recorremos los renglones y los escribimos en el fichero escribir.WriteLine(List.Item(i).ToString) Next escribir.Close() 'cerramos el archivo End Sub
Image of page 23

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
Image of page 24
Image of page 25
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