home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / aplic / turbocad / tcw.z / Expoint.bas < prev    next >
BASIC Source File  |  1997-05-05  |  2KB  |  71 lines
  1. ' This sample program is an example of how to do custom file IO from
  2. ' TurboCAD. All vertices of selected graphics are output to a table
  3. '
  4. ' Author    : Mike Cartwright, Tamara Cartwright (updated to TurboCAD 4.0 interface)
  5. ' Date        : 01/08/96,  3/8/97
  6. ' 
  7. 'Constants
  8. Global Const GK_GRAPHIC = 11
  9. Global Const NULL         = 0
  10.  
  11. Sub Main ()
  12.     Dim FileName As String
  13.     Dim myLine As String
  14.     Dim g As Long
  15.     Dim v As Long
  16.     Dim vi As Long
  17.     Dim vCount As Long
  18.     Dim gCount As Long
  19.     Dim i As Long
  20.     Dim fh As Long
  21.     Dim dActive As Long
  22.     
  23.         ' Check for valid drawing
  24.     dActive = TCWDrawingActive ()
  25.         If dActive = NULL Then
  26.            MsgBox "Program requires active drawing. Open any drawing and try again."
  27.            ' Terminate the program
  28.            Stop
  29.         End If
  30.        
  31.         ' Get the name of the output file.
  32.         FileName = InputBox("Type in the filename to export to")
  33.         If FileName <> "" Then
  34.         gCount = TCWSelectionCount()        
  35.         If (gCount = 0) Then
  36.             MsgBox "Need to have at least one graphic selected"
  37.             Stop
  38.         End If
  39.         
  40.           ' Open the output text file.
  41.         fh = TCWOpenOutput(FileName)
  42.        
  43.             ' Walk through the selected graphics and pick only
  44.             ' GK_GRAPHICS.
  45.         for i = 0 to gCount - 1
  46.             g = TCWSelectionAt(i)
  47.             if TCWGraphicPropertyGet(g, "Kind") = GK_GRAPHIC Then
  48.                 if vi > 0 then
  49.                     ' Place a blank line after the previous graphic
  50.                      TCWWriteOutput fh, ""
  51.                 End If
  52.                 
  53.                 vCount = TCWVertexCount(g)
  54.                 ' Iterate through the vertices of the graphic g.
  55.                 for vi = 0 to vCount - 1
  56.                     v = TCWVertexAt(g, vi)
  57.                     ' Write the coordinates of vertex v into the string Line.
  58.                     ' The delimeter for numeric fields is chr(9) character.
  59.                     myLine = Str$(vi) & chr$(9) & Str$(TCWGetX(v)) & chr$(9) & _ 
  60.                              Str$(TCWGetY(v)) & chr$(9) & Str$(TCWGetZ(v))
  61.                     TCWWriteOutput fh, myLine
  62.                 next vi            
  63.             End If
  64.         next i
  65.  
  66.         TCWCloseOutput fh
  67.                             
  68.     End If
  69.  
  70. End Sub
  71.