欢迎来到天天文库
浏览记录
ID:50691451
大小:88.00 KB
页数:26页
时间:2020-03-07
《用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
此文档下载收益归作者所有