порядок:
1.
procedure TFMZ.FormCreate(Sender: TObject);
begin
fs:= DefaultFormatSettings;
fs.DecimalSeparator:='.';
end;

это нужно чтобы цифры можно было дробные использовать (если забудете, то будет округлять до целых)

2.

ToDXF_begin - начало работы (создает шапку DXF-файла)

3.
... всякие функции Phy_xxx()

4.
ToDXF_end - завершение работы (пишет конец файла DXF-файла)

PS создаешь пустой файл акада. заносишь объект (линия, круг, дуга, блок!!! и т.д.) по одному! и сохраняешь в dxf-версии 12.
открываешь редактором и смотришь.
шапка и хвост везде одни:
начало:
0

ENDSEC
0
SECTION


конец:
0
ENDSEC
0
EOF

на всякую шелуху (начинаются с "$") внимания не обращаем.
в самом конце файла будет нужное, например (для дуги):
0
ARC - оператор
5
1EC - уникальная метка (если будешь работать с блоками, то без нее никак!)
8
0
10
1344.8529819813409 - координата Х
20
887.92179071486566  - координата У
30
0.0
40
432.87836967199911 - радиус
50
70.637926797001072 - начало дуги
51
171.64181027105349 - конец дуги

вообщем дальше методом научного тыка можно найти разные параметры.
если не было выбрано ничего экзотического, то данный параметр здесь и не появится.
если сделать дугу красной, то в dxf появится:
62
1


С Уважением, Виталий (physieker)
