Páginas (3):    1 2 3   
tincho   11-06-2021, 10:00
#11
(11-06-2021, 09:42)Shordi escribió: y nunca me he arrepentido de ello.
Claro que si.
Creo que uno en la vida comparte el tiempo con otros en diferentes circunstancias, y como antes de ver una película, no se puede saber de antemano si uno se sentirá a gusto o no, pero una vez que uno encuentra un buen sitio, hay que disfrutarlo, los buenos sitios son escasos.
Saludos.

Tercoide: clsDefaultJob o alguna otra clase hace algo al evento keypress, tal vez habria que limitarle esta capacidad y hacer algo en el sentido del pre-comando para que las teclas sean captadas en un solo sitio
Saludos.
Última modificación: 11-06-2021, 10:07 por tincho.

1 Saludo.
tercoide   06-12-2021, 01:18
#12
(11-06-2021, 10:00)tincho escribió: Tercoide: clsDefaultJob o alguna otra clase hace algo al evento keypress, tal vez habria que limitarle esta capacidad y hacer algo en el sentido del pre-comando para que las teclas sean captadas en un solo sitio
Saludos.

Tal vez un orden de prelacion, al estilo:
AppMain.KeyPress y luego, si AppMain no tiene nada que hacer con esa introduccion de texto, deriva los KeyPress a la clase hija que esta actuando

Retomo el programa con el objetivo de "terminarlo".
Última modificación: 06-12-2021, 01:20 por tercoide.

"Es mejor saber todo de muy poco que muy poco de todo" - anonimo
tincho   06-12-2021, 01:41
#13
(06-12-2021, 01:18)tercoide escribió: Retomo el programa con el objetivo de "terminarlo".

Ok, ayudo en lo que pueda.
Saludos.

1 Saludo.
vuott   06-07-2025, 12:22
#14
(10-06-2021, 20:15)tincho escribió: https://github.com/tercoide/GauchoCAD este es el repo de Tercoide 
Este repo no está activo más.

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
tercoide   07-07-2025, 12:59
#15
estoy usando esta:

https://github.com/tercoide/GambasCAD

"Es mejor saber todo de muy poco que muy poco de todo" - anonimo
tincho   27-07-2026, 14:15
#16
Hola @tercoide, espero que estes bien.

Luego de bastante tiempo vuelvo a tocar temas de CAD.
Descargue GambasCAD para "espiar" la exportacion a DXF [1] pero da un error en:
Public Function ImportModel
[Imagen: 4QeIX2Gl.png]
[1] Tengo un programa gambas de terminal que en base a unos parametros devuelve un plano, que de momento es en SVG, pero me piden que genere un DXF

Un saludo.
Última modificación: 27-07-2026, 16:29 por tincho.

1 Saludo.
tercoide   27-08-2026, 15:13
#17
Hola chiks!

Si, ese error es porque los archivos espejados con enlaces simbólicos no se suben a GitHub. Ahora el archivo stl.module ya forma parte del repo y si descargas lo ultimo, debería correr (salvo que me haya quedado otra cosa mas colgada).

Advertencia: estoy pasando el motor gráfico de OpenGL Lists , que esta deprecado, a lo actual que usa Shaders y VBO => hay glitches en los graficos!!!

"Es mejor saber todo de muy poco que muy poco de todo" - anonimo
tincho   30-08-2026, 11:50
#18
Sigue dando error pero en otra parte.

[Imagen: LDSjjIsl.png]

1 Saludo.
tercoide   30-08-2026, 16:53
#19
Como soft amateur que es, no chequea que estén todos los archivos en su lugar. En ese caso no encuentra la carpeta de los patrones de Hatch, que si están en mi PC pero no en una nueva instalación. Mala mía.

"Es mejor saber todo de muy poco que muy poco de todo" - anonimo
tincho   30-08-2026, 20:53
#20
Podes ponerle una subrutina que corra la primera vez que corre GambasCAD, algo asi como lo que uso en otro programa:

Código:
Private Sub FirstRun()

  Dim aDirs As New String[]
  Dim sDir As String
  '  Dim sTheme As String
  Dim o As DesktopFile[]

  '' Checking that the necessary directories exist, please add here all the directories that your application need.
  aDirs.Add(Config.AppDir)
  aDirs.Add(Config.AppDir &/ "readpst")

  '' Checking that the necessary directories exist
  For Each sDir In aDirs
    If Not Exist(sDir) Then
      Shell "mkdir -p " & sDir Wait
    Endif
  Next

  If Not Exist(Config.AppDir &/ "README.md") Then
    Copy "./README.md" To Config.AppDir &/ "README.md"
  Endif

   If Not Config.EnvDefaultApps.Exist("TextEditor") Then
    o = System.DeskApp2(["text/plain"], ["TextEditor"])
    If o.Count > 0 Then
      Config.EnvDefaultApps["TextEditor"] = o[0].ProgramName
    Endif
  Endif

  Config.EnvDistro = System.Distro()
  Inc Config.EnvRuns

End

Luego la variable Config.EnvRuns aumentara de valor y al arrancar ya no correrra mas.

Saludos.

1 Saludo.
Páginas (3):    1 2 3   
  
Usuarios navegando en este tema: 1 invitado(s)
Powered By MyBB, © 2002-2026 MyBB Group.
Made with by Curves UI.