Circular slot in Modeling

[Maximus172]

Hi,

I did a macro doing circular slot in ME10 and would like to do similar in LISP for Modeling.

ME10

 
DEFINE circular_slot
LOCAL P1
LOCAL P2
LOCAL B
LOCAL D
LOCAL V
LOCAL R
LET B 5
LET D 20
LINETYPE
SOLID
COLOR
WHITE Cr
READ NUMBER 'Angle ± ' DEFAULT B B
READ NUMBER 'Diameter' DEFAULT D D
READ PNT 'Center' P1
LOOP
READ PNT 'Position of slot' P2
 
LINETYPE
    DASH_CENTER
    COLOR
    YELLOW
LET V (ROT (P2 - P1) 0)
LET V1 (ROT(V) B)
LET V2 (ROT(V) (-B))
LET V11 (ROT(V) (2*B))
LET V12 (ROT(V) (-2*B))
LET V13 (ROT (P2 - P1) 0)
LET V13 (V13/(LEN (V13)))
LET V13 (V13*(D/2))
LINE TWO_PTS P1 P2
ARC THREE_PTS (V11+P1) (V12+P1) P2
    LINETYPE
    SOLID
    COLOR
    WHITE Cr
LET V5 (V1/(LEN(V1)))
LET V5 (V5*(-D/2))
ARC DIAMETER (P1+(V1-V5)) (P1+(V1+V5))
LET V6 (V2/(LEN(V2)))
LET V6 (V6*(-D/2))
ARC DIAMETER (P1+(V2+V6)) (P1+(V2-V6))
LET V (V/(LEN(V)))
LET V (V*(-D/2))
ARC THREE_PTS (P1+(V1-V5)) (P1+(V2-V6)) (P2-V)
ARC THREE_PTS (P1+(V1+V5)) (P1+(V2+V6)) (P2+V)
END_LOOP
END_DEFINE

I started but have problem with vectors

Could you help me ?

Thanks