home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBOD.ZIP / DXFDEMO1.PAS next >
Encoding:
Pascal/Delphi Source File  |  1990-06-15  |  392 b   |  20 lines
  1. program DXFDemo;
  2.  
  3. uses TurboDXF,DOS;
  4.  
  5. begin
  6.  
  7.   OpenDXF('DXFDEMO1.DXF');
  8.  
  9.   AddLineToDXF(1,1,1,1,2,2,'LAYER1');
  10.   AddLineToDXF(1,2,2,2,2,3,'LAYER1');
  11.   AddLineToDXF(2,2,3,2,1,1,'LAYER1');
  12.   AddLineToDXF(2,1,1,1,1,1,'LAYER1');
  13.  
  14.   AddTextToDXF(4,4,0,1,30,'TurboDXF by D. Dorosh.','LAYER1');
  15.   AddTextToDXF(4,2.5,0,1,0,'Please register you copy!','LAYER1');
  16.  
  17.   CloseDXF;
  18.  
  19. end.
  20.