Preparamos ahora el código necesario para cargar y

Info icon This preview shows pages 38–41. Sign up to view the full content.

Preparamos ahora el código necesario para cargar y dibujar los puntos: Private Sub AbrirToolStripMenuItem_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click OpenFileDialog1.Filter = "Archivos Ascii(*.asc)|*.asc|Archivos de Texto(*.txt)|*.txt|Todos los Archivos|*.*" 'Le indicamos los filtros que aparecerán al seleccionar los archivos. asc, txt, o todos. OpenFileDialog1.ShowDialog() 'Mostramos diálogo de Abrir Dim leer As New StreamReader( New FileStream(OpenFileDialog1.FileName, FileMode.Open)) 'Creamos la variable de tipo StreamReader que nos permitirá manejar el fichero 'la variable se crea a partir otra de tipo FileStream asociada al archivo seleccionado y 'Abiendo el archivo Private Sub frm_visor_Resize( ByVal sender As Object , ByVal e As System.EventArgs) Handles Me .Resize VdF_visor.Width = Me .Width - 15 'Igualamos el ancho del visor al ancho del formulario VdF_visor.Height = Me .Height - 65 'Igualamos el alto End Sub
Image of page 38

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 39 Universidad de Salamanca Podemos entender el funcionamiento del código a partir de los comentarios en el mismo. Podemos utilizar las herramientas del menú inferior para cambiar de vista, etc. Vamos a escribir el código para guardar el documento creado. En la versión de evaluación solo nos permite guardarlo en formato “vdml” , pero podemos utilizar la aplicación Vector Draw File converter para convertir a DWG , DGN o DXF entre otros. El código sería: Dim linea As String Dim vdf_punto As New VectorDraw.Geometry.gPoint 'Variable de la clase punto que proporciona vector Draw. 'Es la misma idea que la clase punto3D que nos creamos nosotros en la biblioteca de clases de la introducción VdF_visor.BaseControl.ActiveDocument.[New]() ' Creamos un documento nuevo Dim punto(2) As String 'Vector de tres cadenas para guardar la X,Y,Z de cada punto Do linea = leer.ReadLine 'Leemos una linea del fichero If Not linea Is Nothing Then 'Si la linea no está vacia punto = Split(linea, vbTab, 3) 'Separamos con la función Split la linea por la posición del separador "tabulador" 'Limitamos el número de trozos a 3 para no desbordar el vector If punto.Length = 3 Then 'Si no hay tres coordenadas descartamos el dato vdf_punto.x = CDbl (punto(0)) 'Ponemos en la coordenada x del punto de vector Draw el valor leido vdf_punto.y = CDbl (punto(1)) 'Igual en la y vdf_punto.z = CDbl (punto(2)) 'Igual en la Z 'VdF_visor.BaseControl.ActiveDocument.ActivePenColor.SystemColor = Color.Yellow 'Forma de indicar el color con colores del sistema VdF_visor.BaseControl.ActiveDocument.ActivePenColor.TrueColor = RGB(0, 255, 255) 'Indicamos el color en RGB VdF_visor.BaseControl.ActiveDocument.CommandAction.CmdPoint(vdf_punt o) 'Dibujamos el punto End If End If Loop Until linea Is Nothing 'Repetimos hasta que linea sea vacia que se habrá terminado el fichero leer.Close() 'Cerramos el fichero leer = Nothing VdF_visor.BaseControl.ActiveDocument.CommandAction.Zoom( "e" , Nothing , Nothing ) 'Hacemos zoom Extension End Sub
Image of page 39
Herram. Inf. para el Geoprocesado.
Image of page 40

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

Image of page 41
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