---

Hallo Leute.

Schreibe mich hier gerade warm... habe die Suchfunktion ausgiebig genutzt, aber auch hier nichts gefunden. Folgendes Problem:
Ein Firmeninternes Makro lief bis vor kurzem wunderbar (da ich erst kürzlich mein Diplom beendet habe und neu in der firma bin, muss ich das mal glauben)
Neuerdings geht das Makro aber nicht mehr und bricht an folgender stelle ab:

' Get the Products collection of the input Product
    Dim ChildrenProduct As Products
    Set ChildrenProduct = startProduct.ReferenceProduct.Products

Irgendwie mag er das ReferenceProduct nicht mehr.
das Makro läuft ohne Probleme durch, bis es folgenden Fehler ausgibt:

Source: CATIAProduct
Description: The ReferenceProduct Method failed

Ich nehme mal an das dies mit irgendeinem Hotfix or ServicePack zusammenhängt, kann es mir allerdings nicht erklären, da ich den Aussagen meiner Kollegen glaube, das es bis vor kurzem noch bestens funktionierte...
Also macht sich langsam ratlosigkeit breit.

Bin für jede Hilfe dankbar.

[Diese Nachricht wurde von Makronizer am 15. Sep. 2009 editiert.]

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

---

Hallo und willkommen im Forum,
nimm mal die Dim-Anweisung raus (einfach auskommentieren) -  vielleicht stößt sich V5 an der konkreten Variablen-Zuweisung.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

---

Hallo Jens,

das war auch meine erste Vermutung, leider lies sich dadurch das Problem nicht beheben... Das Makro läuft und unterbricht dann anscheinend völlig ohne Grund.

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

---

Hallo Makronizer,

so aus dem Stehgreif fallen mir 2 Fehlermöglichkeiten ein: Entweder es ist kein Part oder Product, wodurch auch kein ReferenceProduct existiert, oder es ist ein Part und es ist nur im Visualisation-Mode geladen.

Für eine genauere Aussagen wäre nützlich:
- Definition und Zuweisung für "startProduct"?
- Arbeit im Design- oder Visualiation-Mode?
- Was wird selektiert (Part, Product, model,...) und ist es Root-Part bzw. -Product oder Unter-Product oder untergeordnetes Part im Baum?

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Hallo Lusilnie,

Alle im Produkte und Parts sind im Design-Mode dargestellt. Der Code sieht bisher wie folgt aus:

'Wörter in PartNumber ersetzen:

Sub SearchStringsAndReplace (StartProduct, SearchSubString, NewSubString)

Dim ChildrenProduct

Set ChildrenProduct = StartProduct.ReferenceProduct.Products

Dim PartNumber
Dim ReplacedString
Dim isSearchStringReplaced
Dim CurrentDimension
Dim isAlreadyModified

'PartNumber auslesen:

PartNumber = StartProduct.PartNumber

'Ersetzen des gesuchten Strings durch neuen:

ReplaceSubString PartNumber, SearchSubString, NewSubString, ReplacedString, isSearchStringReplaced

If (1 = isSearchStringReplaced) Then
StartProduct.PartNumber = ReplacedString
isAlreadyModified = ArraySearch(StartProduct.PartNumber, TableModifiedDocuments)

If (isAlreadyModified = 0) Then
CurrentDimension = UBound(TableModifiedDocuments)
CurrentDimension = CurrentDimension + 1
ReDim Preserve TableModifiedDocuments(CurrentDimension)
TableModifiedDocuments(CurrentDimension) = StartProduct.PartNumber
End If

End If

If 0 = ChildrenProduct.Count Then
Exit Sub
End If

Dim nrChild
For nrChild = 1 To ChildrenProduct.Count

Dim CurrentProduct
Set CurrentProduct = ChildrenProduct.Item(nrChild)

SearchStringsAndReplace CurrentProduct, SearchSubString, NewSubString
CurrentProduct.Update
Next
End Sub
 
Gruß
Thomas

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

---

Edit:

Problem konnte eingeschränkt werden:
Das Makro läuft bis zu einem deaktivierten Part. Da dies bei Designmode des Obersten Produktes nicht automatisch mit in designmode gesetzt wird...
Da jedoch einige deaktivierten Parts vorhanden sind, muss ich diese ohne große Sucherei im Designmode darstellen... also wahrscheinlich Makro erweitern und wirklich alle Produkte durchsuchen und deaktivierte Parts im DesignModus darstellen...
So far so good... geht nicht, da die Makrofunktion genauso funktioniert, wie Product-> rechte Mousetaste->DesignMode... Deaktivierte Parts werden nicht im DesignMode dargestellt, daher funktioniert dort der "ReferenceProduct"-Ausdruck nicht.

Was tun? Die deaktivierten Parts sind an vielen Stellen im Strukturbaum zu finden, also mal eben alle seperat im DesignMode darstellen ist unmöglich.

[Diese Nachricht wurde von Makronizer am 16. Sep. 2009 editiert.]

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

---

Hallo,
es gäbe die Möglichkeit, alle Parts restriktiv in den Design Mode zu versetzen. Zum anderen könnte man deaktivierte Parts in einer Schleife mittels Resume Next-Anweisung und if Err.Number <> 0 überspringen.

SG

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
Private Seite
Xing
Kochbuch - CATIA V5 automatisieren

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

---

Danke für den Hinweis, werde mich mal daran wagen...
Habe bisher nicht so viele Makros programmiert, daher fehlt mir so ein wenig der Überblick was geht und was nicht... Falls es klappt, stelle ich das Makro selbstverständlich online

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