---

Hallo,

ich versuche die Programmierumgebung für VBA einzurichten und habe folgendes Problem, das ich einfach nicht geregelt bekomme:

Mein Programm läuft beim ersten mal durch, bei der zweiten Ausführung bekomme ich aber die Fehlermeldung "Die Methode GetTypeInfo für das Objekt ICpfcAsyncConnection ist fehlgeschlagen" beim Aufrufen der asynchronen Verbindung. Das ent- und neuregistrieren der VB-API hilt nichts. Nach einem Neustart geht es wieder.

Weiß jemand, was ich falsch mache?

Hier mein Programm, das ich aus einer Excel-Datei aufrufe und an ein bereits laufendes Creo(Pro/E) anhängen möchte:

--------------------------------------------------------------------
Sub Macro1()

Dim ParaOwner As IpfcParameterOwner
Dim parameter As IpfcParameter
Dim parameters As IpfcParameters
Dim Value As IpfcParamValue
Dim solid As IpfcSolid
Dim solidproperties As IpfcMassProperty

Dim asyncConnection As IpfcAsyncConnection
Dim cAC As New CCpfcAsyncConnection
Set asyncConnection = cAC.Connect(Null, Null, Null, Null)

Dim session As IpfcBaseSession
Set session = asyncConnection.session

Dim model As IpfcModelItemOwner
Set model = session.CurrentModel()

Dim modelitems As IpfcModelItems
Set modelitems = model.ListItems(EpfcModelItemType.EpfcITEM_FEATURE)

Dim Feature As IpfcFeature
Dim Axes As IpfcModelItems

For i = 0 To modelitems.Count - 1
    Set Feature = modelitems(i)
    If Feature.FeatType = EpfcFeatureType.EpfcFEATTYPE_HOLE Then
        Set Axes = Feature.ListSubItems(EpfcModelItemType.EpfcITEM_AXIS)
    End If
Next

End Sub
--------------------------------------------------------------------

Es wäre super, wenn sich jemand meines Problems annehmen könnte!

Vielen Dank schon mal im Vorraus!
Michael

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

---

Hallo,
mal versuchen, nach dem ersten erfolgreichen Durchlauf im Taskmanager den Prozess pfclscom.exe manuell zu beenden.
Ich bin mir nicht sicher ob das die Lösung ist, aber ich hatte schon mal ein ähnliches Problem
Man kann es dann übrigens vermeiden, wenn man als letze Zeile im Programm die Verbindung trennt, mit Funktion .disconnet des Objektes asyncConnection.
Mfg CK

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

---

klappt jetzt wunderbar, vielen Dank! 

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

---

Versuch es mal mit

asyncConnection.Disconnect(2)

am Ende.

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