Y-Achse mit den Namen aller Kurven darstellen

Question

Hallo,
bei Diadem10.1 funktioniert die unten stehende Funktion nicht mehr. (@@AllAxisChannelNamesandUnits@@)
Wie kann ich die y-Achse mit den Namen aller Kurven beschriften, die gegen die Achse aufgetragen werden?
Primäre Software: DIAdem
Primäre Software Version: 10.0
Primäre Software festgelegte Version: N/A
Sekundäre Software: N/A
Problem: Gibt es eine Möglichkeit an die y-Achse eines 2D-Achsensystems die Namen aller Kanäle zu schreiben die gegen diese Achse aufgetragen werden?
Lösung: Melden Sie eine der unten aufgeführten Anwenderfunktionen an und tragen Sie als Achsenbeschriftung folgenden Text ein:
Funktion für Kanalnamen:
@@AllAxisChannelNames@@
bzw.
Funktion für Kanalnamen und Einheit:
@@AllAxisChannelNamesandUnits@@
Die Anwenderfunktionen für die gewünschten Ausgabe sind:
'1.Ausgabe aller Kanalnamen:
Function AllAxisChannelNames
  Dim lChnNoT,lCurveT
  AllAxisChannelNames = ""
  Call GraphObjOpen(GraphObjName)
  For lCurveT = 1 To CURVENOMAX
    if ( 0 = Len(D2CURVEOBJ(lCurveT)) ) Then Exit For
    if D2AXISPAIRNO(lCurveT)= CurrAxisNo then
    If ( 0 < Len(AllAxisChannelNames) ) Then AllAxisChannelNames =AllAxisChannelNames & ", "
      lChnNoT = CInt(D2CHNY(lCurveT))
      AllAxisChannelNames = AllAxisChannelNames & Chnname(lChnNoT)
    end if
  Next
  Call GraphObjClose(GraphObjName)
End Function
'2. Ausgabe aller Kanalnamen und Einheiten:
Function AllAxisChannelNamesAndUnits
  Dim lChnNoT,lCurveT
  AllAxisChannelNamesAndUnits = ""
  Call GraphObjOpen(GraphObjName)
  For lCurveT = 1 To CURVENOMAX
    if ( 0 = Len(D2CURVEOBJ(lCurveT)) ) Then Exit For
    if D2AXISPAIRNO(lCurveT)= CurrAxisNo then
    If ( 0 < Len(AllAxisChannelNamesAndUnits) ) Then AllAxisChannelNamesAndUnits =AllAxisChannelNamesAndUnits& ", "
      lChnNoT = CInt(D2CHNY(lCurveT))
      AllAxisChannelNamesAndUnits= AllAxisChannelNamesAndUnits& ChnName(lChnNoT)&" ["&ChnDim(lChnNoT)&"]"
    end if
  Next
  Call GraphObjClose(GraphObjName)
End Function
Ähnliche Links:
Attachments:
Eintrag vom: 02.11.2006
Letzte Korrektur: 07.11.2006
Dokument ID: 4316QSPY

Answer 1

Hallo Uwe!
Bei mir funktioniert der Code in DIAdem 10.1 (Build 2855) so wie ich es erwarten würde.
Irgendwelche Randbedingungen wenn das Problem auftritt?
Matthias
Matthias Alleweldt
Project Engineer / Projektingenieur
Twigeater?