---

Hallo @ all,

hier mal wieder nen Programm, wenn Ihr die Verknüpfungen ändern wollt aber Ihr keine Lust habt, die von Hand zu ändern.

Dim moSEApp As SolidEdgeFramework.Application
Dim ActSEDoc As Object
Dim mSEErrMsg As String
Dim lClCount As Long
Dim moVarTab As SolidEdgeFramework.VariableList
Dim mItem As Object, i As Long, L As Long, k As Long
Dim GetSEApp, GetSEDoc As Boolean
Dim Hilfe_Verknüpfung As CheckBox
Dim exVerknüpfung As String, exVerknüpfung1 As String, neueVerknüpfung As String, verä_Verknüpfung As String
Dim objVars As SolidEdgeFramework.Variables
Dim objVar1 As SolidEdgeFramework.Variable

  neueVerknüpfung = "hier muß der neue Ort stehen"
 
    Set moSEApp = GetObject(, "SolidEdge.Application")
    moSEApp.Visible = True

    GetSEApp = True

    If GetSEApp = False Then
        MsgBox "Solid Edge öffnen"
    End If
 
    If moSEApp.Documents.Count < 1 Then
        MsgBox "Ein Dokument muss geöffnet sein"
    End If
 
    Set ActSEDoc = moSEApp.ActiveDocument
 
    GetSEDoc = True

    Set moVarTab = ActSEDoc.Variables.Query("*")

    L = moVarTab.Count
   
    If L = 0 Then
        MsgBox "Keine Variablen vorhanden"
    End If
       
         
    moSEApp.DelayCompute = True

       
    For Each mItem In moVarTab
       
        i = i + 1
   
        'Else
       
            If Len(mItem.Formula) Then
         
    exVerknüpfung = Left(mItem.Formula, 120)
   
    exVerknüpfung1 = Mid(exVerknüpfung, 77, 120)
   
  verä_Verknüpfung = (neueVerknüpfung + exVerknüpfung1)
                       
    Set objVars = ActSEDoc.Variables
 
    mItem.Formula = verä_Verknüpfung

    End If
Next

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