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: 11/02/2006
Letzte Korrektur: 11/07/2006
Dokument ID: 4316QSPY

Your Feedback!

Poor | Excellent

Yes

Document Quality?

Answered Your Question?

Please Contact NI for all product and support inquiries.