Hallo Jochen!
Das Ding ist schon suuper! Vielen Dank!
Ich verstehe allerdings nicht, wie ich den String da hineinbekommen soll.
Als normale Variable ist stringval ja nicht gedacht... es soll seinen Inhalt ja us einer externen Datei beziehen. hab ich da etwas überlesen?
Gruß, az
TIPP für Kochbuchbesitzer: einfach kopieren bringts nicht, ihr müsst bei den strings den Zeilenumbruch löschen und bei doublespace=STRSTR(stringval," ") ein Leerzeichen ergänzen, sonst geht´s nicht!!
@ Heimo:
hallo heimo, sieh Dir doch mald dieses Script an (ich habe Dein Script ein wenig umgestellt, es funzte zuerst nicht bei mir...)
so ganz verstehe ich es noch nicht, und es klappt auch noch nicht mit der Massstabsanpassung...
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> !!!!Parameter
A = 10 ! Breite der Bounding-Box
B = 2 ! Höhe der Bounding-Box
WoTextPunkt = 7 ! Code des Ankerpunktes define style
Stringtext = "faslfdghdsghfdghf" ! gewünschter Text-String
Textstil = "Arial Westlich" ! gewünschte Schrift (Textstil)
Stift = 2 ! Stiftfarbe der Schrift
Stiftlinie = 1 ! Stiftfarbe der Linie
!GLOB_SCALE = 100 ! Maßstab 1:100
!!!!Funktion Text in Boundingbox - Heimo Mooslechner 7/2002
!!!!Verändert durch Andreas Zeike 7/2002
!!!!zeichne Bounding-Box
pen Stiftlinie
line2 0, 0, 0, b
line2 0, 0, a, 0
line2 a, b, 0, b
line2 a, 0, a, b
hotspot2 0,0
hotspot2 a, b
!!!!Zeichnungsmaßstabs-Abfrage
m=1/1000*GLOB_SCALE !!!!Zeichnungsmaßstabs-Abfrage
!!Parameter-Übergabe-Definition
aatxt=a
bbtxt=b
!!hol dir von 1234: den passenden Textstil
gosub 1234:
!! schreibe in Box
pen stift
text2 0,0, Stringtext
end !!!!!!!!!!!!!!!!!PROGRAMM ENDE!!!!!!!!!!!!!!!!
1234:
!!!!!Funktion: Teste Schriftgröße A+B und gib mir einen Stil retour, der in die Box paßt
!!!Dummystil definieren
define Style "Dummy" Textstil, aatxt*m, WoTextPunkt, 0
style Dummy
!!Textbreite mit Dummystil ermitteln
TextbreiteA=STW(Stringtext)
!!Verhältnis von Dummy-Textbreite zu aa-Länge ermitteln
VerhaeltnisA = aatxt/TextbreiteA
!!!Dummystil für aa-Breite definieren
define Style "DummyA" Textstil, aatxt*VerhaeltnisA, WoTextPunkt, 0
style DummyA
!!Texthöhe für diesen neuen aa-Stil ermitteln
x=REQUEST ("Height_of_style", "DummyA", Texthoch)
!!Zeichnungsmaßstab für Texthoch ausschalten
Texthoch=Texthoch*m
!!Falls Texthoch < b dann Breiten-Stil verwenden, sonst: Höhenstil verwenden
if texthoch < bbtxt then
else
hochverhalt=texthoch/bbtxt
!!!Dummystil für aa-Breite definieren
define Style "DummyB" Textstil, aatxt*VerhaeltnisA/hochverhalt, WoTextPunkt, 0
style DummyB
endif
return
Gruß, az
