Thema "Re: GDL-Text-Systemanfragen" in Modellierung

GDL-Text-Systemanfragen

Hmooslechner — Tue, 12 Mar 2002 10:22:00 GMT

Bisher kenne ich den 2D GDL-Eintrag zur Abfrage des Systemdatums: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
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?mfg. Heimo :dozey:

Re: GDL-Text-Systemanfragen

Bernhard Binder — Tue, 12 Mar 2002 12:37:00 GMT

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>Code:<hr><pre>REQUEST ("Name_of_plan", "", programmname) </pre><hr></blockquote>Der Dateipfad lässt sich leider nicht auslesen
😞
Auch das Projektnotizfenster lässt sich nicht anzeigen.Dafür kann man beliebige Verzeichnisse und beliebige Textdateien auswerten und anzeigen lassen.
Man das GDL-Objekt sogar Textdateien schreiben lassen.

Re: GDL-Text-Systemanfragen

Bernhard Binder — Tue, 12 Mar 2002 13:29:00 GMT

Ahja! Vielleicht ist der Gerschossname noch interessant:
<blockquote>Code:<hr><pre>REQUEST ("Story", "", index, geschoßname)</pre><hr></blockquote>und auch der Maßstab:
GLOB_SCALE

Re: GDL-Text-Systemanfragen

Hmooslechner — Thu, 14 Mar 2002 06:46:00 GMT

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

Re: GDL-Text-Systemanfragen

andreaszeike — Tue, 19 Mar 2002 20:44:00 GMT

cool... det merk ick ma!