next up previous contents index
Nächste Seite: Parametervariation Aufwärts: Berechnungsprogramm Vorherige Seite: AutoLISP-Programm   Inhalt   Index

DCL-Maske

Zum Programm gehört zur komfortablen Eingabe eine Maske. Diese muß im AutoCAD-Pfad liegen, sonst ist im Programm der Pfad beim Laden der Maske entsprechend abzuändern. Aber Achtung, bei Pfadangaben unter AutoLISP wie in Unix / statt $\backslash$ verwenden!

Die DCL-Maske für das Programm hat folgendes Listing.


Eingabefenster 
: dialog {
 label= "Ausrollversuche";
 : text { label = "Geben Sie bitte die Randbedingungen ein";}
 : row {
 : column {
  : boxed_column { label= "Masse";
   : edit_box{ label= "Fahrer [kg]";
     edit_width=5;
     mnemonic= "r";
     key="m_fahrer";}
   : edit_box{ label= "Fahrrad [kg]";
     edit_width=5;
     mnemonic= "F";
     key="m_rad";}
   : edit_box{ label= "Laufradkorrektur";
     edit_width=5;
     mnemonic= "f";
     key="korrekt";}}
  : boxed_column { label= "Luft";
   : edit_box{ label= "Windgeschwindigkeit [m/s]";
     edit_width=4;
     mnemonic= "W";
     key="v_wind";}
   : edit_box{ label= "Temperatur [C]";
     edit_width=4;
     mnemonic= "T";
     key="t_c";}
   : edit_box{ label= "Luftdruck [bar]";
     edit_width=5;
     mnemonic= "L";
     key="p_l";}
   : edit_box{ label= "cw*A [m]";
     edit_width=5;
     mnemonic= "A";
     key="cwa";}}
   : boxed_column { label= "Rollwiderstandsbeiwerte";
    : edit_box{ label= "vorne:";
      edit_width=6;
      mnemonic= "v";
      key="cr_v";}
    : edit_box{ label= "hinten:";
      edit_width=6;
      mnemonic= "i";
      key="cr_h";}}}
 : column {
  : boxed_column { label= "Geometrie";
   : edit_box{ label= "Radstand (l) [m]";
     edit_width=5;
     mnemonic= "l";
     key="l";}
   : edit_box{ label= "Schwerpunkhhe (h) [m]";
     edit_width=5;
     mnemonic= "h";
     key="h";}
   : edit_box{ label= "Schwerpunktrcklage (a) [m]";
     edit_width=5;
     mnemonic= "a";
     key="a";}}
  : edit_box{ label= "Schrittweite (delta t)";
    edit_width=4;
    mnemonic= "c";
    key="dt";}
  : edit_box{ label= "Antriebsleistung (Pant)";
    edit_width=4;
    mnemonic= "n";
    key="pant";}
  : toggle { label= "line (x) / grdraw ( )";
    mnemonic= "w";
    key="drw_perm";}
  : toggle { label= "0 Prozent ( ) / Hoehenprofil (x)";
    mnemonic= "P";
    key="mit_profil";}
  :boxed_column {
  : toggle { label= "Teilleistungen mitzeichnen";
    mnemonic= "m";
    key="drw_parwo";}
  : edit_box{ label= "maximale Teilleistung (W)";
    edit_width=4;
    mnemonic= "x";
    key="max_p";}}}}
 ok_cancel_help_errtile;
}
 	



Olaf Schultz 2007-01-15