524150_de-DE

liliconcom

JMP > JSL > Journal > Wie erkennt man reduzierte und erweiterte Elemente?

Hallo JMP-Community,

Ich möchte Elemente aus einem vorhandenen Journal basierend auf ihrem Status „Reduziert/Erweitert“ extrahieren. Ich habe versucht, die Methode „Root << ist eingeklappt (Knoten)“ zu verwenden, aber sie gibt einen leeren Wert zurück, unabhängig vom Status Eingeklappt/Erweitert (siehe JSL in Arbeit unter).

(JMP 16.1, Windows 10 Pro)

Fragen:

1. Ist die Methode „<< is Collapsed“ auf Zeitschriftenstrukturen anwendbar?
2. Wenn ja, was ist die korrekte Verwendung, insbesondere in Bezug auf die Definitionen von "root" und "node"?
3. Wenn dies nicht der Fall ist, welche Alternative könnte ich verwenden, um den reduzierten Status eines Journalelements zurückzugeben?

Names Default to Here (1);

winlist = Window () << Get Window Title ();

For( i = N Items( winlist ), i > 0, i--,
 If( (Window( winlist[i] ) << Window Class Name) != "Journal",
  Remove From( winlist, i )
 )
);

If (N items (winlist) == 0, New Window ("ERROR", Text Box ("!!!! NO JOURNAL CURRENTLY OPENED !!!!")); throw (1));

dw = New Window (" PICK A JOURNAL ",
 << MODAL,
 V List Box ( 
  Text Box (" SELECT A JOURNAL"),
  wl = List Box ( winlist,
      Width (500),
      Max Selected (1),
      nlines (10)
      ),
  
  Text Box (" Enter number of plots per row"),
  nbe = Number Edit Box (5), 
  
  Text Box (" REMOVE LEGEND? "),
  rb = Radio Box( {"YES", "NO"}), 
  
  Text Box (" PLOT ONLY EXPANDED? "),
  rb2 = Radio Box( {"YES", "NO"}),   
  
  Button Box ("OK", jrn_l = (wl << get selected); npr = nbe << get (); lg_x = rb << get (); ex_x = rb2 << get (); switch = 1),
  
  Button Box ("CANCEL", switch = 0; Throw(1))   
  ),
  

 
 );


show (jrn_l);
show (npr);
show (lg_x);
show (ex_x);

If (switch == 0, Throw (1));

jrn = Get Window (jrn_l [1]);

show (jrn);

nplot = N Items (jrn << Xpath ("//OutlineBox"));

dummy = Lineup Box(N Col (1));
win = New window ("PLOTS",
 mybox = Lineup Box (N Col (npr))
);

For (i = 1, i<= nplot, i++,
 collp = jrn << is collapsed (OutlineBox (i));
 show (collp);
 if (collp == 1, 
   dummy = Lineup Box(N Col (1));
   Plot = jrn [PictureBox (i)];
   dummy << Append (Plot);
   if(lg_x == 1, 
    zzz = Dummy << Xpath ("//LegendBox");
    zzz << delete
      ); 
   mybox << Append (Dummy)
  ) 
 
);

Vielen Dank.

 

Am besten,

 

TS

GrafikSkripterstellung