---

Hallo,
ich hätte eine Frage bezüglich eines Makros mit Bedingungen.
Ich würde gerne mir abhänig von Auswahlfenster ET_Herstellung entweder die Positionsnummer oder die Katalognummer ausfüllen lassen.
Sobald es ein Nacharbeit-Teil ist soll es mir die ET_Positionsnummer ausfüllen, ansonsten die ET_Katalognummer. Das nicht ausgewählte Feld soll ansonsten leer bleiben.
Ist dies überhaupt möglich?

strParam1.Rename "ET_Bezeichnung"

part1.Update

Set relations1 = part1.Relations

Set formula1 = relations1.CreateFormula("Formula.7", "", strParam1, "`1234567__0100.0001_ABCDE\Part Number` ")

formula1.Rename "Formula.7"

Set parameters2 = part1.Parameters

Set strParam2 = parameters2.CreateString("", "")

strParam2.Rename "ET_Positionsnummer"

part1.Update

Set relations2 = part1.Relations

Set formula2 = relations2.CreateFormula("Formula.8", "", strParam2, "`ET_Bezeichnung` ->Extract(10,9)")

formula2.Rename "Formula.8"

formula2.Modify "`ET_Bezeichnung` ->Extract(9,9)"

formula2.Rename "Formula.8"

Set parameters3 = part1.Parameters

Set strParam3 = parameters3.CreateString("", "")

strParam3.Rename "ET_Katalognummer"

Set relations3 = part1.Relations

Set formula3 = relations3.CreateFormula("Formula.9", "", strParam3, "`ET_Bezeichnung` ->Extract(0,9)")

formula3.Rename "Formula.9"

Set parameters4 = part1.Parameters

Set strParam4 = parameters4.CreateString("", "")

Dim arrayOfVariantOfBSTR1(3)
arrayOfVariantOfBSTR1(0) = "Kaufteil"
arrayOfVariantOfBSTR1(1) = "Kaufteil Nacharbeit"
arrayOfVariantOfBSTR1(2) = "Standardteil"
arrayOfVariantOfBSTR1(3) = "Standardteil Nacharbeit"
strParam4.SetEnumerateValues arrayOfVariantOfBSTR1

strParam4.Value = "Kaufteil"

strParam4.Rename "ET_Herstellung"

End Sub

Vorab schon einmal Danke für eure Antwort.
Gruß

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

---

Servus
Willkommen im Forum.
Willst dass beim ausführen des Makros nur eine Formel erstellt wird?
Oder Formeln angelegt werden die je nach Anwendungsfall nur den einen Parameter ausfüllen (und der andere soll leer bleiben?))?

Gruß
Bernd

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

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

---

Hallo,
danke für die schnelle Antwort.
Am besten wäre eine hinterlegte Formeln die jede nach Anwendungsfall entscheidet und den Parameter ausfüllt oder entsprechend leer lässt.

Gruß Stefan

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

---

KWE_Rule_Fallunterscheidung.png

Servus Stefan
Hast du eine KWA-Lizenz? Wenn ja geht dies über eine Regel(Rule), siehe Bild.
Per Makro geht das Anlegen über die Methode CreateProgram. Ein Beispiel dazu findest du in der Doku.

Gruß
Bernd

PS: Wenn du in der Formel die PartNumber verwenden möchtest: schau dir mal diese Diskussion an

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

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

---

Hallo Bernd,
eine KWA-Lizenz besitze ich leider nicht.
Kann ich auch anderweitig ein if/else Bedingung als Formel anlegen?
Gruß

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

---

Mithilfe eines Lays (Schalter "fog" findet sich unter dem Button Design Table) kann eine Fallunterscheidung angelegt werden:
Law.1
if (FormalSchenkellaenge < 100) {FormalLochabstand=10}else {FormalLochabstand=15}
Ist etwas gewöhnungsbedürftig und gibt nur Real aus.

Auswerten kann man das Law mit der Formel für den Parameter Lochabstand_horizontal
Lochabstand_horizontal=Relations\Rule.1.Evaluate(Laenge_Schenkel_horizontal/1mm) * 1mm

Der Tipp stammt von einer Seite www.cad-gaenssler.de , die den Catia Teil leider offline genommen hat.
Aufzurufen ohne Bilder unter:
http://web.archive.org/web/20150503100900/http://www.cad-gaenssler.de:80/catia-tipps/fallunterscheidungen-ohne-kwa-lizenz.html

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

---

Der Vollständigkeit halber hier ein aktiver Link zur Anleitung der Fallunterscheidung
http://news.cad.de/pdf/TTV50901.pdf

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