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 / cEllipse.cls < prev    next >
Text File  |  2006-11-16  |  2KB  |  68 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 = "cEllipse"
  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 aR As Double
  33. Public bR As Double
  34. Public Apexes As Long
  35. Public LayerName As String
  36. Public LineTypeName As String
  37. Public ColorIndex As Integer
  38.  
  39. Friend Property Get DxfEllipse() As String
  40.     If Apexes <= 0 Then Exit Property
  41.     Dim lCnt As Long
  42.     Dim oPolyLine As cPolyline
  43.     Dim oGeometry As cGeometry
  44.     Dim xV() As Double, yV() As Double, zV() As Double
  45.     Set oPolyLine = New cPolyline
  46.     Set oGeometry = New cGeometry
  47.     Call oGeometry.GetEllipseVertices(x, y, aR, bR, Apexes, xV(), yV(), zV())
  48.     oPolyLine.LineTypeName = LineTypeName
  49.     oPolyLine.ColorIndex = ColorIndex
  50.     oPolyLine.LayerName = LayerName
  51.     For lCnt = 1 To Apexes
  52.         oPolyLine.InsertVertex xV(lCnt), yV(lCnt), zV(lCnt)
  53.     Next lCnt
  54.     DxfEllipse = oPolyLine.DxfPolyline
  55.     Set oPolyLine = Nothing
  56.     Set oGeometry = Nothing
  57. End Property
  58.  
  59. Private Sub Class_Initialize()
  60.     LayerName = "0"
  61.     LineTypeName = "CONTINUOUS"
  62.     ColorIndex = 255
  63.     Apexes = 60
  64. End Sub
  65.  
  66.  
  67.  
  68.