---

Hi miteinander,

Problem ist folgendes;: wir haben für einen OEM ein Konstruktion
erstellt. Dieser OEM verwendet viele Parameter z.B. für die
Namenskonvention. Nun wollen wir dieses Konstruktion für einen
anderen OEM nutzen und jetzt kommen ständig Fehlermeldungen was alles
falsch ist. Deshalb sollen alle Parameter gelöscht werden um dann
die Konstruktion auf den neuen OEM nur noch anpassen zu müssen. Die
Parameter kann ich über das Script suchen und löschen:

Set oSel = oDocument.Selection

oSel.Search "type=Parameter, all"
oSel.Delete

Problem ist nur das es ewig dauert (Bei 20 Parts reden wir von über
2.000 Parametern). Deshalb will ich alle Parametersets suchen und
löschen. Aber wie     

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

---

Hallo,

so kannst Du nach ParameterSet suchen:

Code:

---

oSel.Search "CATKnowledgeSearch.AdvisorParameterSet,all"

---

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

---

Servus
Mal probiert nach dem ParameterSet zu suchen (der Makrorekorder hilft da weiter):

Code:

---

oSel.Search "CATKnowledgeSearch.AdvisorParameterSet,all"

---

Gruß
Bernd

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

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

---

Hey cool vielen Dank :-)
Ich habe über den Makrorekorder nichts brauchbares gefunden?!

Jetzt habe ich allerdings noch ein Problem.
Ich lösche alle Parameter und Relations so:

Set oSel = oDocument.Selection
    CATIA.HSOSynchronized=False

      oSel.Search "CATKnowledgeSearch.AdvisorRelationSet,all"
      oSel.Delete

      oSel.Search "CATKnowledgeSearch.AdvisorParameterSet,all"
      oSel.Delete

  CATIA.HSOSynchronized=True
End Sub

Jetzt kommt aber für jedes Parameter- RelationSet eine Meldung das
sich ausgeblendete Elemente darin befinden und ob ich diese wirklich
löschen will. Bei Baugruppen mit mehreren hundert Parts / Products
nervt das ziemlich. Kann man die automatisch alle mit ja beantworten
lassen oder das ganze irgendwie anders umgehen?

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

---

Hallo InFlames,

wenn du die Relations vor dem löschen ins Show holst entfällt die Fehlermeldung, und somit auch dein Problem.

Eine andere Lösung (aber nicht ganz so schön) ist, das der User einmalig mit ja beantwortet und dann die restlichen Meldungen mit gehaltener Enter-Taste bestätigt.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Hi also ich habe es jetzt so versucht, aber es passiert nichts?!
Also die Elemente werden alle selektiert aber weder ins Hide noch
ins Show gestellt.

oSel.Search "CATKnowledgeSearch.AdvisorRelation,all"
oSel.Hidden = False

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

---

Servus
Vermutlich muss du die Elemente (die Objekte) mit einer Schleife abarbeiten und "unhiden".
zB (ungetestet):

Code:

---

oSel.Search "CATKnowledgeSearch.AdvisorRelation,all"
for i = 1 to osel.count
  Set oRelation = osel.item2(i).value
  oReleation.Hidden = False
next

---

Gruß
Bernd

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

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

---

Hey super funktioniert xD

Set oDocument = CATIA.ActiveDocument
  Set oSel = oDocument.Selection
  CATIA.HSOSynchronized=False

'Alle Formeln suchen und sichtbar schalten / Relationsets suchen und löschen

  oSel.Search "CATKnowledgeSearch.AdvisorRelation,all"
      for i = 1 to oSel.count
      Set oRelation = oSel.item(i).value
      oRelation.Hidden = False
  next

On Error Resume Next
  oSel.Search "CATKnowledgeSearch.AdvisorRelationSet,all"
      oSel.Delete
      oSel.clear
On Error GoTo 0

'Alle Parameter suchen und sichtbar schalten / Parametersets suchen und löschen

  oSel.Search "CATKnowledgeSearch.InternalParameter,all"
      for i = 1 to oSel.count
      Set oParameter = oSel.item(i).value
      oParameter.Hidden = False
  next

On Error Resume Next
  oSel.Search "CATKnowledgeSearch.AdvisorParameterSet,all"
      oSel.Delete
      oSel.clear
On Error GoTo 0

CATIA.HSOSynchronized=True

      oDocument.Update

End Sub

Ein Problem gibt es jedoch noch...
...warum funktioniert oDocument.Update nicht?
Da kommt ständig die Fehlermeldung das der Befehl nicht unterstützt wird?!

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

---

Servus
Ein kleiner Blick in Doku hilft dabei.
Bei einem CATPart heißt es:

Code:

---

oDocument.Part.Update

---

bei einem CATProduct

Code:

---

oDocument.Product.Update

---

Gruß
Bernd

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

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

---

Danke xD. Ich kannte nur das Part.Update

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

---

Hallo InFlames,

kannst du bestätigen, das über

Code:

---

oSel.Search "CATKnowledgeSearch.InternalParameter,all"
      for i = 1 to oSel.count
      Set oParameter = oSel.item(i).value
      oParameter.Hidden = False

---

DesignTables nicht in Show gebracht werden?

Bei mir bleiben immer die DesignTabels im Now Show.

Hast du eine Idee wie man die DesignTables auch ins Show bekommt?

Gruß und ein frohes Fest.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Servus Uwe
Einfach den Suchstring anpassen, dass auch DesignTabels selektiert werden (der Makrorekorder hilft dabei). zB (ungetestet):

Code:

---

osel.Search "((CATKnowledgeSearch.DesignTableType + CATKnowledgeSearch.InternalParameter) + CATKnowledgeSearch.AdvisorFormula),all"

---

Dir auch frohe Weihnachten

Gruß
Bernd

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

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

---

23-12-201415-51-01.png

Hallo Bernd,

irgend etwas hab ich wohl falsch gemacht.
Fehler kommt in "Fett" geschriebener Zeile.

Code:

---

Sub CATMain()
Set oDocument = CATIA.ActiveDocument
  Set oSel = oDocument.Selection
  CATIA.HSOSynchronized=False

'Alle Formeln suchen und sichtbar schalten / Relationsets suchen und löschen
 
  oSel.Search "(CATKnowledgeSearch.DesignTableType + CATKnowledgeSearch.AdvisorRelationSet),all"
      for i = 1 to oSel.count
      Set oRelation = oSel.item(i).value
      oRelation.Hidden = False
  next

On Error Resume Next
  oSel.Search "(CATKnowledgeSearch.DesignTableType + CATKnowledgeSearch.AdvisorRelationSet),all"
      oSel.Delete
      oSel.clear
On Error GoTo 0

CATIA.HSOSynchronized=True

      'oDocument.Update

End Sub

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Servus
Bei der ersten Suche suchst du schon nach dem Set (AdvisorRelationSet). Dieses hat die Methode "hidden" nicht. Muss da "AdvisorFormula" rein?

Gruß
Bernd

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

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

---

Na klar Bernd,

da hat bei mit der Kopierteufel zugeschlagen.

Dank dir.

Frohes Fest

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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