---

Unbenannt1.JPG

Hallo Gemeinde,

kann man den Befehl "Load" in Edit-Links (siehe Screenshot) per VBA automatisieren?
Denn wenn ich folgenden Code laufen lasse, dann findet dieser nur dann alle Links wenn diese vorher mittels des Load-Button in die Session geladen wurden.
(Es handelt sich um ein CATPart als ActDoc)

Code:

---

Sub Main()
    Dim oStiEngine As StiEngine
    Dim oStiDBItem As StiDBItem
    Dim oStiDBChild As StiDBChildren
   
    Set oStiEngine = CATIA.GetItem("CAIEngine")
    Set oStiDBItem = oStiEngine.GetStiDBItemFromAnyObject(CATIA.ActiveDocument)
    Set oStiDBChild = oStiDBItem.GetChildren

    Dim ostidbitem2 As StiDBItem
    Dim temp_Path As String
    Dim ik As Integer

    For ik = 1 To oStiDBChild.Count
        Set ostidbitem2 = oStiDBChild.Item(ik)
        temp_Path = ostidbitem2.GetDocumentFullPath

        If Err.Number = 0 Then
            MsgBox temp_Path & Chr(10) & oStiDBChild.LinkType(ik)
        End If
    Next
End Sub

---

Danke für jegliche Tips!

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

---

Servus

ggf reicht schon wenn du die verlinkten Dokumente über Documents.Read öffnest.

Gruß
Bernd

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

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

---

Hallo Bernd,

danke für deinen Beitrag!

Der Hintergrund ist: Ich möchte einen Check durchführen, ob alle Links des CATParts auf im PDM abgelegte CATParts zeigen. (Erkennbar am Dateinamen)
Ich weiß aber nicht von vornherein, ob das CATPart überhaupt Links hat und wo diese ggf. hinzeigen.

Die einzige mir bekannte VBA Funktion um Links zu lesen ist die oben gepostete.
Diese funktioniert aber nur, wenn über "Load" alle verlinkten Dokumente bereits geladen wurden.
Somit kann ich Documents.Read leider auch keinen Input geben.

Gibt es eine andere Möglichkeit an die Links zu kommen?

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

---

Hallo nochmal,

ich habe das Problem über:

Code:

---

CATIA.StartCommand (Links...)

---

und WINAPI gelöst. ;-)

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