用Visual Basic 开发交互式CAD系统_源代码.doc

《用Visual Basic 开发交互式CAD系统_源代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、OptionExplicitGlobalConstPI=3.1415926'绘图模式PublicEnumGEDrawModeedmNormal=1edmSelect=2edmDelete=3EndEnum'线型PublicEnumLineStylevbSolid=0vbDash=1vbDot=2vbDashDot=3vbDashDotDot=4vbInvisible=5vbInsideSolid=6EndEnum'命令类型PublicEnumGECommandTypeecUnknown=0ecCreat

2、ePoint=1ecCreateLine=2ecCreatePolyLine=3ecCreateCircle=4ecCreateArc=5ecCreateText=6ecSelOnebyOne=11ecSelLines=12ecSelPolylines=13ecSelCircles=14ecSelArcs=15ecSelTexts=16ecSelAll=17ecSelNone=18ecMove=21ecRotate=22ecMirror=23ecviewzoomin=31ecViewZoomOut=32

3、ecViewLocalZoomOut=33ecViewPan=34ecViewExtent=35EndEnumPublicTypePOINTAPIxAsLongyAsLongEndTypePublicTyperectLeftAsLongTopAsLongRightAsLongBottomAsLongEndTypePublicsLeftAsDoublePublicsTopicAsDoublePublicsRightAsDoublePublicsBottomAsDoublePublicScalAsDoubl

4、ePublicptLineBeginAsNewPositionPublicptLineEndAsNewPositionPublicptPLPoints(1To100,1To100)AsNewPositionPublicPLPoints(1To100,1To100)AsNewPositionPublicintPLPointNumAsIntegerPublicptCircleCenterAsNewPositionPublicptCircleRAsNewPositionPublicptArcCenterAsN

5、ewPositionPublicptArcBeginAsNewPositionPublicptArcEndAsNewPositionPublicCommandAsGECommandTypePublicGElementsAsNewCGElementsPubliclinesAsNewCLinesPublicpolylinesAsNewCPolylinesPubliccirclesAsNewCCirclesPublicarcsAsNewCArcsPublictextsAsNewCTextsPublicSelL

6、inesAsNewCLineSelPublicSelPLinesAsNewCPLineSelPublicSelCirclesAsNewCCircleSelPublicSelArcsAsNewCArcSelPublicSelTextsAsNewCTextsPublicintmStepAsIntegerPublicPickRadiusAsDoublePublicbolMirrorAsBooleanPublicintArcMirrorNumAsIntegerPublicptBasePosAsNewPositi

7、onPublicptDesPosAsNewPositionPublicpBasePosAsNewPositionPublicpDesPosAsNewPositionPublicscale1AsDoublePublicsinOriginXAsDoublePublicsinOriginYAsDoublePublicgeNumAsIntegerPublicentCountAsIntegerPublicDeclareFunctionRectangleLib"gdi32"(ByValhdcAsLong,ByVal

8、x1AsLong,ByValy1AsLong,ByValx2AsLong,ByValy2AsLong)AsLongPublicDeclareFunctionGetClientRectLib"user32"(ByValhwndAsLong,lpRectAsrect)AsLongPublicDeclareFunctionGetBkColorLib"gdi32"(ByValhdcAsLong)AsLongFunctiondistPtoP(Pos1