home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / aplic / turbocad / tcw.z / Impoint.bas < prev    next >
BASIC Source File  |  1997-05-05  |  3KB  |  108 lines
  1. ' This sample program is an example of how to do custom file IO from
  2. ' TurboCAD. We will build graphics from the vertices in the table.
  3. '
  4. ' Author    : Mike Cartwright, Tamara Cartwright (updated to 4.0 interface)
  5. ' Date        : 01/08/96, 03/08/97
  6. ' 
  7. 'Constants
  8. Global Const GK_GRAPHIC = 11
  9. Global Const NULL         = 0
  10.  
  11. ' File I/O constants
  12. Global Const EOFILE     = -1
  13.  
  14. Sub Main ()
  15.     Dim FileName As String
  16.     Dim LineBuffer As String
  17.     Dim g As Long
  18.     Dim v As Long
  19.     Dim vi As Long
  20.     Dim fh As Long
  21.     Dim dActive As Long
  22.     Dim x As Double
  23.     Dim y As Double
  24.     Dim z As Double
  25.     Dim Part As String 
  26.     Dim PartX As String
  27.     Dim PartY As String
  28.     Dim PartZ As String
  29.     Dim Delim As String
  30.     Dim Pos As Integer
  31.     
  32.     ' Check for valid drawing
  33.     dActive    = TCWDrawingActive ()
  34.     If dActive = NULL Then
  35.        MsgBox "Program requires active drawing."
  36.        ' Terminate the program
  37.        Stop
  38.     End If
  39.     
  40.     vi = 0
  41.     g = NULL
  42.     
  43.     ' Delimiter for record fields in the input text file
  44.     Delim = Chr$(9)
  45.      
  46.     ' Get the name of the input file
  47.     FileName = InputBox("Type in the filename to import from")
  48.     
  49.     If (FileName <> "") Then        
  50.         
  51.         ' Open input text file.
  52.         fh = TCWOpenInput(FileName)
  53.         
  54.         ' Read lines from the input file and brake them down
  55.         ' to numeric values
  56.         
  57.         vi = 0 
  58.         while (TCWReadInput(fh, LineBuffer) <> EOFILE)
  59.             ' Graphic separator
  60.             if  LineBuffer = "" Then
  61.                 if ((g <> NULL) And (vi > 0)) Then
  62.                      TCWGraphicAppend NULL, g 
  63.                      TCWGraphicDraw g, 0           
  64.                      g = NULL
  65.                 End If 
  66.                 vi = 0
  67.             End If
  68.             if  (LineBuffer <> "") Then 
  69.                 ' find the first delimiters position in Line
  70.                 Pos = InStr(1, LineBuffer, Delim, 0)
  71.                 ' Let's remove the index part
  72.                 Part = Right$(LineBuffer, Len(LineBuffer) - Pos)
  73.                 ' Let's find position of the second delimiter                        
  74.                 Pos = InStr(1, Part, Delim, 0)
  75.                 ' Let's extract the frist number
  76.                 PartX = Left$(Part, Pos-1) 
  77.                 x = Val(PartX)
  78.                 Part = Right$(Part, Len(Part) - Pos)
  79.                 ' Let's find the position of the third delimiter
  80.                 Pos = InStr(1, Part, Delim, 0)
  81.                 PartY = Left$(Part, Pos-1)
  82.                 y = Val(PartY)
  83.                 PartZ = Right$(Part, Len(Part) - Pos)
  84.                 z = Val(PartZ)
  85.                 ' Add vertex (x, y, z) to the graphic g    
  86.                 If vi = 0 Then
  87.                    g = TCWGraphicCreate(GK_GRAPHIC, "")
  88.                 End If
  89.                 If g <> NULL Then                   
  90.                    TCWGraphicXYZAdd g, x, y, z 
  91.                 End If   
  92.                 vi = vi + 1 
  93.               End If
  94.         wend
  95.         
  96.         ' If anything is left out we need to add to the drawing
  97.         ' now.
  98.         if ((g <> NULL) And (vi > 0)) Then
  99.             TCWGraphicAppend NULL, g
  100.         End If
  101.  
  102.         TCWCloseInput fh
  103.  
  104.   
  105.     End If
  106.  
  107. End Sub
  108.