</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Zitat:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> Woher weisst du das? Wer das Netz betritt hinterläßt Spuren. Manche offensichtlichere, manche weniger sichtbare. Bei Dir war es eine 20 Sekunden-SUCHE. 😉
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Zitat:</font><hr /><font size="2" face="Verdana, Helvetica, sans-serif"> die machen das nur für Nemetschek Na dann mal weiter nerven und daran arbeiten. Andere Institute fahren auch mehrgleisig!
OK. zu Deinem Problem:
Objekt erstellen mit folgenden Parametern:
r, real, Radius Achse
n, Ganzzahl, Anzahl Zähne,
t, Schalter, Innen gebogen ja/nein
zzyzx, real, Dicke
MASTER__________________
a=a/2
b=b/2
x= 2*b*PI/n / 2
wi= 360/n / 2
s= 2*b*sin(wi/2)
wa= 2* asn((s/2)/a)
wa2=(360-n*wa)/n
wt= (wa2-wi)/2
2D-SKRIPT__________________
msk= 1
mski=msk+3000*t
mska=msk+3000
w=wi
put 0,0,900+msk
put b,0,msk
for i=1 to n
put cos(w)*b,sin(w)*b,mski
w=w+wt
put cos(w)*a,sin(w)*a,msk
w=w+wa
put cos(w)*a,sin(w)*a,mska
w=w+wt
put cos(w)*b,sin(w)*b,msk
w=w+wi
next i
put b,0,-1
poly2_ (nsp/3)+1, 1+2+4,
get (nsp),
r,360,4000+msk
3D-SKRIPT__________________
msk= 15
mski=msk+3000*t
mska=msk+3000
w=wi
resol n*8
put 0,0,900+msk
put b,0,msk
for i=1 to n
put cos(w)*b,sin(w)*b,mski
w=w+wt
put cos(w)*a,sin(w)*a,msk
w=w+wa
put cos(w)*a,sin(w)*a,mska
w=w+wt
put cos(w)*b,sin(w)*b,msk
w=w+wi
next i
put b,0,-1
prism_ (nsp/3)+1, zzyzx,
get (nsp),
r,360,4000+msk+64
Der äußere Radius ist die Breite, der innere die Höhe des Objektes.
Zum Rotieren von dem Ding gibts hier Hinweise genug im Forum.
P.S. Solche GDL-Fragen sollten besser ins GDL-Forum. Sonst tut sich da ja nie mehr was. 😉
[ 05. Januar 2004, 15:49: Beitrag editiert von: Ove Bodj ]