---

Fehler_InstanceName.png

Hallo,
ich bins mal wieder und hab ein Problem in VBA.
Habe versucht ein Makro zu schreiben, welches den InstanzeName umbenennt.
Hierfür gibt es ein Texteingabefenster, in das der Test, der ersetzt werden soll eingegeben wird Eingabe zB. "XXXX", dann erscheint ein weiteres Eingabefenster in der der neue Text eingegeben wird (Bsp.Eingabe: "YYYY")und nun soll bei allen InstanceName eines Produkts XXXX mit YYYY ersetzt werden.

Ich habe das gleiche Makro zum Umbenenne der PartNumber geschrieben, dort funktioniert es einwandfrei(Makro PartNumber siehe unten).Dieses habe ich hergenommen und will es so abändern, das anstatt der PartNumber der InstanceName geändert wird.

Makro zum Umbenennen der PartNumber (funktioniert einwandfrei):                                                       
Sub traverse(Prod, origstr, newstr)
  set refp = Prod.ReferenceProduct
  if instr(refp.PartNumber, origstr) then
    newpnum = Replace(refp.PartNumber, origstr, newstr)
    refp.PartNumber = newpnum
  end if
  Set prods = Prod.Products
  pc = prods.Count
  If pc > 0 then
    For i = 1 to pc
      traverse prods.Item(i), origstr, newstr
    Next
  End If
End Sub

Sub CATMain()
  Set actProd = CATIA.ActiveDocument.Product
  origstr = Inputbox ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Suche und Ersetze (Suche)")
  newstr = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Suche und Ersetze (Ersetze)")

  traverse actProd, origstr, newstr

End Sub

Abgeändertes Makro zum Umbenennen des InstanceNames:
                                                       
Sub traverse(Prod, origstr, newstr)
  set refp = Prod.ReferenceProduct
  if instr(refp.InstanceName, origstr) then
    newpnum = Replace(refp.InstanceName, origstr, newstr)
    refp.InstanceName = newpnum
  end if
  Set prods = Prod.Products
  pc = prods.Count
  If pc > 0 then
    For i = 1 to pc
      traverse prods.Item(i), origstr, newstr
    Next
  End If
End Sub

Sub CATMain()
  Set actProd = CATIA.ActiveDocument.Product
  origstr = Inputbox ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Suche und Ersetze (Suche)")
  newstr = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Suche und Ersetze (Ersetze)")

  traverse actProd, origstr, newstr

End Sub

Leider funktioniert das nicht. Die beiden Eingabefelder erscheinen, aber dann kommt Fehlermeldung (siehe Anhang).
Kann mir bitte nochmal jemand helfen?

Gruß Svenja

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

---

Hi Svenja,

setze den Workmode der Produkte vor dem Zugriff auf die Instanzen auf 'Default', zB:

Code:

---

oADP.ApplyWorkMode DEFAULT_MODE                  'set work mode to expose P/N

---

wobei vorher

Code:

---

Dim oADP As Product

---

definiert wurde.

Zur weiteren Inspiration kannst auch die VBA-Makros
http://catia2.cad.de/index.php/de/downloads/skripts-applikationen/398-instanceequalname-instanzen-an-produktnamen-angleichen
http://catia2.cad.de/index.php/de/downloads/skripts-applikationen/446-insteqnameonelevel-instanzen-der-kinder-produkte-angleichen
studieren.

Tschau,
Joe

PS: Das scheint bei Dir aber eher Catscript zu sein und nicht VBA!

------------------
Inoffizielle Catia Hilfeseite

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

---

Servus Svenja
Bitte Systeminfo ergänzen. Bitte Code in entsprechenden Tags posten.
Die Eigenschaft InstanceName gibt es nicht, versuch mal nur Name.
In diesem Fall musst du ggf sogar nichtmal mit Prod.ReferenceProduct auf das Urspungselment wecheln, Prod ist in diesem Fall ja schon die Instance.
Dazu bitte auch mal in die Doku (V5Automation.chm) schauen.
Wenn du den Instance-Name an die PartNumber angleichen willst, schau dir mal dieses Makro an.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Fehler_InstanceName2.png

Oh stimmt, natürlich ist das CatiaSkript.

Habs hinzugefügt, allerdings ohne Erfolg!

Hier das Skript (und im Anhang die Fehlermeldung):
Sub traverse(Prod, origstr, newstr)
  set refp = Prod.ReferenceProduct

Dim oADP As Product
oADP.ApplyWorkMode DEFAULT_MODE

  if instr(refp.InstanceName, origstr) then
    newpnum = Replace(refp.InstanceName, origstr, newstr)
    refp.InstanceName = newpnum
  end if
  Set prods = Prod.Products
  pc = prods.Count
  If pc > 0 then
    For i = 1 to pc
      traverse prods.Item(i), origstr, newstr
    Next
  End If
End Sub

Sub CATMain()
  Set actProd = CATIA.ActiveDocument.Product
  origstr = Inputbox ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Suche und Ersetze (Suche)")
  newstr = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Suche und Ersetze (Ersetze)")

  traverse actProd, origstr, newstr

End Sub

Kannst du mir bitte nochmal weiterhelfen

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

---

Hi Svenja,

ich hab die zwei Code-Zeilen bei einem eigenen Makro rauskopiert.
Die musst natürlich an Deine vorgegebenen Verhältnisse angleichen;
spetiell:
Statt oADP musst den bei Dir für das bearbeitete Produkt verwendeten Variablennamen einsetzen.
Die Dim (von mir) ist dann überflüssig.

Tschau,
Joe

------------------
Inoffizielle Catia Hilfeseite

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