---

Hallo,
hab ein kleines Addon programmiert welches über VBA auf ProE zugreift.
Funktioniert auch ganz gut, nur wenn man ProE geöffnet hat und dann das Tool zum "Ersten" mal (z.B. nach pc-Neustart) startet, bleibt das programm beim verbindung herstellen hängen.
nachdem man dann Proe nochmal neu gestartet hat funktioniert es einwandfrei.
an was kann das liegen? gibt es irgend eine option die man noch einstellen kann damit dies gleich funktioniert?

danke
gruß
MMM

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

---

Poste mal den Code den du in VBA benutzt vielleicht kann man dir dann weiterhelfen.

Grüße Onum

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

---

wie gesagt, der code funktioniert, nur bleibt er nach neustart bei  "Set conn = asynconn.Connect("", "", ".", 5)" hängen.

Private Sub list_drw_directory_Click()

Dim asynconn As New pfcls.CCpfcAsyncConnection
Dim conn As pfcls.IpfcAsyncConnection
Dim session As pfcls.IpfcBaseSession
Dim sPath As String

'Make an asynchronous connection with Pro/ENGINEER
Set conn = asynconn.Connect("", "", ".", 5)
'Get the current session
Set session = conn.session

'Pfad festlegen sPath und in Textbox(workingdirectory) schreiben
sPath = session.GetCurrentDirectory
workingdirectory.text = sPath

'Liste leeren
List1.Clear

'Left(pfad_ziel_vorl, InStrRev(pfad_ziel_vorl, "")
' *.drw  ermitteln
sFile = Dir$(sPath & "*.drw.*")
Do Until sFile = ""
  If sFile <> "." And sFile <> ".." Then
    List1.AddItem sFile
  End If
  sFile = Dir$
Loop

'Disconnect with Pro/ENGINEER
conn.Disconnect (2)

'clean
Set asynconn = Nothing
Set conn = Nothing
Set session = Nothing
Set oModel = Nothing

End Sub

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

---

Hallo

vielleicht hilft es
anstatt
        Dim conn As pfcls.IpfcAsyncConnection
        Dim conn As IpfcAsyncConnection = Nothing

einfach ausprobieren

folgender code Funktioniert bei mir

    Dim session As IpfcBaseSession
    Dim asyncConnection As IpfcAsyncConnection = Nothing
    Dim Proe As CCpfcAsyncConnection
    Dim model As IpfcModel
   
    Proe = New CCpfcAsyncConnection 
    asyncConnection = Proe.Connect("", "", ".", 5)
    session = CType(asyncConnection.Session, IpfcBaseSession)
    model = session.CurrentModel
    If model Is Nothing Then
    MsgBox("Kein Model im Hauptfenster:  ")
    End If
.
.
.
    asyncConnection.Disconnect(2)

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

---

danke,
hab das problem behoben, hatte die Umgebungsvariable als benutzervariable angelegt, diese hab ich jetzt als systemvariable gesetzt und jetzt geht es.

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