cad vba二次开发说明书

#致谢在设计中，指导老师董小雷给予了我们很大的帮助，不仅帮我们收集资料，而且对于我们的设计中出现的问题，给予了我们宝贵的指导意见，才能使我们的设计得以顺利的完成。我从董小雷老师那里学到的不仅是严谨治学的态度，还有分析解决问题的方法策略。她本人的那种敏锐的见解、活跃的思想以及对待人的那种真诚让我受益菲浅。在此我向董小雷老师表示衷心的感谢。同时也对同组人张浩和王伟斯同学在这段时间里对我完成毕业设计任务所提供的帮助表示感谢，感谢所有帮助过我、指导过我的其他老师和同学们。同时对在设计过程中给我提供方便其他人表示衷心地感谢。由于本人水平有限，在设计中有许多不足之处恳请各位老师予以指正。附录A源代码1.计算模块：PublicSubainsertmenuitem()DimcurrmenugroupAsAcadMenuGroupDimmenuitemAsAcadPopupMenuItemDimmenuseparatorAsAcadPopupMenuItemDimmacrostr1AsStringDimmacrostr2AsStringDimnewmenuAsAcadPopupMenuSetcurrmenugroup=ThisDrawing.Application.MenuGroups.Item(0)Setnewmenu=currmenugroup・Menus・Add("标准连接件")双头螺柱",接件",macrostr1=Chr(3)+Chr(3)+Chr(95)+双头螺柱",接件",Setmenuitem=newmenu・AddMenuItem(newmenu・Count+1,macrostr1)currmenugroup・Menus・InsertMenuInMenuBar"标准连ThisDrawing・Application・MenuGroups・Count+100EndSubPublicSubwww()UserForm5・ShowEndSub2・Userform1PublicpickpntAsVariantPrivateSubCommandButton1_Click()i=Val(TextBox1・Text)j=Val(TextBox2・Text)k=pickpnt(0)l=pickpnt(1)m=Val(TextBox5・Text)CallAddXlinei=RadiusCallAddlineCallDrawPloylineCallAddline1CallAddLWPine1CallAddLWPine2CallAddline2CallDrawHatchObjectCallDrawHatchObject1CallDrawHatchObject2CallDrawlignedCallDrawligned1CallduanmianxianCallduanmianxian1UserForm1.HideEndSubPrivateSubCommandButton2_Click()EndEndSubPrivateSubCommandButton3_Click()UserForm1.HideUserForm3.ShowEndSubPrivateSubCommandButton4_Click()UserForm1.Hidepickpnt=ThisDrawing.Utility.GetPoint(,"选择圆中心：")UserForm1.ShowEndSubPrivateSubOptionButton1_Click()Ifvalue=FalseThenUserForm2.ShowEndSubPrivateSubOptionButton2_Click()Ifvalue=FalseThenUserForm4.ShowEndSubPublicSubAddXline()'画螺柱俯视图DimXLObject1AsAcadXlineDimXLObject2AsAcadXlineDimCircleObject1AsAcadCircleDimArcObjectAsAcadArcDimcenobject1AsAcadLineDimcenobject2AsAcadLineDimcenlinepoint1(0To2)AsDoubleDimcenlinepoint2(0To2)AsDoubleDimcenlinepoint3(0To2)AsDoubleDimcenlinepoint4(0To2)AsDoublei=Val(TextBox1.Text)k=pickpnt(0)l=pickpnt(1)cenlinepoint1(0)=k-3*i:cenlinepoint1(1)=l:cenlinepoint1(2)=0cenlinepoint2(0)=k+3*i:cenlinepoint2(1)=l:cenlinepoint2(2)=0cenlinepoint3(0)=k:cenlinepoint3(1)=l+10*i:cenlinepoint3(2)=0cenlinepoint4(0)=k:cenlinepoint4(1)=l-2*i:cenlinepoint4(2)=0Setcenobject1=ThisDrawing.ModelSpace.Addline(cenlinepoint1,cenlinepoint2)Setcenobject2=ThisDrawing.ModelSpace.Addline(cenlinepoint3,cenlinepoint4)Dimline_entAsAcadLineTypeDimfoundAsBooleanfound=FalseForEachline_entInThisDrawing.LinetypesIfStrComp(line_ent.Name,"CENTER",1)=0Thenfound=TrueExitForEndIfNextIfNot(found)ThenThisDrawing.Linetypes.Load"CENTER","acad.lin"EndIfcenobject1.Linetype="CENTER"cenobject1.color=acRedcenobject2.Linetype="CENTER"cenobject2.color=acRedDimpoint1(0To2)AsDoubleDimpoint2(0To2)AsDoubleDimPoint3(0To2)AsDoubleDimRadiusAsDoubleDimArcRadiusAsDoubleDimArcSAngleAsDoubleDimArcEAngleAsDoublek=pickpnt(0)l=pickpnt(1)point1(0)=k:point1(1)=l:point1(2)=0point2(0)=k:point2(1)=0:point2(2)=0Point3(0)=0:Point3(1)=l:Point3(2)=0i=Val(TextBox1.Text)Radius=i/2ArcRadius=(i/2-i/10)ArcSAngle=0ArcEAngle=4.712SetXLObject1=ThisDrawing.ModelSpace.AddXline(point1,point2)SetXLObject2=ThisDrawing.ModelSpace.AddXline(point1,Point3)SetCircleObject1=ThisDrawing.ModelSpace.AddCircle(point1,Radius)SetArcObject=ThisDrawing.ModelSpace.AddArc(point1,ArcRadius,ArcSAngle,ArcEAngle)CircleObject1.Lineweight=acLnWt070ArcObject.Lineweight=acLnWt030XLObject1.DeleteXLObject2.DeleteIfUserForm3・ComboBox3.value="平垫圈-C级"ThenDimCircleObjectAsAcadCircleDimRadius1AsDoubleRadius1=2.2*i/2SetCircleObject=ThisDrawing.ModelSpace.AddCircle(point1,Radius1)CircleObject.Lineweight=acLnWt070EndIfThisDrawing.Application.ZoomAllEndSubPublicSubAddline()'画分界线DimLineObject1AsAcadLineDimLineObject2AsAcadLineDimLineObject3AsAcadLineDimLineObject4AsAcadLineDimSpoint1(0To2)AsDoubleDimEpoint1(0To2)AsDoubleDimSpoint2(0To2)AsDoubleDimEpoint2(0To2)AsDoubleDimSpoint3(0To2)AsDoubleDimEpoint3(0To2)AsDoubleDimSpoint4(0To2)AsDoubleDimEpoint4(0To2)AsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)Spoint1(0)=k-2*i:Spoint1(1)=l+5*i:Spoint1(2)=0Epoint1(0)=k+2*i:Epoint1(1)=l+5*i:Epoint1(2)=0Spoint2(0)=k-2*i:Spoint2(1)=l+5*i+j:Spoint2(2)=0Epoint2(0)=k+2*i:Epoint2(1)=l+5*i+j:Epoint2(2)=0Spoint3(0)=k-2*i:Spoint3(1)=l+1.5*i:Spoint3(2)=0Epoint3(0)=k+2*i:Epoint3(1)=l+1.5*i:Epoint3(2)=0Spoint4(0)=k-2*i:Spoint4(1)=l-1.5*i:Spoint4(2)=0Epoint4(0)=k+2*i:Epoint4(1)=l-1.5*i:Epoint4(2)=0SetLineObject1=ThisDrawing.ModelSpace.Addline(Spoint1,Epoint1)SetLineObject2=ThisDrawing.ModelSpace.Addline(Spoint2,Epoint2)SetLineObject3=ThisDrawing.ModelSpace.Addline(Spoint3,Epoint3)SetLineObject4=ThisDrawing.ModelSpace.Addline(Spoint4,Epoint4)LineObject1.Lineweight=acLnWt070LineObject2.Lineweight=acLnWt070LineObject3.Lineweight=acLnWt070LineObject4.Lineweight=acLnWt070ThisDrawing.Application.ZoomAllEndSubPublicSubDrawPloyline()'画正六边形DimLWPlineAsAcadLWPolylineDimpoint(0To11)AsDoubleDimIndexAsLongDimSWidthAsDoubleDimEWidthAsDoublei=Val(TextBox1.Text)k=pickpnt(0)l=pickpnt(1)point(0)=k-ipoint(1)=lpoint(2)=k-i/2point(3)=l+1.732*i/2point(4)=k+i/2point(5)=l+1.732*i/2point(6)=k+ipoint(7)=lpoint(8)=k+i/2point(9)=l-1.732*i/2point(10)=k-i/2point(11)=l-1.732*i/2Setlwplineobject=ThisDrawing.ModelSpace.AddLightWeightPolyline(point)lwplineobject.Closed=Truelwplineobject.Lineweight=acLnWt070ThisDrawing.Application.ZoomExtentsEndSubPublicSubAddline1()'画螺纹线DimLineObject1AsAcadLineDimLineObject2AsAcadLineDimLineObject3AsAcadLineDimLineObject4AsAcadLineDimLineObject5AsAcadLineDimLineObject6AsAcadLineDimLineObject7AsAcadLineDimLineObject8AsAcadLineDimSpoint1(0To2)AsDoubleDimEpoint1(0To2)AsDoubleDimSpoint2(0To2)AsDoubleDimEpoint2(0To2)AsDoubleDimSpoint3(0To2)AsDoubleDimEpoint3(0To2)AsDoubleDimSpoint4(0To2)AsDoubleDimEpoint4(0To2)AsDoubleDimSpoint5(0To2)AsDoubleDimEpoint5(0To2)AsDoubleDimSpoint6(0To2)AsDoubleDimEpoint6(0To2)AsDoubleDimSpoint7(0To2)AsDoubleDimEpoint7(0To2)AsDoubleDimSpoint8(0To2)AsDoubleDimEpoint8(0To2)AsDoublei=Val(TextBox1.Text)'直径j=Val(TextBox2.Text)'夹板厚度k=pickpnt(0)l=pickpnt(1)'纵坐标m=Val(TextBox5.Text)'lb=2*i'bIfUserForm3.ComboBox3.value="标准型弹簧垫圈"Thenh=0.25*ix=1.5*iElselfUserForm3.ComboBox3.value="平垫圈-C级"Thenh=0.15*ix=2.2*iEndIfSpoint1(0)=k-i/2:Spoint1(1)=l+5*i-i:Spoint1(2)=0'左下一Epoint1(0)=k-i/2:Epoint1(1)=l+5*i-i-0.5*i:Epoint1(2)=0Spoint2(0)=k-(i/2-i/10):Spoint2(1)=l+5*i:Spoint2(2)=0'左下二Epoint2(0)=k-(i/2-i/10):Epoint2(1)=l+5*i-i:Epoint2(2)=0Spoint3(0)=k+(i/2-i/10):Spoint3(1)=l+5*i:Spoint3(2)=0'右下二Epoint3(0)=k+(i/2-i/10):Epoint3(1)=l+5*i-i:Epoint3(2)=0Spoint4(0)=k+i/2:Spoint4(1)=l+5*i-i:Spoint4(2)=0'右下一Epoint4(0)=k+i/2:Epoint4(1)=l+5*i-i-0.5*i:Epoint4(2)=0Spoint5(0)=k-(i/2-i/10):Spoint5(1)=l+5*i+j:Spoint5(2)=0'左上二Epoint5(0)=k-(i/2-i/10):Epoint5(1)=l+5*i+m-b:Epoint5(2)=0Spoint6(0)=k-(i/2-i/10):Spoint6(1)=l+5*i+j+0.8*i+h:Spoint6(2)=0Epoint6(0)=k-(i/2-i/10):Epoint6(1)=l+5*i+m:Epoint6(2)=0Spoint7(0)=k+(i/2-i/10):Spoint7(1)=l+5*i+j+0.8*i+h:Spoint7(2)=0Epoint7(0)=k+(i/2-i/10):Epoint7(1)=l+5*i+m:Epoint7(2)=0Spoint8(0)=k+(i/2-i/10):Spoint8(1)=l+5*i+j:Spoint8(2)=0'右上二Epoint8(0)=k+(i/2-i/10):Epoint8(1)=l+5*i+m-b:Epoint8(2)=0SetLineObject1=ThisDrawing.ModelSpace.Addline(Spoint1,Epoint1)SetLineObject2=ThisDrawing.ModelSpace.Addline(Spoint2,Epoint2)SetLineObject3=ThisDrawing.ModelSpace.Addline(Spoint3,Epoint3)SetLineObject4=ThisDrawing.ModelSpace.Addline(Spoint4,Epoint4)SetLineObject5=ThisDrawing.ModelSpace.Addline(Spoint5,Epoint5)SetLineObject6=ThisDrawing.ModelSpace.Addline(Spoint6,Epoint6)SetLineObject7=ThisDrawing.ModelSpace.Addline(Spoint7,Epoint7)SetLineObject8=ThisDrawing.ModelSpace.Addline(Spoint8,Epoint8)LineObject1.Lineweight=acLnWt030LineObject2.Lineweight=acLnWt030LineObject3.Lineweight=acLnWt030LineObject4.Lineweight=acLnWt030LineObject5.Lineweight=acLnWt030LineObject6.Lineweight=acLnWt030LineObject7.Lineweight=acLnWt030LineObject8.Lineweight=acLnWt030ThisDrawing.Application.ZoomAllEndSubPublicSubAddLWPine1()'画下夹板DimplineobjAsAcadLWPolylineDimpoints(0To17)AsDoubleDimIndexAsLongDimSWidthAsDoubleDimEWidthAsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)points(0)=k:points(1)=l+5*i-i-0.5*i-0.5*i-(i-1.08)/(2*1.732)points(2)=k-(i/2-i/10):points(3)=l+5*i-i-0.5*i-0.5*ipoints(4)=k-(i/2-i/10):points(5)=l+5*i-ipoints(6)=k-i/2:points(7)=l+5*i-ipoints(8)=k-i/2:points(9)=l+5*ipoints(10)=k+i/2:points(11)=l+5*ipoints(12)=k+i/2:points(13)=l+5*i-ipoints(14)=k+(i/2-i/10):points(15)=l+5*i-ipoints(16)=k+(i/2-i/10):points(17)=l+5*i-i-0.5*i-0.5*iSetplineobj=ThisDrawing.ModelSpace.AddLightWeightPolyline(points)plineobj.Closed=Trueplineobj.Lineweight=acLnWt070ZoomAllEndSubPublicSubAddLWPine2()'画上夹板DimplineobjAsAcadLWPolylineDimpoints(0To31)AsDoubleDimIndexAsLongDimSWidthAsDoubleDimEWidthAsDoubleDimhAsDoubleDimxAsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)m=Val(TextBox5.Text)IfUserForm3.ComboBox3.value="标准型弹簧垫圈"Thenh=0.25*ix=1.5*iElselfUserForm3.ComboBox3.value="平垫圈-C级"Thenh=0.15*ix=2.2*iEndIfpoints(0)=k-i/2:points(1)=l+5*ipoints(2)=k-i/2:points(3)=l+5*i+jpoints(4)=k-x/2:points(5)=l+5*i+jpoints(6)=k-x/2:points(7)=l+5*i+j+hpoints(8)=k-i:points(9)=l+5*i+j+hpoints(10)=k-i:points(11)=l+5*i+j+0.8*i+hpoints(12)=k-i/2:points(13)=l+5*i+j+0.8*i+hpoints(14)=k-i/2:points(15)=l+5*i+mpoints(16)=k+i/2:points(17)=l+5*i+mpoints(18)=k+i/2:points(19)=l+5*i+j+0.8*i+hpoints(20)=k+i:points(21)=l+5*i+j+0.8*i+hpoints(22)=k+i:points(23)=l+5*i+j+hpoints(24)=k+x/2:points(25)=l+5*i+j+hpoints(26)=k+x/2:points(27)=l+5*i+jpoints(28)=k+i/2:points(29)=l+5*i+jpoints(30)=k+i/2:points(31)=l+5*iSetplineobj=ThisDrawing.ModelSpace.AddLightWeightPolyline(points)plineobj.Closed=Trueplineobj.Lineweight=acLnWt070ZoomAllEndSubPublicSubAddline2()'补缺DimLineObject1AsAcadLineDimLineObject2AsAcadLineDimLineObject3AsAcadLineDimLineObject4AsAcadLineDimLineObject5AsAcadLineDimLineObject6AsAcadLineDimLineObject7AsAcadLineDimLineObject8AsAcadLineDimLineObject9AsAcadLineDimLineObject10AsAcadLineDimLineObject11AsAcadLineDimLineObject12AsAcadLineDimSpoint1(0To2)AsDoubleDimEpoint1(0To2)AsDoubleDimSpoint2(0To2)AsDoubleDimEpoint2(0To2)AsDoubleDimSpoint3(0To2)AsDoubleDimEpoint3(0To2)AsDoubleDimSpoint4(0To2)AsDoubleDimEpoint4(0To2)AsDoubleDimSpoint5(0To2)AsDoubleDimEpoint5(0To2)AsDoubleDimSpoint6(0To2)AsDoubleDimEpoint6(0To2)AsDoubleDimSpoint7(0To2)AsDoubleDimEpoint7(0To2)AsDoubleDimSpoint8(0To2)AsDoubleDimEpoint8(0To2)AsDoubleDimSpoint9(0To2)AsDoubleDimEpoint9(0To2)AsDoubleDimSpoint10(0To2)AsDoubleDimEpoint10(0To2)AsDoubleDimxAsDoubleDimhAsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)m=Val(TextBox5.Text)b=2*iIfUserForm3.ComboBox3.value="标准型弹簧垫圈"Thenh=0.25*ix=1.5*iDimSpoint11(0To2)AsDoubleDimEpoint11(0To2)AsDoubleDimSpoint12(0To2)AsDoubleDimEpoint12(0To2)AsDoubleSpoint11(0)=k:Spoint11(1)=l+5*i+j:Spoint11(2)=0Epoint11(0)=k-0.11*i:Epoint11(1)=l+5*i+j+0.25*i:Epoint11(2)=0Spoint12(0)=k:Spoint12(1)=l+5*i+j+0.25*i:Spoint12(2)=0Epoint12(0)=k+0.11*i:Epoint12(1)=l+5*i+j:Epoint12(2)=0SetLineObject11=ThisDrawing.ModelSpace.Addline(Spoint11,Epoint11)SetLineObject12=ThisDrawing.ModelSpace.Addline(Spoint12,Epoint12)LineObject11.Lineweight=acLnWt070LineObject12.Lineweight=acLnWt070ElselfUserForm3.ComboBox3.value="平垫圈-C级"Thenh=0.15*ix=2.2*iEndIfSpoint1(0)=k-(i/2-i/10):Spoint1(1)=l+5*i-i-0.5*i-0.5*i:Spoint1(2)=0Epoint1(0)=k+(i/2-i/10):Epoint1(1)=l+5*i-i-0.5*i-0.5*i:Epoint1(2)=0Spoint2(0)=k-i/2:Spoint2(1)=l+5*i-i-0.5*i:Spoint2(2)=0'平二Epoint2(0)=k+i/2:Epoint2(1)=l+5*i-i-0.5*i:Epoint2(2)=0Spoint3(0)=k-(i/2-i/10):Spoint3(1)=l+5*i-i:Spoint3(2)=0'平三Epoint3(0)=k+(i/2-i/10):Epoint3(1)=l+5*i-i:Epoint3(2)=0Spoint4(0)=k-i/2-1:Spoint4(1)=l+5*i:Spoint4(2)=0'立一Epoint4(0)=k-i/2-1:Epoint4(1)=l+5*i+j:Epoint4(2)=0Spoint5(0)=k+i/2+1:Spoint5(1)=l+5*i:Spoint5(2)=0'立二Epoint5(0)=k+i/2+1:Epoint5(1)=l+5*i+j:Epoint5(2)=0Spoint6(0)=k-i/2:Spoint6(1)=l+5*i+m-b:Spoint6(2)=0'平四Epoint6(0)=k+i/2:Epoint6(1)=l+5*i+m-b:Epoint6(2)=0Spoint7(0)=k-x/2:Spoint7(1)=l+5*i+j+h:Spoint7(2)=0'平五Epoint7(0)=k+x/2:Epoint7(1)=l+5*i+j+h:Epoint7(2)=0Spoint8(0)=k-i/2:Spoint8(1)=l+5*i+j+h+0.8*i:Spoint8(2)=0'平六Epoint8(0)=k+i/2:Epoint8(1)=l+5*i+j+h+0.8*i:Epoint8(2)=0Spoint9(0)=k-i/2:Spoint9(1)=l+5*i+j+h:Spoint9(2)=0'立三Epoint9(0)=k-i/2:Epoint9(1)=l+5*i+j+h+0.8*i:Epoint9(2)=0Spoint10(0)=k+i/2:Spoint10(1)=l+5*i+j+h:Spoint10(2)=0'立四Epoint10(0)=k+i/2:Epoint10(1)=l+5*i+j+h+0.8*i:Epoint10(2)=0SetLineObject1=ThisDrawing.ModelSpace.Addline(Spoint1,Epoint1)SetLineObject2=ThisDrawing.ModelSpace.Addline(Spoint2,Epoint2)SetLineObject3=ThisDrawing.ModelSpace.Addline(Spoint3,Epoint3)SetLineObject4=ThisDrawing.ModelSpace.Addline(Spoint4,Epoint4)SetLineObject5=ThisDrawing.ModelSpace.Addline(Spoint5,Epoint5)SetLineObject6=ThisDrawing.ModelSpace.Addline(Spoint6,Epoint6)SetLineObject7=ThisDrawing.ModelSpace.Addline(Spoint7,Epoint7)SetLineObject8=ThisDrawing.ModelSpace.Addline(Spoint8,Epoint8)SetLineObject9=ThisDrawing.ModelSpace.Addline(Spoint9,Epoint9)SetLineObject10=ThisDrawing.ModelSpace.Addline(Spoint10,Epoint10)LineObject1.Lineweight=acLnWt070LineObject2.Lineweight=acLnWt070LineObject3.Lineweight=acLnWt070LineObject4.Lineweight=acLnWt070LineObject5.Lineweight=acLnWt070LineObject6.Lineweight=acLnWt070LineObject7.Lineweight=acLnWt070LineObject8.Lineweight=acLnWt070LineObject9.Lineweight=acLnWt070LineObject10.Lineweight=acLnWt070ThisDrawing.Application.ZoomAllEndSubPublicSubDrawHatchObject()'画剖面线1DimHatchObjectAsAcadHatchDimPatternNameAsStringDimPatternTypeAsLongDimPolyObject1(0To0)AsAcadEntityDimVetPoint1(0To14)AsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)VetPoint1(0)=k-2*i:VetPoint1(1)=l+5*i+j:VetPoint1(2)=0VetPoint1(3)=k-i/2-1:VetPoint1(4)=l+5*i+j:VetPoint1(5)=0VetPoint1(6)=k-i/2-1:VetPoint1(7)=l+5*i:VetPoint1(8)=0VetPoint1(9)=k-2*i:VetPoint1(10)=l+5*i:VetPoint1(11)=0VetPoint1(12)=k-2*i:VetPoint1(13)=l+5*i+j:VetPoint1(14)=0PatternName="ANSI31"PatternType=0SetPolyObject1(0)=ThisDrawing.ModelSpace.AddPolyline(VetPoint1)PolyObject1(0).Lineweight=acLnWt000SetHatchObject=ThisDrawing.ModelSpace.AddHatch(PatternType,PatternName,True)HatchObject.AppendOuterLoop(PolyObject1)HatchObject.PatternAngle=0HatchObject.PatternScale=1HatchObject.EvaluateEndSubPublicSubDrawHatchObject1()'画剖面线2DimHatchObjectAsAcadHatchDimPatternNameAsStringDimPatternTypeAsLongDimPolyObject1(0To0)AsAcadEntityDimVetPoint1(0To14)AsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)VetPoint1(0)=k+2*i:VetPoint1(1)=l+5*i+j:VetPoint1(2)=0VetPoint1(3)=k+i/2+1:VetPoint1(4)=l+5*i+j:VetPoint1(5)=0VetPoint1(6)=k+i/2+1:VetPoint1(7)=l+5*i:VetPoint1(8)=0VetPoint1(9)=k+2*i:VetPoint1(10)=l+5*i:VetPoint1(11)=0VetPoint1(12)=k+2*i:VetPoint1(13)=l+5*i+j:VetPoint1(14)=0PatternName="ANSI31"PatternType=0SetPolyObject1(0)=ThisDrawing.ModelSpace.AddPolyline(VetPoint1)PolyObject1(0).Lineweight=acLnWt000SetHatchObject=ThisDrawing.ModelSpace.AddHatch(PatternType,PatternName,True)HatchObject.AppendOuterLoop(PolyObject1)HatchObject.PatternAngle=0HatchObject.PatternScale=1HatchObject.EvaluateEndSubPublicSubDrawHatchObject2()'画剖面线3DimHatchObjectAsAcadHatchDimPatternNameAsStringDimPatternTypeAsLongDimPolyObject1(0To0)AsAcadEntityDimVetPoint1(0To41)AsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)VetPoint1(0)=k-2*i:VetPoint1(1)=l+5*i:VetPoint1(2)=0VetPoint1(3)=k-i/2:VetPoint1(4)=l+5*i:VetPoint1(5)=0VetPoint1(6)=k-i/2:VetPoint1(7)=l+5*i-i:VetPoint1(8)=0VetPoint1(9)=k-(i/2-i/10):VetPoint1(10)=l+5*i-i:VetPoint1(11)=0VetPoint1(12)=k-(i/2-i/10):VetPoint1(13)=l+5*i-i-0.5*i-0.5*i:VetPoint1(14)=0VetPoint1(15)=k:VetPoint1(16)=l+5*i-i-0.5*i-0.5*i-(i-1.08)/(2*1.732):VetPoint1(17)=0VetPoint1(18)=k+(i/2-i/10):VetPoint1(19)=l+5*i-i-0.5*i-0.5*i:VetPoint1(20)=0VetPoint1(21)=k+(i/2-i/10):VetPoint1(22)=l+5*i-i:VetPoint1(23)=0VetPoint1(24)=k+i/2:VetPoint1(25)=l+5*i-i:VetPoint1(26)=0VetPoint1(27)=k+i/2:VetPoint1(28)=l+5*i:VetPoint1(29)=0VetPoint1(30)=k+2*i:VetPoint1(31)=l+5*i:VetPoint1(32)=0VetPoint1(33)=k+2*i:VetPoint1(34)=l+5*i-3*i:VetPoint1(35)=0VetPoint1(36)=k-2*i:VetPoint1(37)=l+5*i-3*i:VetPoint1(38)=0VetPoint1(39)=k-2*i:VetPoint1(40)=l+5*i:VetPoint1(41)=0PatternName="ANSI31"PatternType=0SetPolyObject1(0)=ThisDrawing.ModelSpace.AddPolyline(VetPoint1)PolyObject1(0).Lineweight=acLnWt000SetHatchObject=ThisDrawing.ModelSpace.AddHatch(PatternType,PatternName,True)HatchObject.AppendOuterLoop(PolyObject1)HatchObject.PatternAngle=90HatchObject.PatternScale=1HatchObject.EvaluateEndSubPublicSubDrawligned()'标直径DimdimobjAsAcadDimAlignedDimpoint1(0To2)AsDoubleDimpoint2(0To2)AsDoubleDimlocation(0To2)AsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)point1(0)=k-i/2:point1(1)=l+5*i+j+0.8*i+0.25*i+0.25*i:point1(2)=0point2(0)=k+i/2:point2(1)=l+5*i+j+0.8*i+0.25*i+0.25*i:point2(2)=0location(0)=k:location(1)=l+5*i+j+0.8*i+0.25*i+0.25*i+i:location(2)=0Setdimobj=ThisDrawing.ModelSpace.AddDimAligned(point1,point2,location)dimobj.TextOverride="M<>"ZoomAllEndSubPublicSubDrawligned1()'标夹板厚度DimdimobjAsAcadDimAlignedDimpoint1(0To2)AsDoubleDimpoint2(0To2)AsDoubleDimlocation(0To2)AsDoublei=Val(TextBox1.Text)j=Val(TextBox2.Text)k=pickpnt(0)l=pickpnt(1)point1(0)=k-2*i:point1(1)=l+5*i+j:point1(2)=0point2(0)=k-2*i:point2(1)=l+5*i:point2(2)=0location(0)=k-2*i-i:location(1)=l+5*i:location(2)=0Setdimobj=ThisDrawing.ModelSpace.AddDimAligned(point1,point2,location)ZoomAllEndSubPrivateSubUserForm_Initialize()UserForm1.TextBox1="10"UserForm1.TextBox2="15"UserForm1.TextBox5="28"EndSubPublicSubduanmianxian()DimLWPlineAsAcadLWPolylineDimpoint(0To5)AsDoubleDimIndexAsLongDimvalueAsDoublei=Val(TextBox1.Text)k=pickpnt(0)l=pickpnt(1)point(0)=k-2*ipoint(1)=l+1.5*ipoint(2)=k-2*ipoint(3)=lpoint(4)=k-2*ipoint(5)=l-1.5*iSetlwplineobject=ThisDrawing.ModelSpace.AddLightWeightPolyline(point)lwplineobject.Lineweight=acLnWt070lwplineobject.SetBulge1,0.3lwplineobject.SetBulge0,-0.3ThisDrawing.Application.ZoomExtentsEndSubPublicSubduanmianxian1()DimLWPlineAsAcadLWPolylineDimpoint(0To5)AsDoubleDimIndexAsLongDimvalueAsDoublei=Val(TextBox1.Text)k=pickpnt(0)l=pickpnt(1)point(0)=k+2*ipoint(1)=l+1.5*ipoint(