3D-Script:

IF len_equ = 1 THEN len2 = len1

TRANSZ -hgt/2

TRANS -ofs , 0 ,0
HANDLE 0 , 0 ,0, id , "len1" , 1 !base
HANDLE len1 , 0 ,0, id , "len1" , 2 !move
HANDLE -1 , 0 ,0, id , "len1" , 3 !ref
id = id + 1 
RESTORE 1 

HANDLE -ofs + len1 + 1 , 0 , 0, id , "ang" , 4 !base
HANDLE -ofs + len1 + COS ( ang ) * ( len2 - ofs ) , 0 + SIN ( ang ) * ( len2 - ofs ) ,0, id , "ang" , 5 !move
HANDLE -ofs + len1 , 0 ,0, id , "ang" , 6 + 2048 !ref
HANDLE -ofs + len1 , 0 ,1, id , "ang" , 7
id = id + 1

IF len_equ = 0 THEN 
   TRANS -ofs + len1 , 0 , 0
   ROTZ ang 
   HANDLE 0 , 0 , 0,id , "len2" , 1 !base
   HANDLE len2 , 0 ,0, id , "len2" , 2 !move
   HANDLE -1 , 0 ,0, id , "len2" , 3 !ref
   id = id + 1 
   RESTORE 2 
ENDIF

GOSUB "put_outline" 

PRISM NUM_SP / 2 , hgt , 
GET ( NUM_SP ) 

RESTORE 1

Man kann sich einfache Sachen aber auch kompliziert machen!
Die biegeneutrale Faser liegt in diesem Fall wo? Aussen oder in der Mitte des Flachstahls?

Einige Hinweise:
1. Handles haben eine "Nummer" , hier mit Variable id bezeichnet:
HANDLE 0 , 0 ,0, id , "len1" , 1 !base
HANDLE len1 , 0 ,0, id , "len1" , 2 !move
HANDLE -1 , 0 ,0, id , "len1" , 3 !ref
id = id + 1
Anhand dieser Nummer werden die 3 bzw. 4 notwendigen Punkte zusammengefügt.
Daher ist es unbedingt notwendig, diese Variable nach "Abschluss" eines Handles zu incrementieren.

2. Der Parameter-Name des Handles sollte man immer in Anführungszeichen setzen:
HANDLE 0 , 0 ,0, id , "l1" , 1

3. ELSE IF gibt es in der SmartPart-Sprache nicht!
Es sind immer vollständige Blöcke zu bilden
IF ... THEN
...
ELSE
IF ...THEN
...
ELSE
...
ENDIF
ENDIF

4. Es gibt einen Befehl HANDLEFACTOR xx , mit dem werden die vom Handle gemessenen Werte multipliziert.
Wenn man also wie bei Dir die Höhe bei 3/4 der Höhe messen will, braucht man einen HANDLEFACTOR 4/3
und gibt beim Hanlde dann folgendes ein:

HANDLE 0 , 0 , 0 , id , "h" , 1 
HANDLE 0 , 0 , h * 3/4 , id , "h" , 2 
HANDLE 0 , 0 , -1 , id , "h" , 3 
id = id + 1

5. Dein Winkel-Handle sollte evtl. so aussehen:

!Handle Winkel
HANDLE -a1 + l1 + 1 , 0 , 0 , id , "w" , 4 !base
HANDLE -a1 + l1 + ( l2 - a1 ) * COS ( w ) , 0 + SIN ( w ) * ( l2 - a1 ) , 0 , id , "w" , 5 !move
HANDLE -a1 + l1 , 0 , 0 , id , "w" , 6 + 2048 !center
HANDLE -a1 + l1 , 0 , 1 , id , "w" , 7 !ref
id = id + 1

Allerdings ist er dann "nur" auf der gedachten Achsen (bei Dir Aussenseite) des Stahls an der richtigen Stelle.
(Mit der Lage der Bohrung stimmt er nicht ganz überein.)
Das hast Du Dir mit der Rechnerei für die "biegeneutralen Faser" selbst die Karten gelegt.

Das Problem musst Du jetzt selbst lösen...