home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / DXFWriter_20312811162006.psc / DXFWriter / cArc.cls < prev    next >
Text File  |  2006-11-16  |  2KB  |  69 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cArc"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '----------------------------------------------------------
  15. '     ⌐ 2006, Athanasios Gardos
  16. 'e-mail: gardos@hol.gr
  17. 'You may freely use, modify and distribute this source code
  18. '
  19. 'Last update: November 16, 2006
  20. 'Please visit:
  21. '     http://business.hol.gr/gardos/
  22. ' or
  23. '     http://avax.invisionzone.com/
  24. 'for development tools and more source code
  25. '-----------------------------------------------------------
  26.  
  27. Option Explicit
  28.  
  29. Public x As Double
  30. Public y As Double
  31. Public z As Double
  32. Public R As Double
  33. Public StartAngle As Double
  34. Public EndAngle As Double
  35. Public LayerName As String
  36. Public LineTypeName As String
  37. Public ColorIndex As Integer
  38.  
  39. Friend Property Get DxfArc() As String
  40.     Dim oStr As cAddString
  41.     Set oStr = New cAddString
  42.     oStr.BeginAdd
  43.     oStr.Add2Strings "  0", vbCrLf
  44.     oStr.Add2Strings "ARC", vbCrLf
  45.     oStr.Add2Strings "  8", vbCrLf
  46.     If LayerName = "" Then LayerName = "0"
  47.     oStr.Add2Strings LayerName, vbCrLf
  48.     oStr.Add2Strings " 62", vbCrLf
  49.     oStr.Add2Strings Format$(ColorIndex), vbCrLf
  50.     oStr.Add2Strings "  6", vbCrLf
  51.     If LineTypeName = "" Then LineTypeName = "CONTINUOUS"
  52.     oStr.Add2Strings LineTypeName, vbCrLf
  53.     oStr.AddString DxfNb(10, x)
  54.     oStr.AddString DxfNb(20, y)
  55.     oStr.AddString DxfNb(30, z)
  56.     oStr.AddString DxfNb(40, R)
  57.     oStr.AddString DxfNb(50, StartAngle)
  58.     oStr.AddString DxfNb(51, EndAngle)
  59.     DxfArc = oStr.CurString
  60.     Set oStr = Nothing
  61. End Property
  62.  
  63. Private Sub Class_Initialize()
  64.     LayerName = "0"
  65.     LineTypeName = "CONTINUOUS"
  66.     ColorIndex = 255
  67. End Sub
  68.  
  69.