Pagina 3 di 3 PrimaPrima 123
Risultati da 21 a 23 di 23
  1. #21
    Moderatore L'avatar di PlannerRoad
    Iscritto da
    2007
    Messaggi
    4632
    Professione
    Variabile
    Regione
    Italia
    Software
    AutoCAD 2012

    Predefinito

    Citazione Originariamente Scritto da Shape Visualizza Messaggio
    ...Io giuro mi sto impegnando per mettermi sotto, ma con il VBA ancora sotto mano non ce la faccio proprio a complicarmi la vita al cubo... grgrgrgrgrggrgrgr
    Zitto e studia senza lamentarti, che poi ti daremo tanti esercizi da fare a casa!

  2. #22
    Utente Senior L'avatar di Shape
    Iscritto da
    2007
    Messaggi
    1205
    Professione
    Disegnatore Carpenteria
    Regione
    Friuli
    Software
    Autocad, VBA-AutoLisp, Tecnometal4D, GIMP

    Predefinito

    Citazione Originariamente Scritto da PlannerRoad Visualizza Messaggio
    Zitto e studia senza lamentarti, che poi ti daremo tanti esercizi da fare a casa!
    Ci sto provando per osmosi... ma non sembra funzionare molto !!!



    C'è da dire però che oltre a vari "contro" il VB.NET sembra un po' stabile essendo anche più rigido e incasinato al cubo.

  3. #23
    Utente Standard
    Iscritto da
    2011
    Messaggi
    34
    Professione
    progettazione
    Regione
    friuli
    Software
    autocad, cadworx, solidworks

    Predefinito Accedere ai layer

    come accedere ai layer per visualizzarne le proprieta':

    Codice:
    Private Function get_layxdata() As Array
            Dim myXdata As Array = Nothing
            Using db As Database = ThisDatabase
                Using tr As Autodesk.AutoCAD.DatabaseServices.Transaction = tr_start
                    Using lt As LayerTable = tr.GetObject(db.LayerTableId, OpenMode.ForRead)
                        Using r As LayerTableRecord = tr.GetObject(lt("0"), OpenMode.ForRead)
                            If r.XData <> Nothing Then
                                myXdata = r.XData.AsArray
                            End If
                            tr.Commit()
                        End Using
                    End Using
                End Using
            End Using
            Return myXdata
    End Function
    in questo esempio specifico chiedo gli xdata attaccati al layer "0"

    Saluti.

Pagina 3 di 3 PrimaPrima 123
  • Discussioni Simili

    1. Un suggerimento FEM - Aerodinamica
      Di gcm981 nel forum Modelli 3D e risorse varie dedicate ai progettisti meccanici
      Risposte: 2
      Ultimo Messaggio: 19-11-2009, 02: 36
    2. usare jpg come suggerimento per modellazione
      Di LorenzoDedalo nel forum Creo Parametric - Modellazione di parti e Lamiera
      Risposte: 2
      Ultimo Messaggio: 17-03-2009, 09: 32
    3. suggerimento (appiattimento)
      Di bboxster73 nel forum Creo Parametric - Modellazione di parti e Lamiera
      Risposte: 10
      Ultimo Messaggio: 18-01-2009, 13: 37
    4. suggerimento su come procedere
      Di wellold nel forum Creo Parametric - Modellazione di parti e Lamiera
      Risposte: 3
      Ultimo Messaggio: 23-04-2008, 15: 46
    5. Assiemi e pallinatura qualche suggerimento
      Di oloap72 nel forum Creo Parametric - Messa in tavola
      Risposte: 7
      Ultimo Messaggio: 13-03-2008, 09: 00

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  




    CAD3D.it - la community dei progettisti