Создание кругового массива отверстий в AutoCAD с помощью AutoLISP

Здравствуйте! Помогите, пожалуйста, с задачей: мне нужно программно сгенерировать массив отверстий на фланце. Я пытаюсь создать круглый фланец в AutoCAD с помощью языка программирования AutoLISP. Я добился чтобы прорисовывался наружный диаметр фланца, внутренне центральное отверстие, и одно отверстие для которого нужно сделать массивю Какой код мне следует использовать для создания кругового массива отверстий с заданными параметрами? Заранее спасибо за помощь!

Сам код:

(defun flange ()
  (setq center_point (getpoint "Enter center point: "))
  (setq outer_diameter (getreal "Outer diameter of the flange: "))
  (setq inner_diameter (getreal "Inner diameter of the flange: "))
  (setq pitch_circle_diameter (getreal "Pitch circle diameter for holes on the circle: "))
  (setq additional_holes_diameter (getreal "Additional holes diameter: "))
  (setq hole_count (getreal "Number of holes on the flange: "))
  (setq distance_from_point (* pitch_circle_diameter 0.5))

  ; Display information on the screen.
  (princ (strcat "Insertion point: " (vl-prin1-to-string center_point) "\n"))
  (princ (strcat "Outer diameter of the flange: " (vl-prin1-to-string outer_diameter) "\n"))
  (princ (strcat "Inner diameter of the flange: " (vl-prin1-to-string inner_diameter) "\n"))
  (princ (strcat "Pitch circle diameter: " (vl-prin1-to-string pitch_circle_diameter) "\n"))
  (princ (strcat "Additional holes diameter: " (vl-prin1-to-string additional_holes_diameter) "\n"))
  (princ (strcat "Number of holes on the flange: " (vl-prin1-to-string hole_count) "\n"))
  (princ (strcat "Distance from hole to insertion point: " (vl-prin1-to-string distance_from_point) "\n"))

  ; Generate flange geometry on the screen.
  (command "circle" center_point (/ outer_diameter 2))
  (command "circle" center_point (/ inner_diameter 2))
  (command "circle" center_point (/ pitch_circle_diameter 2))

  ; Change the x-coordinate
  (setq new_point
        (subst              ; Substitute
          (+ (car center_point) distance_from_point) ; with the new x value
          (car center_point)       ; old x value
          center_point             ; in the point coordinates
        )                   ; end subst
  )                         ; end setq
  (setq center_point new_point)

  ; Generate additional holes at the shifted position
  (command "circle" center_point (/ additional_holes_diameter 2))
)

(princ "\nFlange drawn.\n")
(flange)