Cómo utilizar vb para leer datos en archivos gráficos en formato dxf

El archivo dxf es un archivo de intercambio de AutoCad y se puede abrir directamente con AutoCad. Los archivos dxf son archivos de código puro y se pueden leer directamente en secuencia en el entorno vb.

Por ejemplo: hay un archivo "1.dxf" en el directorio raíz de la unidad C

Inicie vb y cree un botón: Comando1

Doble- haga clic en el botón y haga clic en Ingrese el siguiente código:

Private Sub Command1_ Click()

Dim a As String 'Lee el contenido de una línea en el archivo

Dim i As Long ' Se usa para registrar el número de líneas

Dim j As Long 'Se usa para registrar cómo respondió el usuario al mensaje

Abrir "c:\1 .dxf" para entrada como n.° 1

i = 0

mientras no sea EOF(1)

entrada de línea n.° 1, a

i = i + 1

j = MsgBox("Line " & i & " Contents of line " & a, vbOKCancel + vbInformation)

'Al ejecutar este paso, si el usuario ingresa "OK", continúe, si el usuario ingresa "Cancelar", luego finalice el programa

'El usuario puede ingresar aquí el código de procesamiento para procesar la cadena leída

Si j = vbCancel Entonces

Fin

Fin

Fin

cerrar #1

Fin Sub