---

Hallo miteinander!

Wie kann ich unter VB.net Attribute zu einer Blockdefinition hinzufügen?

Meine Blockdefinition erstelle ich innerhalb einer Transaction wie folgt:

Code:

---

Dim btrBlockDefModul As BlockTableRecord = New BlockTableRecord()
btrBlockDefModul.Name = p_Name

---

Danach füge ich sie meiner BlockTable hinzu:

Code:

---

blkDefId = bt.Add(btrBlockDefModul)
trans.AddNewlyCreatedDBObject(btrBlockDefModul, True)

---

Außerdem zeichne ich eine Polylinie in die Definition. Soweit klappt das auch alles.
Aber wie kann ich jetzt während meiner Transaction auch gleich meine Attribute definieren?

In dem "Block Editor" von AutoCAD würde dies ja über folgendes Fenster gehen:

Und zuvor in VBA ging es wohl auf folgende Weise:

Code:

---

Set Attribut = BlockDef.AddAttribute(dblHeigh, acAttributeMode, strPromt, InsertionPoint, strTag, strValue)

---

-----------------

Die Attribute der von diesem Block erstellten Referenzen sollten danach sicherlich auch änderbar sein, um die "Default" Attributwerte zu ändern?

Vielen Dank schon mal für die Hilfe!

Grüße, Sebastian

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

---

Hi Sebastian,

genauso, wie Du eine Polylinie der Blockdefinition hinzufügst, kannst Du auch eine Attributdefintion hinzufügen.

Code:

---

Dim tAttDefPnt As Geometry.Point3d = New Geometry.Point3d(0, 0, 0)
Dim tAttDefTextStyleID As DatabaseServices.ObjectId = tAcadDoc.Database.Textstyle
Dim tAttDef As DatabaseServices.AttributeDefinition = New DatabaseServices.AttributeDefinition(tAttDefPnt, "Vorgabe", "AttName", "Eingabeaufforderung", tAttDefTextStyleID)
btrBlockDefModul.AppendEntity(tAttDef)
trans.AddNewlyCreatedDBObject(tAttDef, True)

---

HTH, - alfred -

[EDIT] Fehler war in Code, korrigiert [/EDIT]

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 26. Okt. 2009 editiert.]

---

Das ging ja wieder mal wahnsinnig schnell! 

Ich denke das hilft mir weiter. Bei Fragen melde ich mich einfach.

Danke schön!

Sebastian

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