---

Guten Morgen,
ich habe eine Reaktion erstellt und möchte den Parameter "Schraubenlaenge" in abhängigkeit von "Schraube_dia" steuern.
Sprich :
Habe ich einen "Schrauben_dia" von 10 (was dann ner M10 Schraube entspricht) lass mir nur die Möglichkeiten 10,12,16,20 usw. im Auswahlfenster des "Schraubenlaenge" Parameters.

Wie folgt schaut mein Skript aus:
"
Set Case_Param = MyParameters.Item("Schrauben_dia")
Set OutputList_Param = MyParameters.Item("Distanzrohrlaenge")

if Case_Param.Value = 6 then
Redim Values_Table(11) As Variant
Values_Table(0) = 10
Values_Table(1) = 12
Values_Table(2) = 16
Values_Table(3) = 20
Values_Table(4) = 25
Values_Table(5) = 30
Values_Table(6) = 35
Values_Table(7) = 40
Values_Table(8) = 45
Values_Table(9) = 50
Values_Table(10) = 55
Values_Table(11) = 60

Elself Case_Param.Value = 8 Then
Redim Values_Table(13) As Variant
Values_Table(0) = 12
Values_Table(1) = 16
Values_Table(2) = 20
Values_Table(3) = 25
Values_Table(4) = 30
Values_Table(5) = 35
Values_Table(6) = 40
Values_Table(7) = 45
Values_Table(8) = 50
Values_Table(9) = 55
Values_Table(10) = 60
Values_Table(11) = 65
Values_Table(12) = 70
Values_Table(13) = 80

Elself Case_Param.Value = 10 then
Redim Values_Table(14) As Variant
Values_Table(0) = 16
Values_Table(1) = 20
Values_Table(2) = 25
Values_Table(3) = 30
Values_Table(4) = 35
Values_Table(5) = 40
Values_Table(6) = 45
Values_Table(7) = 50
Values_Table(8) = 55
Values_Table(9) = 60
Values_Table(10) = 65
Values_Table(11) = 70
Values_Table(12) = 80
Values_Table(13) = 90
Values_Table(14) = 100
End If

OutputList_Param.Value = Values_Table(0)
OutputList_Param.SetEnumerateValues Values_Table

End sub

"

Die Fehlermeldung die als Antwort kommt sobald ich in einer Konstruktionstabelle versuche eine andere Kombination zu wählen, lautet:
"
Die Scriptmaschine..folgenden Fehler gemeldet
Anweisungsende erwartet
Anweisung: Elself Case_Param.Value = 8 Then
"

Kann mir jemand sagen warum das Ganze nicht funktioniert?

mfG
TRIZ

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

---

Hallo Tritz,

das KeyWord sollte "

Code:

---

ElseIf

---

" mit "I" und nicht mit "l" heißen 

Gruß Daniel

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Ohje, das nenn ich mal peinlich 

Vielen Dank, ich wusste schon garnichtmehr weiter!

mfG
TRIZ

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

---

Hallo,

am besten findest du solche Fehler wenn du dir den Code in den Visual Basic Editor (Alt+F11) kopierst. Hier gibt es eine automatische Syntaxprüfung welche solche Fehler grafisch visualisiert (Schriftfarbe = rot)

Gruß Daniel

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

BTW Wenn man den VB-Code markiert (hier im Forum) und den dann mit dem UBB-Tag Code (siehe im Erstellungsfenster links) versieht, sieht man auch den Unterschied zwischen l und I

Else lf
Else If

Code:

---

Else lf
Else If

---

[Diese Nachricht wurde von Thomas Harmening am 04. Nov. 2013 editiert.]

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