Загальна структура файлу

1. Розділ ЗАГОЛОВКУ / HEADER / містить загальну інформацію про креслення
2. Розділ ТАБЛИЦЬ / TABLES / містить визначення іменованих елементів:

- таблиця типів ліній

- таблиця шарів

- таблиця типів шрифтів

- таблиця видів

1. Розділ БЛОКІВ / BLOCKS / містить графічні примітиви визначень блоків
2. Розділ ПРИМІТИВІВ / ENTITIES / містить графічні примітиви креслення, в тому числі посилання на блоки
3. Розділ КІНЦЯ ФАЙЛУ / EOF /

Якщо файл креслення типу dwg в середовищі AutoCAD зберегти з розширенням dxf (не перейменувати, а зберегти в іншому форматі), а потім переглянути в будь-якому текстовому редакторі, можна побачити інформацію дуже великого обсягу, на перший погляд незрозумілу і надлишкову. Не будемо детально зупинятися на її аналізі, розглянемо лише необхідні для формування dxf - файлу розділи. Зазначимо, що всі команди і повідомлення dxf - файлу традиційно англомовні. Для створення двохвимірних креслень, які містять основні графічні примітиви, запропонуємо такі елементи, оформлені у вигляді процедур на мові програмування Turbo Pascal:

1. Початок секції примітивів
2. Накреслення лінії
3. Накреслення кола
4. Накреслення тексту
5. Кінець секції з кінцем файлу

Розглянемо процедури на мові програмування Turbo Pascal, які цілком можна використати для формування dxf - файлу. В даному прикладі f0 – файл, який слід визначити з розширенням dxf і відкрити для запису. Файл dxf у найпростішому випадку починається з секції примітивів (процедура w1). Далі, в залежності від задачі, що вирішується, багатократно (у циклі) або єдиний раз викликаються процедури w2 (LINE – лінія), w3 (CIRCLE – коло), w4 (TEXT – текст) у певній послідовності. У разі необхідності використання інших графічних примітивів (дуга, прямокутник, і т.д.) слід самостійно, по аналогії, дописати відповідні процедури.

procedure w1; { Початок секції примітивів }

begin

writeln(f0,0);

writeln(f0,'SECTION');

writeln(f0,2);

writeln(f0,'ENTITIES');

end;

procedure w2; { Накреслення лінії }

begin

writeln(f0,0);

writeln(f0,'LINE');

writeln(f0,8);

writeln(f0,0);

writeln(f0,62);

writeln(f0,CV);

writeln(f0,10);

writeln(f0,ix);

writeln(f0,20);

writeln(f0,iy);

writeln(f0,11);

writeln(f0,ix1);

writeln(f0,21);

writeln(f0,iy1);

end;

procedure w3; { Накреслення кола }

begin

writeln(f0,0);

writeln(f0,'CIRCLE');

writeln(f0,8);

writeln(f0, 0);

writeln(f0,62);

writeln(f0,CV);

writeln(f0,10);

writeln(f0,ix);

writeln(f0,20);

writeln(f0,iy);

writeln(f0,40);

writeln(f0,irad);

end;

procedure w4; { Накреслення тексту }

begin

writeln(f0,0);

writeln(f0,'TEXT');

writeln(f0,8);

writeln(f0,0);

writeln(f0,62);

writeln(f0,CV);

writeln(f0,10);

writeln(f0,ix);

writeln(f0,20);

writeln(f0,iy);

writeln(f0,40);

writeln(f0,v);

writeln(f0,1);

writeln(f0,sim);

writeln(f0,50);

writeln(f0,ug);

end;

procedure w5; { Кінець секції з кінцем файлу }

begin

writeln(f0,0);

writeln(f0,'ENDSEC');

writeln(f0,0);

writeln(f0,'EOF');

end;

Дата добавления: 2015-07-11