Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Reaktion deaktivieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Reaktion deaktivieren (553 mal gelesen)
Criollo
Mitglied



Sehen Sie sich das Profil von Criollo an!   Senden Sie eine Private Message an Criollo  Schreiben Sie einen Gästebucheintrag für Criollo

Beiträge: 42
Registriert: 07.11.2008

erstellt am: 19. Okt. 2009 08:40    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

hab mal wieder ein kleines Skript Problem.
Ich möchte abhängig von einem bestimmten Parameter-Wert einige Reaktions in meinem CATPart deaktivieren.
Hierfür möchte ich ein Skript mit Argumenten nutzen, welches über eine andere Reaktion angestossen wird, wenn sich der obengenannte Parameter ändert.

Anbei mein Skript welches leider beim deaktivieren der Reaktion auf einen Fehler läuft. 

Set mypart = PN
Set mydoc = CATIA.ActiveDocument
Set mysel = mydoc.selection
Set paras = mypart.Parameters
Set relations = mypart.Relations
'************************************************************************
Dim text
text = "ML_"
'************************************************************************
'Objekt für Baureihe-Parameter setzen
For each para in paras
if para.name = mypart.name & "\Baureihe" then
Set b = para
Exit For
End if
Next
'************************************************************************
mysel.clear
mysel.Search"(Name=*ML* & CATKnowledgeSearch.AdvisorReaction),all"
If b.value = "Heavy" then
For index = 1 to mysel.count
mysel.item(index).deactivate
'mysel.item(index).hidden = true
mypart.Update
Next
else
For index = 1 to mysel.count
mysel.item(index).activate
'mysel.item(index).hidden = true
mypart.Update
Next
end if
mysel.clear
mypart.Update

End Sub

Wäre super wenn hierzu jemand einen Tip hat. 

Vielen Dank und Gruss aus München

Crio

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



Berechnungsingenieur FEM (m/w/d)

Das Familienunternehmen GRIMME ist seit 1861 im Dienste der Landwirtschaft tätig und steht für führende Technologien in der Kartoffel-, Rüben- und Gemüsetechnik. 3.100 Mitarbeiter tragen dazu bei, dass unsere Produkte die Kunden in über 120 Ländern der Welt begeistern. Raum für Kreativität, kurze Entscheidungswege, Teamgeist und Vertrauen sind die Erfolgsfaktoren, die uns zu einem weltweit führenden Hersteller machen....

Anzeige ansehenMaschinenbau
Criollo
Mitglied



Sehen Sie sich das Profil von Criollo an!   Senden Sie eine Private Message an Criollo  Schreiben Sie einen Gästebucheintrag für Criollo

Beiträge: 42
Registriert: 07.11.2008

erstellt am: 19. Okt. 2009 09:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

kaum schreibt man das Problem ins Forum, kommt man selber auf die Lösung.

Gehe nun einfach auf die Aktivitätsparameter der Reaktions, dann klappt es. Anbei mein Skript.

Set mypart = PN
Set mydoc = CATIA.ActiveDocument
Set paras = mypart.Parameters
Set relations = mypart.Relations
'************************************************************************
text = "ML_Reaction"
'************************************************************************
'Objekt für Baureihe-Parameter setzen
For each para in paras
if para.name = mypart.name & "\Baureihe" then
Set b = para
Exit For
End if
Next
'************************************************************************
'Je nach Baureihen Parameter, den Aktivitätsparameter der ML_Reaktions ändern
If b.value = "Heavy" then
For each para in paras
if InStr(para.name,text)  <> 0  then
para.Value = false
End if
Next
else
For each para in paras
if InStr(para.name,text)  <> 0  then
para.Value = true
End if
Next
end if
mypart.Update

End Sub

Gruss
Crio

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz