| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Attribute zu Blockdefinition hinzufügen (1850 mal gelesen)
|
sebastian. Mitglied
Beiträge: 90 Registriert: 03.09.2009 Windows XP Prof. SP3 AutoCAD 2010 Visual Studio 2008 / 2010 Prof.
|
erstellt am: 26. Okt. 2009 15:17 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied
|
erstellt am: 26. Okt. 2009 15:40 <-- editieren / zitieren -->
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.] |
sebastian. Mitglied
Beiträge: 90 Registriert: 03.09.2009 Windows XP Prof. SP3 AutoCAD 2010 Visual Studio 2008 / 2010 Prof.
|
erstellt am: 26. Okt. 2009 15:52 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|