am 2016-04-22 10:34 AM
am 2016-05-23 04:10 PM
IF objtyp="Rahmen einfach" THEN gosub "Rahmen1"
IF objtyp="Rahmen doppelt" THEN gosub "Rahmen2"
IF objtyp="Rahmen dreifach" THEN gosub "Rahmen3"
END
! -> Ab hier Unterprogramme
"Rahmen1": ! einfach
RETURN
"Rahmen2": ! doppelt
RETURN
"Rahmen3": ! dreifach
RETURN
am 2016-05-23 05:22 PM
am 2016-05-23 06:25 PM
am 2016-05-23 08:23 PM
HPRISM_ mat1,mat2,mat3,mat4,
5+5,zzyzx,0,0.004,1,
0, 0, 15,
A, 0, 15,
A, B, 15,
0, B, 15,
0, 0, -1,
C1, C, 15,
D1, C, 15,
D1, D, 15,
C1, D, 15,
C1, C, -1
DEL 2 !!--------------------------> Schalter
ROTy 270
addz -D1
ROTz 270
addx zzyzx-E
addy L
EXTRUDE 5,0,0,A-C*2, 1+2+4+16+32,
0, L, 15,
F, G, 15,
E, D2, 15,
0, D2, 15,
0, L, -1
am 2016-05-23 11:29 PM
! Definition Grundwerte statt Parameterliste
mat1=SYMB_MAT
mat2=SYMB_MAT
mat3=SYMB_MAT
mat4=SYMB_MAT
A=0.2
B=0.2
ZZYZX=0.06
C=0.045
C1=0.045
D=B-C
D1=A-C1
sts=1+2+8 ! Statuswert Kanten. Ohne 4 verschwinden die Linien on top
RESOL 48 ! Auflösung Krümmung
! Form mit großem Radius ohne Loch
GROUP "Aussen"
R=0.025
HPRISM_ mat1,mat2,mat3,mat4,
5,zzyzx,0,R,1,
0, 0, sts,
A, 0, sts,
A, B, sts,
0, B, sts,
0, 0, -1
ENDGROUP
! Form mit kleinem Radius und v.a. Loch
GROUP "AussenMitLoch"
R=0.004
HPRISM_ mat1,mat2,mat3,mat4,
5+5,zzyzx,0,R,1,
0, 0, sts,
A, 0, sts,
A, B, sts,
0, B, sts,
0, 0, -1,
C1, C, sts,
D1, C, sts,
D1, D, sts,
C1, D, sts,
C1, C, -1
ENDGROUP
! Geometrisches, logisches UND beider Formen:
Schalterrahmen = ISECTGROUP ("Aussen", "AussenMitLoch")
! Und Ausgabe:
!PLACEGROUP "Aussen" ! nur zum Nachvollziehen
!PLACEGROUP "AussenMitLoch" ! nur zum Nachvollziehen
PLACEGROUP Schalterrahmen
am 2016-05-23 11:36 PM
am 2016-05-24 08:17 AM