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