GDL-Text-Systemanfragen

[Hmooslechner]

Bisher kenne ich den 2D GDL-Eintrag zur Abfrage des Systemdatums:<p>dstr= ""
if uh=1 then
ch = OPEN ("DateTime","","%d.%m.%Y, %H:%M") !!!!!!!XXXXXXXXX!!!!!!Datum!!
n = INPUT (CH, "","",dstr)
else
ch = OPEN ("DateTime","","%d.%m.%Y")
n = INPUT (CH, "","",dstr)
endif<p>
Frage: Gibt es sowas auch für Dateiname, Pfad und Laufwerk?
Wie schauts da mit den Projektnotitzfenster aus - kann man das ins GDL importieren?
Gibts vielleicht noch andere interessante Zeichnungsinfos für ein Plankopf-GDL?<p>mfg. Heimo :dozey:

[Bernhard Binder]

Also für einen Plankopf ist auf jeden Fall der Dateiname wichtig. Der Dateiname ist (bis auf die Dateiendung) identisch mit dem Plannamen und kann daher mit dem Befehl:
<blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr><pre>REQUEST ("Name_of_plan", "", programmname) </pre><hr></blockquote><p>Der Dateipfad lässt sich leider nicht auslesen
😞
Auch das Projektnotizfenster lässt sich nicht anzeigen.<p>Dafür kann man beliebige Verzeichnisse und beliebige Textdateien auswerten und anzeigen lassen.
Man das GDL-Objekt sogar Textdateien schreiben lassen.

[Bernhard Binder]

Ahja! Vielleicht ist der Gerschossname noch interessant:
<blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr><pre>REQUEST ("Story", "", index, geschoßname)</pre><hr></blockquote><p>und auch der Maßstab:
GLOB_SCALE

[Hmooslechner]

Hier eine Erweiterung des Dinges:
(Glob_Context - fragt nach ob vielleicht Schnitt...)
Der Pfadname kann nun in eine Textvariable kopiert werden - Aber die "\" müssen 2x drin sein! "\\"

!!!!!!!!!!!!!!! Dateiname !!!!!!!!!!!!!!!!!!
if Dateiname=1 then
REQUEST ("Name_of_plan", "", programmname)
REQUEST ("Story", "", wogenau, geschossname)
if GLOB_CONTEXT = 4 then geschossname = "Schnitt"

wo=1
mal=Faktprz1/Datfakt !!Schriftgrößeneinstellung
schrift="Arial Westlich" !!oder so
gosub 666 !!!Textstileinstellungsfunktion
Text2 0, 0, Pfad + programmname + ".pln / " + geschossname !!!!!!!!!Plan Datei Name + Erweiterung -pln
else
endif

!!!!Hier nur eine Funktion zur einstellung der Textgröße - auf eine Übergebene Breite bezogen..

666:
define Style "TX" Schrift, 1*mas/100*A_, 7, wie
set style "TX"
OBR=STW(Inhalt)
TGRBM=br/OBR*10*mal/100

define Style "T31" Schrift, tgrbm*mas, wo, wie
STYLE "T31"
mal=100
RETURN

mfg.
Heimo Mooslechner

[andreaszeike]

cool... det merk ick ma!