oh danke für die links, hab mir das objekt jetzt angeschaut, soweit auch alles klar.
nur ich muss da die schichtnummer angeben damit ich z.B. die stiftfarbe rausbekomme?! das ist auch etwas unpraktisch aber eine andere möglichkeit geht ja sowieso nicht oder?
es läuft immer aufs gleiche raus...
wenn ich das fenster in eine anderen wand einsetzte wo die schicht der dämmung nicht 2 sondern z.B. 3 ist bekomme ich einen falschen wert??
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">
! Wandaufbau mehrschichtiger Bauteile
! 2004, Frank Beister, Hamburg
GDL=req("GDL_Version")
dim wsp[8][12]
if GDL<1.331 then
for i=1 to WALL_SKINS_NUMBER
WSP
[1]=WALL_SKINS_PARAMS[1] !Schraffur
WSP[2]=WALL_SKINS_PARAMS[2] !Dicke
WSP[3]=WALL_SKINS_PARAMS[3] !Stift (alte Belegung ???)
WSP[4]=WALL_SKINS_PARAMS[4] !Stift Schraffur
WSP[5]=WALL_SKINS_PARAMS[5] !Stift Schraffurhintergrund
WSP[6]=WALL_SKINS_PARAMS[6] !Kern (0=nein, 1=ja, 3=letzte Schicht)
WSP[7]=WALL_SKINS_PARAMS[3] !Stift der unteren Linie
WSP[8]=WALL_LINETYPE !Typ der unteren Linie
WSP[9]=WALL_SKINS_PARAMS[3] !Stift der oberen Linie
WSP[10]=WALL_LINETYPE !Typ der oberen Linie
WSP[11]=WALL_SKINS_PARAMS[3] !Wandendestift
WSP[12]=0 !Richtung der Schraffur (0=global/1=lokal)
next i
else
for i=1 to WALL_SKINS_NUMBER : for j=1 to 12
WSP[j]=WALL_SKINS_PARAMS[j]
next j : next i
endif
s=request("Name_of_fill",WSP[1],s)
s=request("Name_of_line_type",WSP[10],s)
f_LD = WSP[2][1] !Schraffurtyp Leibung VWS
fp_LD = WSP[2][4] !Schraffurstift Leibung VWS
f_LM = WSP[1][1] !Schraffurtyp Leibung MWK
fp_LM = WSP[1][1] !Schraffurstift Leibung MWK
p_LM = WSP[1][7] !Stiftfarbe Leibung MWK
p_LD = WSP[3][9] !Stiftfarbe Leibung VWS
habe es für mich angepasst.
vielleicht hat jemand noch eine idee??
danke, besten dank!
