Hallo,
sollte schon gehen.
Siehe Beispiel.
Im Ursula Ausdruck siehst das Wingergebnisse.
Code:
!#!Kapitel Systemerzeugung
+prog aqua urs:1
kopf Material
norm OEN EN1992 coun at cat B
beto 1 C 30
stah 2 s 550b
stah 3 S 355
ende
+prog sofimshc urs:2
Kopf System
Echo voll nein
syst art raum gdiv 0 gdir posz
steu mesh 2
steu hmin 0.1
spt nr x y z fix
1 0 0 0 pxpy
2 1 0 0 py
3 1 1 0
4 0 1 0
sln nr npa npe
1 1 2
2 2 3
3 3 4
4 4 1
grup nr 1 base 100000
grup nr 2 base 200000
sar nr 1 mnr 1 mbw 2 grp 1 qref unte T 0.5
sarb typ aus nl 1,2,3,4
ende
+prog sofimsha urs:4
kopf
Syst rest
fede qgrp 1 cp 1e5 riss 0
ende
+prog sofiload urs:3
Kopf
Echo voll
lf 1 bez 'Fz'
poin ref qgrp nr 1 typ pzz p 1000 x 0.1 y 0.5 z 0
ende
!#!Kapitel Berechnung
+prog ase urs:5
Kopf Berechnung
Echo voll nein
$Steu solv 4
syst prob nonl
lf 1
ende
PROG WING urs:6
$ WinGraf-Dokument (Version 15.08-25) vom 22.09.11 , 12:22:53
KOPF $Federkraft LF: 1
SEIT UNIE 0
STEU OPT INP
STEU OPT GSTR WERT STAN
STEU OPT ACHS WERT STAN
$ Grafik 1 | Bild 1 | Layer 1 : Federkraft LF: 1
SEIT SPRA 0 UNIA 0 BEZ ''
SIZE DINA WIN M 0 RAND NEIN FORM STAN
SIZ2 DRUO 1 DRUR 1 DRUL 1 DRUU 1 DATE NEIN
UND POSI 1 POSL 0 POSR 100 POSU 0 POSO 100
SCHR H6 0.360000
SCH2 ABSO NEIN RICH STAN
SCH3 HFDM 0.450000 HFDT 0.450000 HKPK 0.020000
FARB F5 1006 F12 3017 - - 1007 F21 6001 6001
FAR2 F7 1002 F25 3001 3001 3001 3001
LF NR 1 BEME 1
BOX
GRUP NR KNOT OPTI JA
GRUP NR FKNO OPTI NEIN
GRUP NR ZUSA OPTI JA
GRUP NR BSCH OPTI NEIN
GRUP NR QSCH OPTI NEIN
GRUP NR AUSR OPTI JA
GRUP NR AUNS OPTI JA
GRUP NR ASTR OPTI NEIN
GRUP NR ALAN OPTI JA
GRUP NR AGEO OPTI NEIN
GRUP NR ATEN OPTI NEIN
GRUP NR AINT OPTI NEIN
BEOB TYP BLIC X 0 Y 0 Z 1 ACHS POSY DREH 0
VERS TYP NEIN EXPO 0 SMOV NEIN
AUSW NR 0
STAB TYP N UNIT STAN SCHR JA STYP FEDE FILL NEIN DARS DLIN
$ Einstellungen der interaktiven Sitzung
iNTE SET 0 PAR1 1 PAR2 1 PAR3 1
ENDE