Autor
|
Thema: Code If Parameter (676 mal gelesen)
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 22. Okt. 2015 20:06 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich möchte in einem parameterset prüfen, ob ein bestimmter Parameter gewählt ist ( z. b. Parameterwert 60_grad_links) und wenn das der Fall ist, soll in einem geometrischen set, der genauso heißt wie der Parameter geprüft werden, ob Joins aktiv sind. Alle aktiven Joins von dort sollen in ein geometrisches set kopiert werden, der auch wieder wie der Parameter heißt aber als unterset vom Set "Output" steht. Geht so was? Das copy paste Kriege ich noch hin, aber dann hört es auf leider. Danke! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 23. Okt. 2015 10:07 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
Servus Machbar ist dass mit Sicherheit. Ich finde das Vorgehen aber etwas komplex. Was soll damit bezweckt werden? ggf kann die Methodik verbessert/vereinfacht werden. Gruß Bernd
------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 23. Okt. 2015 10:18 <-- editieren / zitieren --> Unities abgeben:
Servus, leider ist die Struktur und das Vorgehen in der Art strickt vorgegeben, daran darf ich nichts ändern. Mein größtes Problem ist, wie ich diesen If Then Ausdruck für den Parameter schreiben soll. If oParameters.Item(Lenkzustand).Value="60_grad_links" Then Selection1.Search."Name=60_grad_links".Activity=True Selection1.Copy Next Selection2.Search."Name=Output & "60_grad_links" Selection1.Paste Ist das wenigstens ansatzweise richtig? Grüße! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 23. Okt. 2015 11:04 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
Hallo, versuch mal so (ohne getestet): Code: If oParameters.Item("Lenkzustand").Value="60_grad_links" Thenselection1.Search "(CATGmoSearch.GSMAssemble.Activity=TRUE & CATGmoSearch.GSMAssemble.Name=60_grad_links),all" selection1.Copy selection1.Search "CATGmoSearch.OpenBodyFeature.Name=Output,all" Set hybridbody1 = selection1.item(1).value.Hybridbodies.item("60_grad_links") selection1.clear selection1.add hybridbody1 selection1.PasteSpecial "CATPrtCont" End if
[Diese Nachricht wurde von imation1999 am 23. Okt. 2015 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 23. Okt. 2015 11:15 <-- editieren / zitieren --> Unities abgeben:
|