home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TURBOD.ZIP / DXFDEMO2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-06-13  |  227 b   |  19 lines
  1. program DXFDemo;
  2.  
  3. uses TurboDXF,DOS;
  4.  
  5. var
  6.  X2,Y1 : integer;
  7.  
  8. begin
  9.  
  10.   OpenDXF('DXFDEMO2.DXF');
  11.  
  12.   for Y1 := 10 downto 1 do
  13.    for X2 := 1 to 10 do
  14.     AddLineToDXF(0,Y1,0,X2,0,0,'LAYER1');
  15.  
  16.   CloseDXF;
  17.  
  18. end.
  19.