- / HEADER /
- / TABLES / :
-
-
-
-
- ʲ / BLOCKS /
- ̲² / ENTITIES / ,
- ʲ / EOF /
dwg AutoCAD dxf ( , ), - , , . , dxf - . , dxf - . , , , Turbo Pascal:
- ʳ
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;
dxf- TurboPascal
. ( ) (0,0). 50 , 6 .
, Turbo Pascal, . w1, w2, w3, w4, , (. ). f0, ris.dxf, , AutoCAD . . . ris.dxf , D:\TP7\BIN\. AutoCAD → → .
program grafica;
var f0:text;
i,j,cv:integer;
ix,iy,ix1,iy1,irad:real;
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,'ENDSEC');
writeln(f0,0);
writeln(f0,'EOF');
end;
Begin
assign(f0,'ris.dxf');
Rewrite(f0);
W1;
cv:=0;ix:=0;iy:=0;irad:=50;
for i:=0 to 6 do
Begin
cv:=i;
W3;
irad:=irad-6;
End;
W4;
Close(f0);
End.
ris.dxf. AutoCAD , .1.
.1
( )
1. ( ) 50 . (0,0). 10 .
2. ( ) 50 . (0,0). 10 .
3. ( ) 50 . (0,0). 10 .
4. ( ) 50 . (0,0). 10 .
|
|
|
5. ( ) 50 . (0,0). 10 .
6. ( ) 50 . (0,0). 10 .
7. ( ) 50 . (0,0). 10 .
8. ( ) 50 . (0,0). 10 .
9. ( ) . (0,0), 100 X. 10 Y.
10. ( ) . (0,0), 100 X. 10 䒺 Y.
11. ( ) . (0,0), 150 䒺 X. 10 Y.
12. ( ) . (0,0), 150 䒺 X. 10 䒺 Y.
13. ( ) . (0,0), 100 Y. 10 X.
14. ( ) . (0,0), 100 Y. 10 䒺 X.
15. ( ) . (0,0), 120 䒺 Y. 10 X.
16. ( ) . (0,0), 120 䒺 Y. 10 䒺 X.
17. ( ) 100 . (0,0). 20 .
18. ( ) 100 . (0,0). 20 .
19. ( ) 150 . (0,0). 25 .
|
|
|
20. ( ) 150 . (0,0). 25 .
21. ( ) 120 . (0,0). 15 .
22. ( ) 120 . (0,0). 15 .
23. ( ) 200 . (0,0). 50 .
24. ( ) 200 . (0,0). 50 .
25. ( ) . (0,0), 200 X. 15 Y.
26. ( ) . (0,0), 200 X. 15 䒺 Y.
27. ( ) . (0,0), 150 䒺 X. 25 Y.
28. ( ) . (0,0), 150 䒺 X. 25 䒺 Y.
29. ( ) . (0,0), 100 Y. 30 X.
30. ( ) . (0,0), 100 Y. 30 䒺 X.
31. ( ) . (0,0), 180 䒺 Y. 10 X.
32. ( ) . (0,0), 180 䒺 Y. 10 䒺 X.
|
|
|
. ()
- WORD
- Excel
- Excel
- Excel
- Access
- Access
- Access
- Turbo Pascal
