If you want the wallhole coincide with the 2D symbol,
you have to contain it into A & B dimensions.
ang=MIN(MAX(0,ang),90) ! Master script
PARAMETERS ang=ang
x=A/(1+TAN(ang)) ! 3D script
y=B/(1+TAN(ang))
WALLHOLE 4,1,
A/2-x , B , 7,
A/2 , y , 7,
-A/2+x, 0 , 7,
-A/2 , B-y, 7