---

Hallo an Alle,

gibt es eine Möglichkeit den Einfügepunkt von AcadEntinity(Texte,MTexte,Blöcke) auszulesen ohne diese in die jeweiligen Objekttypen umzuwandeln? Weiß da jemand Rat?

Vielen Dank im Vorraus
Theo

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

---

Hallo Theo,

Grundsätzlich geht das schon. Alle Objekte sind ACADENTITY's.
Diese haben jedoch teilweise unterschiedliche Methoden und Eigenschaften.
Von daher musst du wenigsten nach dem Objekttype unterscheiden da einige Objekt für vermeintlich gleiche Eigenschaften unterschiedliche Bezeichnungen haben (Insert, Point).

Hab mal ein Code Schnipsel reingestellt.

Code:

---

      Select Case obj_ACAD_Entity.EntityType
            Case acText, acMText
                  winkel = obj_ACAD_Entity.Rotation
                  TxPkt = obj_ACAD_Entity.InsertionPoint
                  layer = obj_ACAD_Entity.layer
                  ...
            Case acBlock, acPoint
                  If obj_ACAD_Entity.EntityType = acBlock Then
                    winkel = obj_ACAD_Entity.Rotation
                    TxPkt = obj_ACAD_Entity.InsertionPoint
                  Else
                    winkel = 0
                    TxPkt = obj_ACAD_Entity.Coordinates
                  End If

---

Wilfried Stelberg

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Danke,

das war die Lösung. Mir ging es wirklich nur um den Einfügepunkt und der heist bei allen drei Objekttypen gleich.

Gruß, Theo

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

---

Hi Theo,

nur der Vorsicht halber, bei Texten, die nicht linksbündig sind, gibt es auch noch den 'TextAlignmentPoint'!

- alfred -

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