---

Hallo Alle,

ich habe eine Programm mit einen IF Befehl. Und zwar folgendes:

Ich habe zwei Produkte LH Produkt und RH Produkt. Ich versuche einen Makro zu erstellen der die Produkte mit einander vergleicht. In RH können die gleichen Bauteile verbaut werden wie in LH oder aber auch spiegelteile. Die spiegelteile unterscheiden sich in der Benennung. Falls das Bauteil aus LH nicht in RH vorhanden ist soll eine Sub Routine gestartet werden, der Prüft ob das Bauteil evtl mit andere (Spiegel) Nummer existiert.

Code:

---

'check LH content against RH
FOR n = 1 TO nrOfLHChildren
Set ProdToCheck = LHAssy.Products.Item(n)
ProdToCheckName = ProdToCheck.PartNumber
IF (RHAssy.Products.Item(ProdToCheckName)) = False Then
MirrorPartCheck ProdToCheck
Exit Sub
End If
Next

---

Erklärung des Codes:
nrOfLHChildren = Anzahl der Kinder von LH Produkt
LH[RH]Assy = LH[RH] Produckt

Nun bricht das Makro immer beim IF ab, verständlich, aber ich finde keine Lösung.

Ideen?

Vielen Dank im Voraus...

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

---

Zitat:

---

Original erstellt von DasDon:

Code:

---

'check LH content against RH
FOR n = 1 TO nrOfLHChildren
Set ProdToCheck = LHAssy.Products.Item(n)
ProdToCheckName = ProdToCheck.PartNumber
IF (RHAssy.Products.Item(ProdToCheckName)) = False Then
MirrorPartCheck ProdToCheck
Exit Sub
End If
Next

---

---

Hallo,
versuch es mal so...

Code:

---

'check LH content against RH
FOR n = 1 TO nrOfLHChildren
Set ProdToCheck = LHAssy.Products.Item(n)
ProdToCheckName = ProdToCheck.PartNumber
IF (RHAssy.Products.Item(ProdToCheckName)) = Nothing Then
MirrorPartCheck ProdToCheck
Exit Sub
End If
Next

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Objekte auf Nothing prüfen tut man meines Wissens nach mit is, also

IF (RHAssy.Products.Item(ProdToCheckName)) is Nothing Then

Wenn Du eine Fehlermeldung bekommst erleichtert das unsere Hilfsleistung imemr ungemein, wenn Du diese auch mitteilst, denn in denen Steht oft, wenn man die Erfahrung hat, die Antwort. :-)

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Henry hat recht...Objekte können nur mit einem

If objXXX is Nothing then
...
End If

geprüft werden. Die Verwendung des Operator "=" ist nicht zulässig!

------------------
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

---

Vielen Dank erstmal für die Hilfe.
Leider hat es nicht funktioniert.

Als fehler meldung bekomme ich:
Source: CATIAProducts
Description: The method Item failed.
Line: 49. (also das IF Line)
Column: 1

Als Lösung kann ich natürlich einen Array erstellen mit alle Kinder von RHAssys und vergleiche diese dann mit hilfe einer FOR-Schleife gegen ProdToCheckName. Aber das ist umständlich und würde das Macro erheblich verlangsamen. Des Wegen schaue ich nach alternativen Lösungen.
Gibt es einen IF EXISTS für das Spezifikationenbaum? ich kenne es nur in Verbindung mit Dateien.

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

---

Hm... habe jetzt auch nicht alles im Kopf, aber Der Aufruf von Item ist falsch.

Das kann meiner Meinung nach drei Ursachen haben:

1. RHAssy ist gar kein Produkt
2. die Item-Methode gibt es nicht
3. Ein Item mit dem Wert <ProdToCheckName> gibt es nicht

Da Du letzteres ja sowieso prüfen willst und ich unterstelle, dass der Rest richtig ist, würde ich es so machen:

Code:

---

'check LH content against RH
dim objBuffer as object
FOR n = 1 TO nrOfLHChildren
Set ProdToCheck = LHAssy.Products.Item(n)
ProdToCheckName = ProdToCheck.PartNumber
set objBuffer = nothing
on error resume next
set objBuffer = RHAssy.Products.Item(ProdToCheckName)
on error goto 0
IF (objBuffer is Nothing) Then
MirrorPartCheck ProdToCheck
Exit Sub
End If
Next

---

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Zitat:

---

Original erstellt von HoBLila:
Objekte auf Nothing prüfen tut man meines Wissens nach mit is, also

---

Ja geht teilweise auch anders, aber egal... Hast aber natürlich Recht und ich wohl zu wenig Zeit 

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Mit dem Error Handler lässt es sich gut abfangen. Vielen Dank für die Antwort.
Gruß,

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