Das schon, ist aber auch mehr Arbeit und wir haben doch keine Zeit ;)
Kann man auch mit IF/END_IF und einem Eingabekommentar machen.
Zwischen die einzelen Programmzeilen kmmt dann das entsprechende Programm,
die entsprechende Auswertung dazu kann man genauso gestalten.
TASTSPITZE/T1A0B0, SCHAFTIJK=0, 0, 1, WINKEL=0
SIZE =KOMMENTAR/EINGABE,NEIN,VOLLBILD=NEIN,
Größe Bauteil?
1=Standard
2= Größe 1
3= Größe 2
IF/SIZE.INPUT=="1"
PKT1 =ELEM/KONTAKT/VEKTORPUNKT/STANDARD,KARTESISCH
NENN/<0,0,0>,<0,0,1>
MESS/<0,0,0>,<0,0,1>
ZIEL/<0,0,0>,<0,0,1>
PROTOKOLLVEK=<0.676323,0.4321019,0.5965527>,AKTUALISIERVEK=<0.0099865,0.9886662,0.1497979>
ELEMENTPARAMETER EINBLENDEN=NEIN
KONTAKTPARAMETER EINBLENDEN=JA
RELATIVBEWEGUNG=NEIN,ABSTAND=0
MESSPUNKTE EINBLENDEN=NEIN
END_IF/
IF/SIZE.INPUT=="2"
PKT2 =ELEM/KONTAKT/VEKTORPUNKT/STANDARD,KARTESISCH
NENN/<300,400,0>,<0,0,1>
MESS/<300,400,0>,<0,0,1>
ZIEL/<300,400,0>,<0,0,1>
PROTOKOLLVEK=<0.676323,0.4321019,0.5965527>,AKTUALISIERVEK=<0.0099865,0.9886662,0.1497979>
ELEMENTPARAMETER EINBLENDEN=NEIN
KONTAKTPARAMETER EINBLENDEN=JA
RELATIVBEWEGUNG=NEIN,ABSTAND=0
MESSPUNKTE EINBLENDEN=NEIN
END_IF/
IF/SIZE.INPUT=="3"
PKT3 =ELEM/KONTAKT/VEKTORPUNKT/STANDARD,KARTESISCH
NENN/<600,800,0>,<0,0,1>
MESS/<600,800,0>,<0,0,1>
ZIEL/<600,800,0>,<0,0,1>
PROTOKOLLVEK=<0.676323,0.4321019,0.5965527>,AKTUALISIERVEK=<0.0099865,0.9886662,0.1497979>
ELEMENTPARAMETER EINBLENDEN=NEIN
KONTAKTPARAMETER EINBLENDEN=JA
RELATIVBEWEGUNG=NEIN,ABSTAND=0
MESSPUNKTE EINBLENDEN=NEIN
END_IF/
$$ NEIN,
++ Auswertung ++
IF/SIZE.INPUT=="1"
MERKMAL LAGE1= LAGE VON PUNKT PKT1 EINHEIT=MM ,$
GRAF=AUS TEXT=AUS MULT=1.00 AUSGABE=BEIDES HALBWINKEL=NEIN
ACH NENNWERT MESS ABW OTOL UTOL AUSTOL
X 0.00 0.00 0.00 0.50 0.00 0.00 #--------
Y 0.00 0.00 0.00 0.50 0.00 0.00 #--------
Z 0.00 0.00 0.00 0.50 0.00 0.00 #--------
T 0.00 0.00 0.00 0.50 0.00 0.00 #--------
ENDE MERKMAL LAGE1
END_IF/
IF/SIZE.INPUT=="2"
MERKMAL LAGE2= LAGE VON PUNKT PKT2 EINHEIT=MM ,$
GRAF=AUS TEXT=AUS MULT=1.00 AUSGABE=BEIDES HALBWINKEL=NEIN
ACH NENNWERT MESS ABW OTOL UTOL AUSTOL
X 300.00 300.00 0.00 0.50 0.00 0.00 #--------
Y 400.00 400.00 0.00 0.50 0.00 0.00 #--------
Z 0.00 0.00 0.00 0.50 0.00 0.00 #--------
T 0.00 0.00 0.00 0.50 0.00 0.00 #--------
ENDE MERKMAL LAGE2
END_IF/
IF/SIZE.INPUT=="3"
MERKMAL LAGE3= LAGE VON PUNKT PKT3 EINHEIT=MM ,$
GRAF=AUS TEXT=AUS MULT=1.00 AUSGABE=BEIDES HALBWINKEL=NEIN
ACH NENNWERT MESS ABW OTOL UTOL AUSTOL
X 600.00 600.00 0.00 0.50 0.00 0.00 #--------
Y 800.00 800.00 0.00 0.50 0.00 0.00 #--------
Z 0.00 0.00 0.00 0.50 0.00 0.00 #--------
T 0.00 0.00 0.00 0.50 0.00 0.00 #--------
ENDE MERKMAL LAGE3
END_IF/