---

Hallo zusammen,

Mit folgendem Code erstelle ich eine Selection aller Text-Elemente:

Code:

---

Dim oDoc As Object
Dim oSS AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant

FilterType(0) = 0
FilterData(0) = "Text"

' Zeiger auf aktuelles Dokument
Set oDoc = ThisDrawing

' Selection-Set initialisieren
Set oSS = oDoc.SelectionSets.Add("VBA")
' Selection bilden
oSS.Select acSelectionSetAll, , , FilterType, FilterData

---

Das Funktioniert auch prima. Nun möchte ich die Einfüge-Koordinaten eines Elementes ermitteln:

Code:

---

oSS.Item(iZaehler)

---

Tja, und da steh ich auf dem Schlauch ...
Kann mir jemand helfen, wie der Code weitergeht?

Danke Helmut

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

---

Hi Helmut,

Zitat:

---

Nun möchte ich die Einfüge-Koordinaten eines Elementes ermitteln

---

Jedes Element (das gezeichnet wird) hat Koordinaten, aber nicht unbedingt 'Einfüge-Koordinaten', da musst Du dann nach Elementtyp unterscheiden.

Eine Linie hat Startpunkt und Endpunkt
Eine Polylinie hat mehrere Vertex-Punkte
Eine Blockreferenz hat einen Einfügepunkt
Ein Text hat einen Einfügepunkt und gegebenenfalls einen Ausrichtungspunkt
....

also was ist Dein primäres Ziel?

- alfred -

---

Hallo Alfred,

danke für deine schnelle Antwort. Ich benötige den Einfügepunkt eines Textelementes.

Helmut

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

---

Hi Helmut,
Versuch's doch mal so:

Code:

---

Dim oItem As AcadObject
Dim oPoint As Variant
Set oItem = oSS.Item(0)
oPoint = oItem.InsertionPoint

---

Ach ja, und nicht vergessen, den Auswahlsatz wieder zu löschen.
Und - es gibt auch ein VBA- Forum...

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 05. Jan. 2009 editiert.]

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

---

Hi,

bitte aufpassen, neben dem 'InsertionPoint' gibt's dann auch noch die Eigenschaft 'TextAlignmentPoint', die abhängig von der Textausrichtung statt dem InsertionPoint gültig ist!!

- alfred -

---

Super!

Danke Helmut

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