...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!
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"
Segnalibri