wer kann mir sagen, wieso folgendes Script og. Fehlermeldung erzeugt - aber nur bei bestimmten Längen und auch nur im 3D-Fenster:
</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">Code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">! MASSTABSANPASSUNG
f=1/1000 !Maßstabsanpassung m zu mm (ArchiCAD->GDL)
H=zzyzx
MUL f, f, f
ROTX 90
merkwürdigerweise passiert das nicht, sobald ich statt der formel bei "anz =H/(lg*2)+1 !Anzahl der Bohrungen" eine festen Wetr einsetze...
bin ratlos... :confused:
Gruß, az
RESOL 16
SET MATERIAL mat
!Langlöcher-------------------------------------------------------
rad =1.5 !Radius der Rundung
br =6.0 !Breite
lg =25 !Länge
br_ =br-rad
lg_ =lg-rad
anz =H/(lg*2)+1 !Anzahl der Bohrungen
abst=50 !Abstand der Bohrungen
!erste Reihe (y-Richtung)------------------------------------
ADDZ abst/4 !verschiebe Langloch von xy-Ebene
ADDX A/2-br/2 !verschiebe Langloch in Profilachse
ROTX 90 !Drehe Bohrung in xy-Ebene
FOR i=1 TO anz !erstelle mehrere Bohrungen
CUTPOLYA 17, 1, -1,
0.0, rad, 13, !Statuswert 13 = ohne Rundungskanten
rad, rad, 900, !Statuswert 15 = mit Rundungskanten
0.0, 90.0, 4013,
rad, 0.0, 13,
br_, 0.0, 13,
br_, rad, 900,
0.0, 90.0, 4013,
br, rad, 13,
br, lg_, 13,
br_, lg_, 900,
0.0, 90.0, 4013,
br_, lg, 13,
rad, lg, 13,
rad, lg_, 900,
0.0, 90.0, 4013,
0.0, lg_, 13,
0.0, 0.15, -1
ADDY abst !verschiebe in Z-Richtung
NEXT i
DEL NTR()-2
!Zweite Reihe------------------------------------
ADDZ abst/4
ROTZ 90
ADDX A/2-br/2
ROTX 90
FOR i=1 TO anz
CUTPOLYA 17, 1, -1,
0.0, rad, 13,
rad, rad, 900,
0.0, 90.0, 4013,
rad, 0.0, 13,
br_, 0.0, 13,
br_, rad, 900,
0.0, 90.0, 4013,
br, rad, 13,
br, lg_, 13,
br_, lg_, 900,
0.0, 90.0, 4013,
br_, lg, 13,
rad, lg, 13,
rad, lg_, 900,
0.0, 90.0, 4013,
0.0, lg_, 13,
0.0, 0.15, -1
ADDY abst
NEXT i
DEL NTR()-2
!Quadratrohr------------------------------------------
rad=A/50 !Radius Rundung QR
A1=A-rad
B1=A1
st=A/15 !Wandstärke QR (Abstand Innenkante)
A2=A-st
B2=B-st
EXTRUDE 22, 0, 0, H, 127,
0.0, rad, 1, !erste Biegung
rad, rad, 900,
0.0, 90.0, 4001,
rad, 0.0, 01,
A1, 0.0, 1, !zweite Biegung
A1, rad, 900,
0.0, 90.0, 4001,
A, rad, 1,
A, B1, 1, !dritte Biegung
A1, B1, 900,
0.0, 90.0, 4001,
A1, B, 1,
rad, B, 1, !vierte Biegung
rad, B1, 900,
0.0, 90.0, 4001,
0.0, B1, 01,
0.0, rad, -1, !Kontur schliessen
st, st, 1, !Aussparung
A2, st, 1,
A2, B2, 1,
st, B2, 1,
st, st, -1 !Kontur schliessen
!Abschluß für CUTPOLY (Langlöcher)
FOR k=1 TO 2*anz
CUTEND
NEXT K
!Angriffpunkte
ROTX -90
HOTSPOT 0, 0, 0
HOTSPOT A, 0, 0
HOTSPOT 0, 0, B
HOTSPOT A, 0, B
HOTSPOT 0, -H, 0
HOTSPOT A, -H, 0
HOTSPOT 0, -H, B
HOTSPOT A, -H, B
DEL TOP
[ 15-12-2002, 11:01: Beitrag editiert von: Andreas Zeike ]
