vuott escribió:
Bueno, tincho, busqué esta pagina web:
https://knowledge.autodesk.com/supp...mple-files.html
Tincho, intenta utilizar con el mi programito los archivos ejemplos que estan en: " AutoCAD 2010 Sample Files " y mira la console lo que muestra.
saludos
......
opss
Compartiendo todo eso con los otros miembros del foro.
Bueno, amigos, como probar aquel mi codigo traducido de el C ?
1) Descargad la libreria .so adjunta abajo (...claramente... descomprimidla).
2) Pónedla en una carpeta (por ejemplo en: /tmp ).
3) en un proyecto gambas pegad este codigo:
Library "/tmp/libredwg:0.0.0" ' He puesto la libreria en /tmp !!!
' int dwg_read_file(char *filename, Dwg_Data * dwg)
Private Extern dwg_read_file(filename As String, dwg As Pointer) As Integer
Public Sub Main()
Dim filename_in As String
Dim p_dwg As Pointer
Dim err As Integer
filename_in = "/ruta/del/archivo.dwg"
' Asignación de memoria para el Puntero:
p_dwg = Alloc(2832)
' Lee el archivo .dwg:
err = dwg_read_file(filename_in, p_dwg)
If err Then
Error.Raise("Imposible leer el archivo " & filename_in & " !")
Else
Print "\n¡La lectura del archivo ha tenido éxito!"
Endif
' Libera la memoria:
Free(p_dwg)
End
' int dwg_read_file(char *filename, Dwg_Data * dwg)
Private Extern dwg_read_file(filename As String, dwg As Pointer) As Integer
Public Sub Main()
Dim filename_in As String
Dim p_dwg As Pointer
Dim err As Integer
filename_in = "/ruta/del/archivo.dwg"
' Asignación de memoria para el Puntero:
p_dwg = Alloc(2832)
' Lee el archivo .dwg:
err = dwg_read_file(filename_in, p_dwg)
If err Then
Error.Raise("Imposible leer el archivo " & filename_in & " !")
Else
Print "\n¡La lectura del archivo ha tenido éxito!"
Endif
' Libera la memoria:
Free(p_dwg)
End
4) descargad un archivo ejemplo en la sección " AutoCAD 2010 Sample Files " de esta pagina web:
https://knowledge.autodesk.com/supp...mple-files.html
5) Usadlo en el codigo.
6) Mirad lo que es escrito en console.