---

Hallo Zusammen,

ich bin neu mit Solid Edge ST5 angefangen und habe die Aufgabe bekommen, die Eigenschaften zu ändern. Nun gibt es eine Textdatei, in der die Eigenschaften hinterlegt sind.

Eine Spalte heißt "Titel", in der man den Namen einträgt, in einer weiteren gibt es "Englische Benennung". Ich möchte nun, dass wenn ich den 'Titel Abdeckung' auswähle, automatisch in der Spalte 'Englische Bennenung Cover' steht.

Habe vor Uhrzeiten mal mit VB was zu tun gehabt, komme hier aber nicht weiter.

Die Datei sieht so aus:
_________________________________________________

\\ Benutzerdefinierte Eigenschaften bestimmen

\\ Inhalt der Liste Titel
Begin Title
Abdeckung;
Abheber;
Achse;
End Title

....

Begin Define Custom
define Veredelung;Text;
define Anpassung2;Zahl;
define Englische Benennung;Text;
define geprüft von:;Text;
define Stüli-Benennung;Text;
End Define Custom

...

\\ Inhalt der Englische Benennung Lexikon
Begin Englische Benennung
#;   
If [Titel = Abdeckung] then Englische Bennenung = COVER;
End If                 
COVER;                         
LIFTING DEVICE;
AXLE;
End Englische Benennung
_________________________________________________

Habe die IF-Verknüpfung unter dem Bereich 'Englische Bennenung' versucht.
Leider bringt das nichts, außer, dass ich den Text "if.... COVER" in meiner Tabelle auswählen kann.

Danke schon mal für die Hilfe.

Gruß, Linda

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

---

Zitat:

---

Original erstellt von MEYLIN1:
  
If [Titel = Abdeckung] then Englische Bennenung = COVER;
End If                 

---

Hallo Linda,
du musst das schon entsprechend anpassen. Im übrigen sind Leerzeichen bei Variablen nicht erlaubt.

Versuch es mal so

Code:

---

'Eigenschaften der Datei
'Begin Title
'Abdeckung;
'Abheber;
'Achse;
'End Title

Public Function Get_EngText(ByVal Title as string) as string
  
   Dim EngText as string

   If Title = "Abdeckung" then
      EngText = COVER
   elseif Title = "Abheber" then
      EngText = "LIFTING DEVICE"
   elseif Title = "Achse" then
      EngText = "AXLE"
   End If  

   return EngText 'oder Get_EngText = EngText

end function

oder besser

Public Function Get_EngText(ByVal Title as string) as string
  
   Dim EngText as string

   Select Case Title
      Case "Abdeckung" then
         EngText = COVER
      Case "Abheber" then
         EngText = "LIFTING DEVICE"
      Case "Achse" then
         EngText = "AXLE"
      Case Else
         EngText = "Nothing"
   End Select 

   return EngText 'oder Get_EngText = EngText

end function

---

Allerdings frage ich mich immernoch, ob das was du da programmierst überhaupt in Richtung vb geht. Es schaut nämlich eher in Richtung C/PHP aus, allerdings auch nicht eindeutig.   

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

[Diese Nachricht wurde von RSchulz am 24. Okt. 2012 editiert.]

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

---

Danke für die Antwort.

Habe es getestet, aber so ist die ganze If-Then Beziehung nicht zu sehen, nur der nächste Text und leider passiert nichts.

Hatte auch den Eindruck, dass es eine andere Sprache ist. War mir aber nicht sicher. Werde das erstmal klären.

aber trotzdem super danke!

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

---

Wäre mir neu, dass das geht.
Das ist nur eine Textliste, in der Begriffe definiert werden, die Solid Edge dann ausliest und in den entsprechenden Eigenschaften zur Auswahl stellt.

Aber wer weiß. Vielleicht lerne ich was dazu.  

------------------
Arne

[Diese Nachricht wurde von Arne Peters am 01. Nov. 2012 editiert.]

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