folgendes Problem:
Der Anwender soll sich seine eigenen Stempel erstellen und bei Bedarf mit dem Objekt schnell aufrufen können.
Das Objekt ruft je nach Einstelung des Parameters "format" (Blattformat) die Layout-Dateien auf, die u.a auch Style-Definitionen für Texte enthalten (richtig formuliert?)
Das blöde ist, das sich die Texte natürlich nicht anpassen, wenn der Grundrissmaßstab geändert wird. Gibt es evtl. eine Möglichkeit, dies zu ändern, ohne das Script in den Subs anzurühren?
ansonsten funktioniert das Ganze sehr gut...
(vorausgesetzt die subs sind auch geladen
🙂 )
Hier der Code:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">
PEN stiftx
if Format=0 then
Ax=118.9
Ay=84.1
CALL "STEMPEL A0" PARAMETERS A =118.9, B =84.1
else
endif
if Format=1 then
Ax=84.1
Ay=59.4
CALL "STEMPEL A1" PARAMETERS A =84.1, B =59.4
else
endif
if Format=2 then
Ax=59.4
Ay=42.0
CALL "STEMPEL A2" PARAMETERS A =59.4, B =42.0
else
endif
if Format=3 then
Ax=42.0
Ay=29.7
CALL "STEMPEL A3" PARAMETERS A =42.0, B =29.7
else
endif
if Format=4 then
Ax=21
Ay=29.7
CALL "STEMPEL A4" PARAMETERS A =21.0, B =29.7
else
endif
if Format=5 then
Ax=a
Ay=b
else
endif
rect2 0, 0, Ax, Ay ! zeichnet Rahmen DIN A...
Gruß, az
PS: Dank an Heimo, von Ihm ist das Ur-Script
