delete_3d :all_at_top complete

create_workplane :new complete

;; create cylinder
2dCopilot :circle_mode :real_geometry 0,0 50
extrude
 :sel_part "/body1"
 :keep_profile :no
 :direction :+W
 :type :DISTANCE_TYPE
 :distance 40
complete

;; create block
2dCopilot :rectangle_mode :real_geometry -30,-30 30,30
extrude
 :sel_part "/body2"
 :keep_profile :no
 :direction :+W
 :type :DISTANCE_TYPE
 :distance 20
complete

;; rotate block and subtract from cylinder X times
(setq rot-angle 1) ; in degree
(setq rot-steps 90)

(dotimes (i rot-steps)

(pos_dynamic
 :objects-to-move "/body2"
 :dimension-method :on
 :dyn-pos-method :on
 :current-axis :z
 :current-angle rot-angle
 ) #| complete |#

(subtract_3d
 :blanks "/body1"
 :tools "/body2"
 :keep_tool :yes
 ) #| complete |#

) #| end loop |#