---

Hallo zusammen,

Hätte jemand eventuell ein Beispiel, wie ich die Attribut Daten
aller in der Zeichnung befindlichen Blöcke mit VB.NET
in eine bestimmte Datenbank schreiben kann? 

Gibt's eigentlich irgendwo eine Hilfe zu der Syntax?

------------------
Gruß Jörn

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ich und die anderen,

hab natürlich die alte Weisheit nicht berücksichtigt.
"Erst suchen dann fragen" und schon hab ich einen zwei
Jahre alten Tip von Mapcar gefunden.

Hier gibt es zumindestest einen kleinen Einführungskurs: http://usa.autodesk.com/adsk/servlet/index?siteID=123112&id=1911627

------------------
Gruß  Jörn

[Diese Nachricht wurde von yamaha am 13. Sep. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jörn,

... wie gesagt "Nutze bitte ausgiebig die  Autodesk-.NET-Group

dort findet man mit dem Suchbegriff "Blockattribut" z.B. folgendes:

a) wenn Du den Blocknamen kennst:

Code:

---

Dim db As Database = HostApplicationServices.WorkingDatabase
Dim t As Transaction = db.TransactionManager.StartTransaction()
Dim blkname As String = "E6534-11"
Dim bt As BlockTable = CType(t.GetObject(db.BlockTableId, OpenMode.ForRead), BlockTable)
Dim btr As BlockTableRecord = CType(t.GetObject(bt(blkname), OpenMode.ForRead), BlockTableRecord)
Dim oic As ObjectIdCollection = btr.GetBlockReferenceIds(False, False)
Dim br As BlockReference = CType(t.GetObject(oic(0), OpenMode.ForRead), BlockReference)
Dim ac As Integer = br.AttributeCollection.Count
Dim i As Integer
For i = 0 To ac - 1
  Dim ar As AttributeReference
  ar = CType(t.GetObject(br.AttributeCollection(i), OpenMode.ForRead), AttributeReference)
  MsgBox(ar.TextString)
Next
t.Commit()
t.Dispose()

---

b) alle Blöcke einer Zeichnung
- entweder durch iterieren
- oder mit SelectionSets arbeiten (Bsp. auch im Autodesk-Forum)

Gruß Mario

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP