home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / vb_code1 / dxf_dll / vbdemo1.bas < prev    next >
BASIC Source File  |  1992-02-10  |  2KB  |  19 lines
  1. Declare Sub DXFOpen Lib "TURBODXF.DLL" (ByVal FileName$)
  2. Declare Sub DXFHeader Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal X2#, ByVal Y2#)
  3. Declare Sub DXFStartTables Lib "TURBODXF.dll" (ByVal NumLayers%)
  4. Declare Sub DXFADDLayer Lib "TURBODXF.dll" (ByVal LayerName$, ByVal LayerColor%)
  5. Declare Sub DXFStartViewTable Lib "TURBODXF.dll" (ByVal NumViews%)
  6. Declare Sub DXFAddView Lib "TURBODXF.DLL" (ByVal ViewName$, ByVal Height#, ByVal ViewWidth#, ByVal CentreX#, ByVal CentreY#)
  7. Declare Sub DXFEndTables Lib "TURBODXF.dll" ()
  8. Declare Sub DXFAddText10 Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal Z1#, ByVal Height#, ByVal Rotate#, ByVal TextString$, ByVal LayerName$)
  9. Declare Sub DXFAddArc Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal Z1#, ByVal Radius#, ByVal StartAngle#, ByVal EndAngle#, ByVal Layer$)
  10. Declare Sub DXFAddSolid Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal Z1#, ByVal X2#, ByVal Y2#, ByVal Z2#, ByVal X3#, ByVal Y3#, ByVal Z3#, ByVal X4#, ByVal Y4#, ByVal Z4#, ByVal Layer$)
  11. Declare Sub DXFAddLine Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal Z1#, ByVal X2#, ByVal Y2#, ByVal Z2#, ByVal LayerName$)
  12. Declare Sub DXFAddPoly Lib "TURBODXF.dll" (ByVal Layer$)
  13. Declare Sub DXFAddVertex Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal Z1#, ByVal StartWidth#, ByVal EndWidth#, ByVal Layer$)
  14. Declare Sub DXFEndPoly Lib "TURBODXF.dll" ()
  15. Declare Sub DXFAddCircle Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal Z1#, ByVal Radius#, ByVal Extrusion#, ByVal LayerName$)
  16. Declare Sub DXFClose Lib "TURBODXF.dll" ()
  17. Declare Sub DXFAddBar Lib "TURBODXF.dll" (ByVal X1#, ByVal Y1#, ByVal BarWidth#, ByVal Height#, ByVal Layer$)
  18.  
  19.