---

Hallo liebe Gemeinde,

ich hatte letztens schon mal wegen den Blockattributen geschrieben.

Bin jetzt mit meinem kleinen Programm zwar soweit klar, wenn es denn das richtige Ergebnis liefern würde.

Also ich möchte von meinen Blöcken den z-Wert auslesen und ihn in das angehängte Attributfeld einfügen.

Das mache ich damit: (Hatte ich hier schon mal im Forum gefunden).

Sub x()
 
  Dim elem As AcadEntity, ip
  For Each elem In ThisDrawing.ModelSpace                              If TypeOf elem Is IAcadBlockReference Then
            ip = elem.insertionPoint
       
Msgbox(ip (2))

Mein Problem ist nur, daß ich den Z-Wert vom Block brauche und nicht den vom Attribut....weil irgendwie sind die nicht auf gleicher Höhe.

Aber das mit dem InsertionPoint beim Block bekommen ich nicht hin. Wie muß man denn den InsertionPoint beim Block definieren? Offensichtlich anders als bei der Blockreference oder?

Wäre für jeden Hinweis dankbar.

Willynchen

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

---

Was du brauchst, ist mit Sicherheit der Einfügepunkt der Blockreferenz.
Aber natürlich haben die Attribute einer Blockreferenz einen eigenen Einfügepunkt (der auch in der Z-Höhe abweichen kann). Da muss man dann unterscheiden.

Den Block (die Blockdefinition) selbst gibt es ja nur ein einziges Mal, somit ist dessen Insertionpoint also genau nur ein Punkt.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Hallo Willynchen!

Den InsertionPoint eines Block kannst du genauso auslesen wie den InsertionPoint eines Attributes.
Eventuell hilft dir folgendes Codeschnipsel:

Code:

---

Dim varblockinsert As Variant             
Dim dblBlockInsert(0 To 2) As Double       

    varblockinsert = elem.InsertionPoint
    dblBlockInsert(0) = CDbl(varblockinsert(0))
    dblBlockInsert(1) = CDbl(varblockinsert(1))
    dblBlockInsert(2) = CDbl(varblockinsert(2))

---

Hier wäre nun in der Variable dblBlockInsert(2) der Z-Wert als double gespreichert.

mfg didi

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