И ещё одна подобная картинка (думаю, последняя), код и скрипт.
!BeArt Code:
a =0.1
b = 360
eps = .00001
REPEAT
c = (a + b) / 2
fa = a *PI/ 720 * (d * TAN(a / 4) + d / TAN(a / 4)) - L
fc = c*PI/ 720 * (d * TAN(c / 4) + d / TAN(c / 4)) - L
IF (fa * fc) < 0 THEN b = c ELSE a = c
UNTIL (b - a) <= eps
angle = (a + b) / 2
r=180*L/(PI*angle)*0.001
PEN 1
!CIRCLE2 0,0, r
ARC2 0, 0, r, 0, angle
HOTSPOT2 0, 0
HOTSPOT2 r, 0
ROT2 angle
HOTSPOT2 r, 0
END
В параметрах вводите значение длины дуги и хорды...
Задача решена с достаточной для ArchiCad точностью (см. картинку) - eps = .00001