---

Hallo Zusammen!

Ich habe mir ein Programm geschrieben, mit dem ich Blockattribute ein.-und auslesen kann.
Bislang habe ich dieses nur im Modelbereich benötigt.
Nun benötige ich diesen auch im Papierbereich (Layout1, Layout2, etc.).
Wie müßte der Source Code lauten, damit sich das ein.- bzw. auslesen der Blockattribute immer auf die aktive Seite bezieht.

Hier einige Auszüge aus meinem Programm:

Private Sub cmd1_Click()
...
'updaten der Attributswerte
UpdateAttrib 0, UserForm.tbo1.Text
UpdateAttrib 1, UserForm.tbo2.Text
...
'updaten des Blocks
ssnew.Item(0).Update
'löschen des Selections Sets
ThisDrawing.SelectionSets.Item("TBLK").Delete
End
End Sub

Private Sub UserForm_Initialize()
...
'der Name des zu filterden Blocks
TheBlock(0) = "Hoff_zk_01"
'finden des Blocks
ssnew.Select acSelectionSetAll, Pt1, Pt2, BlkGrp, TheBlock
'ist der Block gefunden
If ssnew.Count >= 1 Then
'übergeben der Blockattribute
Theatts = ssnew.Item(0).GetAttributes
'Anzeigen der Attribute in der Dialogbox
UserForm.tbo1.Text = Theatts(0).TextString
UserForm.tbo2.Text = Theatts(1).TextString
...
Exit Sub
Err_Control:
ThisDrawing.SelectionSets.Item("TBLK").Delete
End
End Sub

Vielen Dank im voraus.

Gruß Dirk

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

---

Code:

---

[...]
If ThisDrawing.ActiveSpace = acPaperSpace Then
  For Each ent In ThisDrawing.PaperSpace
  If ent.EntityName = "AcDbBlockReference" Then
    BlockObjAttributes = ent.GetAttributes
[...]

---

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Hallo Proxy!

Vielen Dank erstmal für Deine Hilfe!
Den Code verstehe ich soweit ja wohl, nur hab ich noch ein Problem damit, welche Codezeilen ich in meinem Programm ersetzen muß bzw. an welcher Stelle der neue stehen sollte.
"Wahrscheinlich sehe ich vor lauter Bäume den Wald nicht"

Ich hoffe Du kannst mir dieses erleutern.

Vielen Dank im voraus.

Gruß Dirk

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

---

Hilfe, Hilfe!!!

Kann mir da wirklich keiner auf die Sprünge helfen?

Gruß Dirk

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