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