VB交互式CAD系统开发与实现源论文.doc

Option Explicit
Global Const PI =
'绘图模式
Public Enum GEDrawMode
edmNormal = 1
edmSelect = 2
edmDelete = 3
End Enum
'线型
Public Enum LineStyle
vbSolid = 0
vbDash = 1
vbDot = 2
vbDashDot = 3
vbDashDotDot = 4
vbInvisible = 5
vbInsideSolid = 6
End Enum
'命令类型
Public Enum mandType
ecUnknown = 0
ecCreatePoint = 1
ecCreateLine = 2
ecCreatePolyLine = 3
ecCreateCircle = 4
ecCreateArc = 5
ecCreateText = 6

ecSelOnebyOne = 11
ecSelLines = 12
ecSelPolylines = 13
ecSelCircles = 14
ecSelArcs = 15
ecSelTexts = 16
ecSelAll = 17
ecSelNone = 18

ecMove = 21
ecRotate = 22
ecMirror = 23

ecviewzoomin = 31
ecViewZoomOut = 32
ecViewLocalZoomOut = 33
ecViewPan = 34
ecViewExtent = 35
End Enum
Public Type POINTAPI
x As Long
y As Long
End Type
Public Type rect
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public sLeft As Double
Public sTopic As Double
Public sRight As Double
Public sBottom As Double
Public Scal As Double
Public ptLineBegin As New Position
Public ptLineEnd As New Position
Public ptPLPoints(1 To 100, 1 To 100) As New Position
Public PLPoints(1 To 100, 1 To 100) As New Position
Public intPLPointNum As Integer
Public ptCircleCenter As New Position
Public ptCircleR As New Position
Public enter As New Position
Public ptArcBegin As New Position
Public ptArcEnd As New Position
mand As mandType
Public GElements As New CGElements
Public lines As New CLines
Public polylines As New CPolylines
Public circles As ircles
Public arcs As New CArcs
Public texts As New CTexts
Public SelLines As New CLineSel
Public SelPLines As New CPLineSel
Public SelCircles As ircleSel
Public SelArcs As New CArcSel
Public SelTexts As New CTexts
Public intmStep As Integer
Public PickRadius As Double
Public bolMirror As Boolean
Public intArcMirrorNum As Integer
Public ptBasePos As New Position
Public ptDesPos As New Position
Public pBasePos As New Position
P