If-Befehl mit mehreren Optionen

[snow]

Hallo zusammen,

ich habe hetzt einen Zeichnungstitel, für den man einstellen kann, ob Platzierung links, mitte oder rechts...
ich will jetzt noch. dass sich der Textanker entsprechend der Option selbst einstellt...

... bekomme aber die Meldung zu einem 'StapelFehler', wenn ich 'Set Style...' jeweils nach 'If' setze.

Lässt sich das irgendwie anders hinbekommen?

DEFINE STYLE "STYLE_l" AC_TextFont_1,
AC_TextSize_1, 1, AC_TextStyle_1

DEFINE STYLE "STYLE_z" AC_TextFont_1,
AC_TextSize_1, 2, AC_TextStyle_1

DEFINE STYLE "STYLE_r" AC_TextFont_1,
AC_TextSize_1, 3, AC_TextStyle_1


PEN AC_TextPen_1

SET STYLE "STYLE_l"

if (LB) then text2 0+DistH, -DistV,"<DRAWINGNAME>"

if (ZT) then text2 AC_DrawingRect[3]/2, -DistV,"<DRAWINGNAME>"

if (RB) then text2 (AC_DrawingRect[3]-DistH), -DistV,"<DRAWINGNAME>"

[Anonymous]

Poste bitte mal das Script, wie es aussieht, wenn es den Fehler auswirft.
Wie heißt die Fehlermeldung genau?

[snow]

So sieht das dann aus:

[Frank Beister]

Eine IF THEN Struktur erlaubt nur einen bedingten Befehl. Mehrere bedingte Befehle müssen in eine IF THEN (ELSE) ENDIF Struktur.

Mehrere Befehle in einer Zeile werden durch Doppelpunkt getrennt. Das ändert aber nichts an der vorherigen Aussage.

[Anonymous]

Schreib das ENDIF am besten in eine neue Zeile - das vermeidet Fehlermeldungen.

IF.........THEN.......
ENDIF

IF.........THEN.......
ENDIF

IF.........THEN.......
ENDIF

[Anonymous]

IF LB THEN
    SET STYLE "Style_1"
    TEXT2 0, 0, "<DRAWINGNAME>"
ENDIF

IF ZT THEN ....usw.

[snow]

Ah super, so geschrieben, funktioniert's.

(Bei Gebrauch des ':' wurde 'If' nicht mehr erkannt...)

Danke für die Hilfe!

[Ma_Scht]

Wenn Du den ":" verwenden willst,
dann schreib es erst untereinander und wenn es läuft:
Für JEDES ENTFERNTE ZEILEN-UMBRUCH-ENTER setzt Du einen DoPu.

IF A = B THEN
TEXT2 0,0,"A ist gleich B"
TEXT2 0,1,"Na toll!"
ELSE
TEXT2 0,0,"A ist UNgleich B"
ENDIF

oder:

IF A = B THEN : TEXT2 0,0,"A ist gleich B" : TEXT2 0,1,"Na toll!" : ELSE : TEXT2 0,0,"A ist UNgleich B" : ENDIF

Aber m.E. kostet der DoPu Rechenleistung
Basic-Scripte lauf wohl lieber viele kurze Zeilen, als eine Lange mit DoPus, durch.
Ich glaube, das mal irgendwo gelesen zu haben. Bei DNC im GDL-Kochbuch?
Ich weiß es nicht mehr.

Gruß

[Frank Beister]

Lieber nicht machen. Kann keiner mehr lesen hinterher. Wenn der Code zu lang wird nur kleinere Gruppen zusammenfassen.

[snow]

Ja, verücktes Zeug... finde ich... dass es auf die Schreibweise so drauf ankommt.

Aber jetzt bin ich ja wieder ein Stück schlauer 🙂