---

Hallo liebe CAD-Community,
ich habe ein Problem bei der Progrmmierung einer Inputbox mit Auswahlmenü.
Die Programmiersprache ist CATScript. Die Inputbox funtkioniert an sich,ich habe nur
ein Problem mit der Ausgabe. Es schreibt mir nicht den Text in den Parameter sondern meine
Eingabe. Hat jemand vielleicht eine Lösung?

Vielen Dank!

'Oberfläche/Zusatzangabe einfügen

DasMenu="Zusatzangabe" +Chr(10)+_
" "+Chr(10)+_
"1 verzinkt" +Chr(10)+_
"2 gehärtet 53+6 HRC" +Chr(10)+_
"3 nitriert"

Antwort = InputBox(DasMenu,"Auswahl:")
If IsNumeric(Antwort) then
  select case Antwort
      case 1
          MsgBox "Du hast den ersten Eintrag gewählt."
      case 2
        MsgBox "Du hast den zweiten Eintrag gewählt."
      case 3
        MsgBox "Du hast den dritten Eintrag gewählt."
      case else
        MsgBox "Den Eintrag gibt es nicht!",16
  end select
else
  MsgBox "Falsche Eingabe. Nur Nummern sind erlaubt."
end If

Dim parameters16 As Parameters
Set parameters16 = part1.Parameters
Dim strParam16 As Parameter
Set strParam16 = parameters16.Item("Oberfläche/Zusatzangabe")
'####strParam16.Value = InputBox("Oberfläche/Zusatzangabe eingeben: ", "Eigenschaften ausfüllen",0 )
strParam16.Value = Antwort

------------------
Gruß
EckBonito

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

---

Servus

Probier es mal so (ungetestet):

Code:

---

Set strParamSurface = parameters16.Item("Oberfläche/Zusatzangabe")
If IsNumeric(Antwort) then
  select case Antwort
      case 1
        strParamSurface.Value = "verzinkt"
      case 2
        strParamSurface.Value = "gehärtet 53+6 HRC"
      case 3
        strParamSurface.Value = "nitriert"
      case else
        MsgBox "Den Eintrag gibt es nicht!",16
  end select
else
  MsgBox "Falsche Eingabe. Nur Nummern sind erlaubt."
end If

---

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für die schnelle Antwort. Ich konnte es nicht nutzen habe aber deinen Gedankengang bzw. Ansatz
verstanden und es zum laufen gebracht.

'Oberfläche/Zusatzangabe einfügen

DasMenu="Zusatzangabe" +Chr(10)+_
" "+Chr(10)+_
"1 verzinkt" +Chr(10)+_
"2 gehärtet 53+6 HRC" +Chr(10)+_
"3 nitriert"

Antwort = InputBox(DasMenu,"Auswahl:")
If IsNumeric(Antwort) then
  select case Antwort
      case 1
          Antwort1 = "verzinkt"
      case 2
        Antwort1 = "gehärtet 53+6 HRC"
      case 3
        Antwort1 = "nitriert"
      case else
        MsgBox "Den Eintrag gibt es nicht!",16
  end select
else
  MsgBox "Falsche Eingabe. Nur Nummern sind erlaubt."
end If

Dim parameters16 As Parameters
Set parameters16 = part1.Parameters
Dim strParam16 As Parameter
Set strParam16 = parameters16.Item("Oberfläche/Zusatzangabe")
strParam16.Value = Antwort1

------------------
Gruß
EckBonito

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