cgelement.cls

数控自动编程系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CGElement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Description = "图元基类"
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

Private m_ID As Integer

'根据给定的绘图模式绘图元
Public Sub Draw(eDrawMode As GEDrawMode)

End Sub

'写ID属性
Public Property Let ID(ByVal vData As Integer)
    m_ID = vData
End Property

'读ID属性
Public Property Get ID() As Integer
    ID = m_ID
End Property

'图元拾取
Public Function Pick(pos As Position, PickRadius As Double) As Boolean

End Function

'图元的镜像变换
Public Sub Mirror(Pos1 As Position, Pos2 As Position)

End Sub

'图元的旋转变换
Public Sub Rotate(basePos As Position, Angle As Double)

End Sub

'图元的平移变换
Public Sub Move(basePos As Position, desPos As Position)

End Sub

'图元的比例变换
Public Sub ScaleTransform(scalez As Double, scalex As Double)

End Sub

'获取图元的包围矩形
Public Sub GetBox(pBox As Box)

End Sub