https://foro.gambas-es.org/viewtopic.php?f=5&t=5100&p=29708#p29708
-----------------------------------
vuott
Domingo, 17 Enero 2016, 01:15

Re: LibreDWG En Gambas
-----------------------------------
[quote user="vuott" post="29700"]Aquì la su traducción a Gambas:
.......
Este codigo funziona.[/quote]

Bueno, [i]tincho[/i], busqué esta pagina web:
 https://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/autocad-sample-files.html

Tincho, intenta utilizar con el mi programito los archivos ejemplos que estan en:  " [i]AutoCAD 2010 Sample Files[/i] "  y mira la console lo que muestra.

saludos


......

opss   :oops: 
Compartiendo todo eso con los otros miembros del foro.    :roll: 

Bueno, amigos, como probar aquel mi codigo traducido de el C ?

[b]1[/b]) Descargad la libreria .so adjunta abajo (...claramente... descomprimidla).

[b]2[/b]) Pónedla en una carpeta (por ejemplo en: /tmp ).

[b]3[/b]) en un proyecto Gambas pegad este codigo:
[code linenumbers=false syntax=gambas]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[/code]

[b]4[/b]) descargad un archivo ejemplo en la sección  " [i]AutoCAD 2010 Sample Files[/i] " de esta pagina web:
https://knowledge.autodesk.com/support/autocad/downloads/caas/downloads/content/autocad-sample-files.html

[b]5[/b]) Usadlo en el codigo.

[b]6[/b]) Mirad lo que es escrito en console.


