---

Hallo zusammen,

ich möchte ein vorhandenes Makro bei uns etwas überarbeiten. In diesem werden unter anderem SketchTexte in einer Skizze eingefügt und an einer Linie ausgerichtet. Leider ist dieser SketchText dann immer noch nicht vollständig positioniert und die Skizze bleibt unterdefiniert. Nun meine Frage, weiß jemand wie ich den Einfügepunkt des SketchTextes in VBA selektieren kann? Ich habe bisher bedauerlicherweise nichts passendes gefunden.

Viele Grüße
Torsten

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

---

Hi Torsten,

wie viele Skizzenelemente hat die Skizze denn?

Wenn in der Skizze nur die Linie und der Skizzentext vorhanden sind, könntest Du z.B. mit Sketch::GetSketchPoints2 die Skizzenpunkte holen (das sollten drei sein) und dann schauen, welcher noch keine Beziehungen hat. Das ist dann der von Deinem Text und Du kannst ihn fixieren o.ä.

Das funktioniert natürlich nur, wenn die Linienendpunkte definiert und keine weiteren Skizzenelemente vorhanden sind.

------------------
Grüße, RBE
----------

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

---

Hallo RBE,

vielen Dank für Deinen Vorschlag. Leider gibt es in der Skizze mehrere Linien, Kreise und Punkte. Aber dennoch hört es sich sehr interessant an. Wenn der SketchText eingefügt wird sollten alle anderen Punkte definiert sein. Damit müsste ich eigentlich den Punkt, wie von Dir vorgeschlagen, finden und auswählen können. Mal schauen ob ich es hinbekomme.

Viele Grüße
Torsten

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

---

Im Zweifelsfall kannst Du natürlich auch noch die Koordinaten abgleichen. Der Punkt, welcher nicht den End- bzw. Mittelpunktkoordinaten von Linien, Kreisen und Kreisbögen etc. entspricht, ist der Textpunkt.

------------------
Grüße, RBE
----------

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

---

Hallo RBE,

vielen Dank für Deine Antwort. Ich habe es jetzt so gemacht, dass ich den SketchText immer bei bestimmten Koordinaten einfüge und dann den Punkt bei diesen Koordinaten suche und weiter verwende. Hierzu habe ich mich etwas bei den Beispielen zu GetSketchPoints2 bedient.

Code:

---

vSketchPt = swSketch.GetSketchPoints2
    For i = 0 To UBound(vSketchPt)
        Set swSketchPt = vSketchPt(i)

        bRet = swSketchPt.Select4(True, swSelDataRS1)
       
        vSketchPtID = swSketchPt.GetID
       
        If swSketchPt.X = 0.2 And swSketchPt.Y = 0.2 Then
            skPointNameSPkt = "Punkt" & vSketchPtID(1)
        Else
       
        End If
       
    Next i

---

Viele Grüße Torsten

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