---

Capture.PNG

Moin Zusammen,
ich versuche schon seit längerem, den Positional Link zwischen dem DRW Text heraus zubekommen, hat jemand eine Idee wie ich an diese Information herankomme??
Wenn ich Manuel mit der RMT auf dem Text gehe und dann "Query Links Object" aktiviere bekomme ich diese Info (siehe Bild)
Wäre super, wenn jemand hier weiterhelfen könnte!

Danke

Gruß Petermaen

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

---

Servus

.AssociativeElement sollte dir das Element liefern, auf dass sich die Postionsverknüpfung bezieht.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

OK, hatte ich schon mal ausprobiert, hat aber leider nicht funktioniert, muss ich das "AssociativeElement " in die Schleife nehmen oder nur aufrufen??

Text.Name & Text.Type hat funktioniert.

Wie muss ich das denn aufrufen??

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

---

Servus

Welche Schleife?

Code:

---

Set LinkedElement = MyText.AssociativeElement
MsgBox LinkedElement.Name
MsgBox TypeName(LinkedElement)

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

....schleife hat sich erledigt, wenn man es so aufrufen kann ;-)

"LinkedElement" kennt das VBA Script nicht und ich finde es auch nicht in dem Object Browser.

Danke für deine Unterstützung, Top!

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

---

Servus

Ich hab den Fehler im obigen Code verbessert (LinkedElement statt AssociativeElement)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

...bekomme eine Fehlermeldung "The method AssociativeElement failed"

habe hier ein Teil meines Scriptes zur Verfügung gestellt ;-)

                selection1.Search "(.Text.Name=* & ..Visibility=Shown) ,sel"
                nSelect = selection1.Count
                If selection1.Count > 0 Then
                    ReDim sel_itemsRef(nSelect)
                    For III = 1 To nSelect
                    Set sel_itemsRef(III) = selection1.Item(III).Value
                    Next
                    TextItem = ""
                    For IIII = 1 To nSelect
                        TextName = UCase(sel_itemsRef(IIII).Name)
                        TextItem = sel_itemsRef(IIII).Text
                        TypeFrame = sel_itemsRef(IIII).FrameType

                        If TypeFrame = 7 Or TypeFrame = 17 Then
                            ActiveSelection.Clear
                            ActiveSelection.Add sel_itemsRef(IIII)
                           
                            Rem LinkText = sel_itemsRef(B).AssociativeElemente
                           
                            Set LinkedElement = sel_itemsRef(IIII).AssociativeElement
                            MsgBox LinkedElement.Name
                            MsgBox TypeName(LinkedElement)
                           
                        End If
                    Next
                End If

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

---

...nach dem ich es erneut versucht habe, hat es geklappt, er gibt aber immer nur ein Link heraus, obwohl zwei vorhanden sind, denke es muss doch in einer Schleife, oder??

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

---

Servus

Um was für Links handelt es sich?
Zeigt mal ein Bild des "Query Link Panel" mit mehr als einem Link.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

...die Dimensions links zeigt er an, aber die Geometrical Tolerance leider nicht.

Bild folgt

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

---

...also die Links aus dem Bild oben, was ich hochgeladen habe, die Links leitet er nicht ab.

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

---

Servus

Ich vermute/befürchte dass .AssociativeElement nur bei Elementen funktioniert auf die per Makro zugegriffen werden kann. (zB andere Texte oder 2D-Elemente)
Dies ist bei Elementen die aus dem 3D sind, oder zB geometrischen Toleranzen nicht möglich.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Feierabend, morgen mehr ;-) Danke Bernd

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

---

Moin Bernd,

scheinbar ist es so, dass "AssociativeElement" nur 2D Dimensions abgreifen kann und die Links zum Geometrical Tolerance Tabelle, die auf der Zeichnung ist scheinbar nicht, oder hast du noch eine Idee??

Gruß Thomas

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

---

Servus Thomas

Ich befürchte das geht nur mit CAA.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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