[Леонид154]

Есть код программы, которая строит в несколько рядов прямоугольники, код приведу в конце. Что следует изменить в коде, чтобы программы строила так же в ряд, но только окружности?

Код: (DEFUN C:frg1 ()

(setq p0 (getpoint"\n Указать точку вставки детали:")
k (getint"\n Введите число отверстий в детали:")
d (* k 10)
p1 (polar p0 0.0 5)
p2 (polar p1 (/ pi 2) 5)
p3 (polar p2 0.0 5)
p4 (polar p3 (/ pi 2) 90)
p5 (polar p0 0.0 (+ d 5))
p6 (polar p5 (/ pi 2) 100)
)
(command "rectang" p2 p4)
(command "array" p2 "" "r" "1" k "10")
(command "rectang" p0 p6)
)

[hwd]

Сообщение от Леонид154 Что следует изменить в коде, чтобы программы строила так же в ряд, но только окружности?

Задача очень сложная... Тут помощники нужны... С подобным сюда, коль самому букварь открыть влом.

[Do$]

2hwd

Сообщение от Леонид154 Что следует изменить в коде

Логику вычисления точек и команду использовать для построения окружности - CIRCLE вместо команды построения прямоугольников - RECTANG.