---

hallo!

ich möchte einen einzeiligen text an einem bestimmten punkt einfügen und zwar soll der text mittig auf dem punkt liegen. dazu verwende ich diesen code:

Dim text As AcadText
Set text = ThisDrawing.ModelSpace.AddText("text", insertPoint, 0.2)
    text.Alignment = acAlignmentMiddleCenter
    text.Rotation = Angle

insertPoint ist irgendwo bei 10/20/10 also x/y/z aber der text wird jedesmal auf 0/0/0 eingefügt. was mache ich falsch?

danke

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

---

Moin,
wenn Du Deinen code jetzt nicht bis zur Unkenntlichkeit zusammengekürzt hast, wundert mich, dass überhaupt etwas passiert.

Code:

---

Sub TextTest()
Dim textA As AcadText
Dim Angle
Angle = 0
Dim InsertPointA(0 To 2) As Double
InsertPointA(0) = 10#: InsertPointA(1) = 20#: InsertPointA(2) = 0#
Set textA = ThisDrawing.ModelSpace.AddText("text", InsertPointA, 0.2)
    textA.Alignment = acAlignmentMiddleCenter
    textA.TextAlignmentPoint = InsertPointA
    textA.Rotation = Angle
End Sub

---

Aufgemerkt: Punktabfrage (Befehl: ID) des Basispunktes des Textes gibt einen anderen Wert zurück, als der Teil "Geometrie" des Eigenschaftsfensters (Position X, Y, Z)

Schau Dir doch mal das Beispiel in der VBA-Hilfe zum Thema Alignment Example (unter Code Examples in der ActiveX and VBA Reference) an, das behandelt genau Deine Frage.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Du musst den Textalignmentpoint noch setzen. Siehe AutoCAD-Hilfe.
Hier mal schnell ein Beispiel ergoogelt:
http://www.mjtd.com/object/acad2004/ex_textalignmentpoint.htm

[EDIT] Link gefixt

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

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 08. Aug. 2009 editiert.]

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

---

DANKE EUCH!
SUPER FORUM!

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