---

Guten Morgen Zusammen,

in eine VBA-Project kriege ich immmer eine Fehlemeldung bei CATMultiSelTriggWhenUserValidatesSelection:
"Compile error: Error in loading DLL"

Was mache ich falsh?

Code:

filter(0) = "AnyObject"
  oSel = UserSelektion.SelectElement3(filter, "Bitte selektieren Sie / ESC zum Abbrechen", True, CATMultiSelTriggWhenUserValidatesSelection, False)
If oSel = "Normal" Then

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

---

Hallo,

hast du mla unter Tools -> Verweise nachgesehen ob der entsprechende Verweis als "MISSING" gekennzeichnet ist. Falls dies der Fall ist (z.B. weil der Verweis umgezogen wurde, das Projekt auf einem anderen Rechner erstellt wurde, etc.) musst du den Verweis explizit nachladen (auch über Tools -> Verweise)

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo Daniel,

vielen Dank für die Antwort.
Ich habe unter ..Program Files\Dassault Systemes\B16\win_b64\code\bin.. nachgesehen, aber fand ich das "CATMultiSelTriggWhenUserValidatesSelection"  dll nicht!
Komisch, weil es in CATScript funktioniert.

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

---

Hallo,

das ist ganz und gar nicht komisch. Das Ganze ist in einer Enumation nahmens CATMultiSelectionMode. Diese ist in die InfTypeLib.tlb zu findes. Die *.tlb Datei ist eine Typbibliothek (öffentliche Schnittstelle). D.h. du musst auch nach dem Verweis "InfTypeLib.tlb" suchen und diesen hinzufügen (VBA).

Eine zweite Möglichkeit ist den direkten Wert (Long) zu überben. Hierzu muust du folgende Zeile so abändern:

Code:

---

oSel = UserSelektion.SelectElement3(filter, "Bitte selektieren Sie / ESC zum Abbrechen", True, 2, False)

---

Hier der Auszug aus dem Objektbrowser
Const CATMultiSelTriggWhenUserValidatesSelection = 2

Eine Frage noch:
Arbeitest du mit Late oder mit Early Binding?

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

"InfTypeLib.tlb" kann ich leider nicht hinzufügen!
"Can't remove control or reference; inuse"

Zitat:

---

Arbeitest du mit Late oder mit Early Binding?

---

Das weiss ich leider nicht, ich bin noch Anfänger im VB.

[Diese Nachricht wurde von imation1999 am 23. Jul. 2012 editiert.]

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

---

Hallo,

dann versuche doch mal den Long-Wert zu übergeben. Jetzt noch die ausstehende Erklärung:

Early Binding: Alle Objekte werden mit deren Expliziten Typ deklaratiert (z.B. Dim objSel as Selection)

Late Binding: Alle Objekte werden mit dem Master-Objekt-TYp deklariert (z.B. Dim objSel as Object)

In VBA benötigt man diese Art (Late Binding) von Deklarationen machmal da manche Funktionen der Objekte von VBA als restricted deklariert sind. Gibt es z.B. einmal ein CATIA Objekt und ein gleichnamiges VBA-Objekt kann VBA sonst nicht entscheiden welches die deklarierst. Der NAchteil ist allerdings das es keine QuickInfo / Intelli-Unterstützung gibt.

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Hallo,

vielen Dank für Deine Antwort.

Schon funktioniert es:

Code:

---

const CATMultiSelTriggWhenUserValidatesSelection=2

oSel = UserSelektion.SelectElement3(filter, "Bitte selektieren Sie / ESC zum Abbrechen", True, 2, False)

---

Danke nochmal!
   

[Diese Nachricht wurde von imation1999 am 27. Jul. 2012 editiert.]

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