Hallo!
Ich hab mich heute mal mit den Befehlen BASE, VERT, EDGE, PGON und BODY beschäftigt.
Das funktioniert so weit so gut. Wenn ich jedoch eine Schnittebene mit CUTPLANE definiere, erhalte ich als Ergebnis eine 3D-Fläche und keinen Körper - obwohl der Status bei BODY auf 1 gestellt wurde.
Was mache ich hier falsch?
Hier noch das Skript:
---------------------------------------
!!!variables
cnt = 32 !circle
radius_d = 0.5
radius_u = 0.25
hight = 2
cutangle = 35
!!!CUT
TRANSZ hight - TAN ( cutangle ) * radius_u
CUTPLANE cutangle
RESTORE 1
!!!base
BASE
!!!lower verts
FOR i = 1 TO cnt
VERT radius_d , 0 , 0 !#V1-32
ROTZ 360 / cnt
NEXT i
RESTORE cnt
!!!upper verts
TRANS radius_d - radius_u , 0 , hight
FOR i = 1 TO cnt
VERT radius_u , 0 , 0 !#V33-64
ROTZ 360 / cnt
NEXT i
RESTORE cnt + 1
!!!axis
VERT radius_d - radius_u , 0 , 0 !#V65
VERT radius_d - radius_u , 0 , hight !#V66
EDGE 65 , 66 , -1 , -1 , 0 !#E1
!!!edges
FOR i = 1 TO cnt
EDGE i , cnt + i , -1 , -1 , i !#E2-33
NEXT i
!!!pgons
!!coat
FOR i = 2 TO cnt
PGON 4 , 0 , 1 ,
i + 1 , i , -i , -( i + 1 ) !2 TO 32
NEXT i
PGON 4 , 0 , 1 ,
2 , cnt + 1 , -( cnt + 1 ) , -2 !33 TO 2
!!top
FOR i = 2 TO cnt !+ 1
PGON 4 , 0 , 1 ,
i + 1 , i , 1 !1 TO 2/32
NEXT i
PGON 4 , 0 , 1 ,
2 , 33 , 1 !1 TO 33
!!bottom
FOR i = 2 TO cnt !+ 1
PGON 4 , 0 , 1 ,
-( i + 1 ) , -i , -1 !1 TO 2/32
NEXT i
PGON 4 , 0 , 1 ,
-2 , -33 , -1 !1 TO 33
!!!place body
BODY 1
!!!CUT
CUTEND