VB用VisualBasic开发交互式CAD系统(论文和程序)
VB用VisualBasic开发交互式CAD系统(论文和程序)-系统图片展示 |
VB用VisualBasic开发交互式CAD系统(论文和程序)-包括论文和程序列表 |
包括目录名称:
VB用VisualBasic开发交互式CAD系统(论文和程序) - 5 文件数, 2 目录数.
包括目录名称:
用Visual Basic 开发交互式CAD系统 - 0 文件数, 0 目录数.
包括目录名称:
设计 - 47 文件数, 0 目录数.
..\Box.cls
..\CArc.cls
..\CArcs.cls
..\CArcSel.cls
..\CCircle.cls
..\CCircles.cls
..\_desktop.ini
..\延边大学本科毕业论文(doc)712.doc
..\朴顺今的幻灯片 (用Visual Basic 开发).ppt
..\标题(doc)711.doc
..\源代码(doc)713.doc
VB用VisualBasic开发交互式CAD系统(论文和程序)-论文部分内容 |
源代码(doc)713-部分内容OptionExplicit
GlobalConstPI=3.1415926
'绘图模式
PublicEnumGEDrawMode
edmNormal=1
edmSelect=2
edmDelete=3
EndEnum
'线型
PublicEnumLineStyle
vbSolid=0
vbDash=1
vbDot=2
vbDashDot=3
vbDashDotDot=4
vbInvisible=5
vbInsideSolid=6
EndEnum
'命令类型
PublicEnumGECommandType
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
EndEnum
PublicTypePOINTAPI
xAsLong
yAsLong
EndType
PublicTyperect
LeftAsLong
TopAsLong
RightAsLong
BottomAsLong
EndType
PublicsLeftAsDouble
PublicsTopicAsDouble
PublicsRightAsDouble
PublicsBottomAsDouble
PublicScalAsDouble
PublicptLineBeginAsNewPosition
PublicptLineEndAsNewPosition
PublicptPLPoints(1To100,1To100)AsNewPosition
PublicPLPoints(1To100,1To100)AsNewPosition
PublicintPLPointNumAsInteger
PublicptCircleCenterAsNewPosition
PublicptCircleRAsNewPosition
PublicptArcCenterAsNewPosition
PublicptArcBeginAsNewPosition
PublicptArcEndAsNewPosition
PublicCommandAsGECommandType
PublicGElementsAsNewCGElements
PubliclinesAsNewCLines
PublicpolylinesAsNewCPolylines
PubliccirclesAsNewCCircles
PublicarcsAsNewCArcs
PublictextsAsNewCTexts
PublicSelLinesAsNewCLineSel
PublicSelPLinesAsNewCPLineSel
PublicSelCirclesAsNewCCircleSel
PublicSelArcsAsNewCArcSel
PublicSelTextsAsNewCTexts
PublicintmStepAsInteger
PublicPickRadiusAsDouble
PublicbolMirrorAsBoolean
PublicintArcMirrorNumAsInteger
PublicptBasePosAsNewPosition
PublicptDesPosAsNewPosition
PublicpBasePosAsNewPosition
PublicpDesPosAsNewPosition
Publicscale1AsDouble
PublicsinOriginXAsDouble
PublicsinOriginYAsDouble
PublicgeNumAsInteger
PublicentCountAsInteger
PublicDeclareFunctionRectangleLib"gdi32"(ByValhdcAsLong,ByValx1AsLong,ByValy1AsLong,ByValx2AsLong,ByValy2AsLong)AsLong
PublicDeclareFunctionGetClientRectLib"user32"(ByValhwndAsLong,lpRectAsrect)AsLong
PublicDeclareFunctionGetBkColorLib"gdi32"(ByValhdcAsLong)AsLong
FunctiondistPtoP(Pos1AsPosition,Pos2AsPosition)AsDouble
DimdisxAsDouble,disyAsDouble,distAsDouble
WithPos1
disx=.x-Pos2.x
disy=.y-Pos2.y
EndWith
distPtoP=Sqr(disx*disx+d