liebes gdl forum
ich erhalte folgende fehlermeldung bei der auswahl der grundrissdarstellung:
dateiname: trauerbuch.gsm
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Zitat:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> Makro nicht gefunden: GRZ006line, aufgerufen von bei Zeile 190 von Datei trauerbuch.gsm </font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> !Tree Library
!Trees for architects and designers
!ArchiMedia Schweiz AG 2000/dgu
!Variablencheck
if a<=0 then 900
if b<=0 then 900
if c<=0 then 900
!Fix Parameters
X=8.2
Y=8.2
Z=7
GRback=10
ANback=10
stamm=c/10
if GRoA="Ansicht" then 200
100: !Grundrisse
!---------------------------------------------
if GR="1:500 Kreis/Elipse" then
add2 a/2,b/2
pen GRpen
mul2 1,b/a
circle2 0,0,a/2
set fill GRfacetype
POLY2_B 7, 2, GRface, GRback,
a/2, 0.0, 1,
0.0, 0.0, 900,
0.0, 180.0, 4001,
-a/2, 0.0, 1,
0.0, 0.0, 900,
0.0, 180.0, 4001,
a/2, 0.0, -1
del 2
endif
!---------------------------------------------
add2 a/2,b/2
mul2 a,b
pen GRpen
if GR="1:200 Symbol 1" then call "GRS001line"
if GR="1:200 Symbol 2" then call "GRS002line"
if GR="1:200 Symbol 3" then call "GRS003line"
if GR="1:200 Symbol 4" then
call "GRS004line"
pen GRface
set fill GRfacetype
call "GRS004face"
endif
if GR="1:200 Symbol 5" then
call "GRS005line"
pen GRface
set fill GRfacetype
call "GRS005face"
endif
if GR="1:200 Symbol 6" then
call "GRS006line"
pen GRface
set fill GRfacetype
call "GRS006face"
endif
if GR="1:200 Symbol 7" then
call "GRS007line"
pen GRface
set fill GRfacetype
call "GRS007face"
endif
if GR="1:200 Symbol 8" then
call "GRS008line"
pen GRface
set fill GRfacetype
call "GRS008face"
endif
if GR="1:200 Symbol 9" then
call "GRS009line"
pen GRface
set fill GRfacetype
call "GRS009face"
endif
if GR="1:200 Symbol 10" then
call "GRS010line"
pen GRface
set fill GRfacetype
call "GRS010face"
endif
if GR="1:200 Symbol 11" then
call "GRS011line"
pen GRface
set fill GRfacetype
call "GRS011face"
endif
if GR="1:200 Symbol 12" then
call "GRS012line"
pen GRface
set fill GRfacetype
call "GRS012face"
endif
if GR="1:200 Symbol 13" then
call "GRS013line"
pen GRface
set fill GRfacetype
call "GRS013face"
endif
if GR="1:200 Symbol 14" then
call "GRS014line"
pen GRface
set fill GRfacetype
call "GRS014face"
endif
if GR="1:200 Symbol 15" then
call "GRS015line"
pen GRface
set fill GRfacetype
call "GRS015face"
endif
if GR="1:200 Symbol 16" then
call "GRS016line"
pen GRface
set fill GRfacetype
call "GRS016face"
endif
if GR="1:200 Symbol 17" then
call "GRS017line"
pen GRface
set fill GRfacetype
call "GRS017face"
endif
if GR="1:200 Symbol 18" then
call "GRS018line"
pen GRface
set fill GRfacetype
call "GRS018face"
endif
if GR="1:200 Symbol 19" then
pen GRpen
call "GRS019line"
pen GRface
set fill GRfacetype
call "GRS019face"
endif
!---------------------------------------------
pen GRpen
if GR="1:100 Zeichnung 1" then call "GRZ001line"
if GR="1:100 Zeichnung 2" then call "GRZ002line"
if GR="1:100 Zeichnung 3" then
call "GRZ003line"
pen GRface
set fill GRfacetype
call "GRZ003face"
endif
if GR="1:100 Zeichnung 4" then
call "GRZ004line"
pen GRface
set fill GRfacetype
call "GRZ004face"
endif
if GR="1:100 Zeichnung 5" then
call "GRZ005line"
pen GRface
set fill GRfacetype
call "GRZ005face"
endif
if GR="1:100 Zeichnung 6" then
call "GRZ006line"
pen GRface
set fill GRfacetype
call "GRZ006face"
endif
if GR="1:100 Zeichnung 7" then
call "GRZ007line"
pen GRface
set fill GRfacetype
call "GRZ007face"
endif
if GR="1:100 Zeichnung 8" then
call "GRZ008line"
pen GRface
set fill GRfacetype
call "GRZ008face"
endif
if GR="1:100 Zeichnung 9" then
call "GRZ009line"
pen GRface
set fill GRfacetype
call "GRZ009face"
endif
if GR="1:100 Zeichnung 10" then
call "GRZ010line"
pen GRface
set fill GRfacetype
call "GRZ010face"
endif
del 2
hotspot2 a/2,0
hotspot2 a/2,b
hotspot2 0,b/2
hotspot2 a,B/2
hotspot2 a/2,b/2
end
200: !Ansichten
!---------------------------------------------
if AN="1:500 Kreis/Elipse" then
h=c-stamm
add2 a/2,0
line2 0,0,0,stamm
add2 0,stamm+h/2
pen ANpen
mul2 1,h/a
circle2 0,0,a/2
set fill ANfacetype
POLY2_B 7, 2, ANface, ANback,
a/2, 0.0, 1,
0.0, 0.0, 900,
0.0, 180.0, 4001,
-a/2, 0.0, 1,
0.0, 0.0, 900,
0.0, 180.0, 4001,
a/2, 0.0, -1
del 3
hotspot2 0,0
hotspot2 a,0
hotspot2 a,c
hotspot2 0,c
hotspot2 a/2,0
endif
!---------------------------------------------
if AN="1:200 Symbol" then
mul2 a/x,c/z
fragment2 6,0
pen ANpen
fragment2 7,1
pen ANface
fill ANfacetype
fragment2 8,1
del 1
endif
!---------------------------------------------
if AN="1:100 Kontur" then
mul2 a/x,c/z
fragment2 6,0
pen ANpen
fragment2 9,1
pen ANface
fill ANfacetype
fragment2 10,1
del 1
endif
!---------------------------------------------
if AN="1:050 Zeichnung" then
if ytime="Sommer" then
mul2 a/x,c/z
fragment2 6,0
pen ANpen
fragment2 11,1
pen ANface
fill ANfacetype
fragment2 12,1
del 1
endif
if ytime="Winter" then
mul2 a/x,c/z
fragment2 6,0
pen ANpen
fragment2 15,1
del 1
endif
endif
end
900: !Variablencheck
!---------------------------------------------
Print "Bitte geben Sie einen Wert grösser Null ein"wer kann helfen?
gruss domi
