---

Ma.jpg

Hallo zusammen ich möchte mittels einer Formel in einem Eigenschaftsdatensatz den richtigen Rohraussendurchmesser für eine Rohrklasse anzeigen lassen.
Vorgehensweise
Ich zeichne eine MEP Schemalinie, über die Auswahl Stil kann ich drei Rohrklassen (RK001-Stahlrohr/RK002-Kupferrohr/RK003-HT-Rohr)auswählen. Der Schemalinie wird dann ein Eigenschaftsdatensatz "Rohrklasse" angehängt. Darin kann die Nennweite (DN) mittels Pulldown ausgewählt werden. Jetzt soll je nach Rohrklasse der richtige Aussendurchmesser z.B. ein Rohr RK001 DN100 = 114mm oder RK002 DN100 = 108mm usw. zugeordnet werden. Ich denke das Geht mit einer if/then Funktion oder. Ich hänge eine Tabelle an mit der es vielleicht etwas deutlicher wird.

Vielen Dank im Voraus

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

---

Hallo,
mal grob zusammengebastelt müsste es so funktionieren.

Code:

---

Select Case [Rohrklasse]
  Case "RK001"
        Select Case [DN]
          Case "100"
            RESULT = "114"
          Case "65"
            RESULT = "76,1"
          Case Else
            RESULT = ""
        End Select
  Case "RK002"
        Select Case [DN]
          Case "100"
            RESULT = "108"
          Case "65"
            RESULT = "74"
          Case Else
            RESULT = ""
        End Select
  Case "RK003"
        ....
  Case Else
      RESULT = ""
End Select

---

Das ist bei den wenigen Tabelleninhalten noch überschaubar. Aber bei mehreren Einträgen müsste man sich was anderes überlegen.

Gruß Josch

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

---

Sorry, die Rohrklasse ist ja schon definiert. Dann müsste es so funktionieren

Code:

---

Select Case [DN]
  Case "100"
        Select Case [Rohrklasse]
          Case "RK001"
            RESULT = "114"
          Case "RK002"
            RESULT = "108"
          Case "RK003"
            RESULT = "110"
          Case Else
            RESULT = ""
        End Select
  Case "65"
        .... usw
  Case Else
      RESULT = ""
End Select

---

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

---

Besten Dank, hat funktioniert 

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