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 / cCircle.cls < prev    next >
Text File  |  2006-11-16  |  2KB  |  65 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 = "cCircle"
  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 LayerName As String
  34. Public LineTypeName As String
  35. Public ColorIndex As Integer
  36.  
  37. Friend Property Get DxfCircle() As String
  38.     Dim oStr As cAddString
  39.     Set oStr = New cAddString
  40.     oStr.BeginAdd
  41.     oStr.Add2Strings "  0", vbCrLf
  42.     oStr.Add2Strings "CIRCLE", vbCrLf
  43.     oStr.Add2Strings "  8", vbCrLf
  44.     If LayerName = "" Then LayerName = "0"
  45.     oStr.Add2Strings LayerName, vbCrLf
  46.     oStr.Add2Strings " 62", vbCrLf
  47.     oStr.Add2Strings Format$(ColorIndex), vbCrLf
  48.     oStr.Add2Strings "  6", vbCrLf
  49.     If LineTypeName = "" Then LineTypeName = "CONTINUOUS"
  50.     oStr.Add2Strings LineTypeName, vbCrLf
  51.     oStr.AddString DxfNb(10, x)
  52.     oStr.AddString DxfNb(20, y)
  53.     oStr.AddString DxfNb(30, z)
  54.     oStr.AddString DxfNb(40, R)
  55.     DxfCircle = oStr.CurString
  56.     Set oStr = Nothing
  57. End Property
  58.  
  59. Private Sub Class_Initialize()
  60.     LayerName = "0"
  61.     LineTypeName = "CONTINUOUS"
  62.     ColorIndex = 255
  63. End Sub
  64.  
  65.