---

Hallo Zusammen

Kann mir jemand helfen wie kann ich das:

Code:

---

Sub CATMain()
Dim oPart As Part
Dim oParam As Parameter
Dim oSel As Selection
Dim oText As Text
Set oSel = CATIA.ActiveDocument.Selection
oSel.Search ("(Name=Insulation_Zone & Knowledgeware.Parameter),all")
Set oParam = oSel.Item(1).Value
oSel.Clear
oSel.Search ("(Name=Fire_and_Smoke_2 & (('Functional Tolerancing & Annotations'.Text + '2D Layout for 3D Design'.Text) + Drafting.Text)),all")
Set oText = oSel.Item(1).Value

Select Case oParam.ValueAsString

Case "ENDWALL"
    oText.Text = Chr(10) & "HL2 NL INL R1"
Case "SIDEWALL"
    oText.Text = Chr(10) & "HL2 NL INL R1"
Case "FLOOR"
    oText.Text = Chr(10) & "HL2"
Case "ROOF"
    oText.Text = Chr(10) & "HL3"
End Select

End Sub

---

mit Reaction verbinden?

Ich will die Textfeld mit Wert von Parameterwert abhängisch ändern.
wie:
if Paramwert=1 → textFeld.text= "Etwas1"
elseif Paramwert=2 → textFeld.text= "Etwas2" usw.

Gruß

Lukas

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

---

DRW_Reaction.PNG

Servus Lukas

Entweder ohne eine Reaction: zweiten Parameter erzeugen -> über Formel/Rule den Text des Parameter steuern -> per Attributverknüpfung Parameter mit Textfeld koppeln.

Per Reaction: siehe Bild

Gruß
Bernd

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

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