Kurven via Script einfügen

[chaosyeti]

Hallo zusammen,

kennt Ihr diese Tage, an denen man einfach ein Brett vorm Kopf hat?
(und zu meiner Entschuldigung: um mich herum flitzt grad ein frisch krabbeln gelernt habendes Baby auf Entdeckungsreise, das schmälert den Konzentrationsfaktor etwas *g*)

Also, ich habe hier ein Script, mit dem ich drei Kurven in einen Report einfügen möchte.
Meine Datendatei enthält drei Gruppen mit jeweils gleich lautenden Kanälen, die ich in meinen Report haben möchte.
Eine Anwendervariablendatei hab ich auch.
Ideale Voraussetzungen, das scripttechnisch mal eben schnell machen zu lassen....

(je Auszüge):

TDM:
Gruppe 1: "10 bar"
Gruppe 2: "20 bar"
Gruppe 3: "30 bar"
Jeweils einzufügende Kanäle:
x: "Strom"
y: "Druck"

VAS:

Code:

xMakroChn_     : F [3] (40) <'Strom'>
yMakroChn_     : F [3] (40) <'Druck'>
MakroLegend_  : F [3] (40) <'P-I-Kennlinie'>
CurveColor_    : A ('red','blue','green')

Script messen/Report bauen:

Code:

dim i
  for i=1 to 3
    xMakroChn_(i) = "["&i&"]/Strom"
    yMakroChn_(i) = "["&i&"]/Druck"
    MakroLegend_(i) = "P-I-Kennlinie " & Data.Root.ChannelGroups(i).Name
  next
  Call sub_Kennlinien_einfuegen
  Call PicUpdate(0)

Script sub_Kennlinien_einfuegen

Code:

Call GraphObjOpen(Axis2DName_(1))
  dim i
  for i=1 to 3
    CurveName_(i) = "PI-Kennlinie"&(i)
    Call GraphObjNew("2D-Curve", CurveName_(i))
    Call GraphObjOpen(CurveName_(i))
      D2CCHNXNAME      =xMakroChn_(i)
      D2CCHNYNAME      =yMakroChn_(i)
      D2CurveColor     =CurveColor_      
      D2CCurveLegTxtA(1)=MakroLegend_(i)
    Call GraphObjClose(CurveName_(i))
  next
[...]
Call GraphObjClose(Axis2DName_(1))

Und irgendwie nervt mich, daß ich nicht weiß, wie ich an die Elemente in der Aufzählvariablen

Code:

CurveColor_    : A ('red','blue','green')

dran komme. Gut, das könnte man mit automatisch Farben hochzählen lösen - aber auch da hab ich grad vergessen wie das ging. *knör*
Ich will jedenfalls nicht, daß der mit schwarz anfängt, und das tut er.

Könnt Ihr mir schnell auf die Sprünge helfen..?
Danke!!

Grüße
vom Yeti

[Bruno]

Hallo Yeti,

hatten wir so etwas nich schon mal?
farben-der-kurven-per-script
Hilft Dir das eventuell schon mal weiter?
Gruß
Bruno

[chaosyeti]

Ein entscheidender Hinweis, GENAU sowas hatte ich gesucht!! Den Inhalt der ColorLstPal hatte ich in der Hilfe auch schon gefunden - aber wie erwähnt keinen Schimmer, wie ich dran käme... Wie gesagt, heut irgendwie Brett vorm Kopf
(und ja, Suchfunktion hatte ich auch bemüht, aber irgendwie wohl falsche Schlüsselwörter benutzt...)

Auch drin: EEENDLICH die Auflösung, wie ich an den Inhalt meiner Aufzählungsvariable (für meine Farben) drankomm!

Dim i
Call UserVarCompile(...)
For i = 0 To 2
  CurveColor_ = i
  Call MsgBoxDisp(CurveColor_)
Next

Großartig, Danke Dir!!