程序代码及解释

程序代码及解释

1、optionexplicit设置显示变量声明

2、Dimswappasobject定义各变量

3、Dimpartasobject

4、Dimsksegmentasobject

5、Dimvsklinesasvariant

6、Dimmyfeatureasobject

7、Dimboolstatusasboolean

8、Dimlongstatusaslong,longwarningsaslong

9、Dimmydisplaydimasobject

10、Privatesubcommand2_click()单击command2按钮时退出程序

11、End

12、Endsub

13、Privatesubcommand1_click()单击command1按钮时执行程序

14、Setswapp=createobject(“sldworks.application”)创建sldworks对象

15、Swapp.visible=ture设置显示SolidWorks程序界面

16、Setpart=swapp.Newdocument(c;\documentsandsettings\Allusers\applicationda ta\solidworks2009\templates\零件I)

17、Setpart=swappactivedoc激活文件

18、Boolstatus=partextensionselectbyID2(上视基准面，plane，0,0,0fales,0,nothing,0)选择上视基准面

19、Partsketchmanagerinsertsketchture开始草图绘制

20、Setsksegment=(0#，0#，0#，0.033)绘制半径为33的圆

21、对圆进行单向拉伸，形成头部圆柱体

22、Boolstatus=选择上视基准面

23、true

24、Setsksegment=绘制半径为30的圆

25、对圆进行单向拉伸，形成头部圆柱体

26、“”,”face”选择拉伸2形成的短柱体底面

27、Part.sketchmanager.insertsketchtrue

28、Setsksegment=绘制半径为24的圆

29、Setmyfeature=对圆进行单向拉伸，形成长柱体

30、Boolstatus=“前视基准面”，“plane”，0,0,0，false，0，nothing,0)选择前视基准面

31、Part.sketchmanager,insersketchtrue

32、Setsksegment=绘制中心线

33、

34、

35、......

36、绘制六条直线，形成旋转切除草图

37、Part.clearselection2true

38、Boolstatus=swapp.setuserpreferencetbggle(swinputdimvaloncreate,flase)为不影响程序自动运行，设置关闭输入尺寸值对话框

39、“line7”,””选择直线

40、Boolstatus=确定尺寸文本位置

41、Longstatus=part.parameter(“D1@草图4”),setsystemvalue3(0.003,1,”默认”)标注尺寸值为3mm

42、“point1@原点”,”extsketchpoint”,0,0,0,false,0,nothing,0)

43、Bpplstatus=“line2”,”sketchsegment”选择点和直线以进行标注

44、Setmydisplaydim=

45、Longataus==part.parameter(“d2@草图4”).setsystemvalue3(0.0005,1,”默认”)标注尺寸值为0.5mm

46、Boolstatus=swapp.setuserpreferencetoggle(swinputdimvaloncreate,true)设置恢复输入尺寸对话框

47、“line1”,”sketchsegment”,0,0,0,false,4,nothing,0)选择中心线

48、“草图4”，“sketch”0,0,0,true,0,nothing,0)选择草图4

49、Set旋转切除

50、“”选择头部长柱体的上表面

51、true

52、Set绘制半径为15的圆

53、Part.clearselection2true

54、“arcl”,”sketchsegment”,0,0,0,false,0,nothing,0)

55、拉伸切除成直径30的通孔

56、“前视基准面”，“pline”，0,0,0，false,0,nothing,0)

57、

58、Part.clearselection2true

59、Vsklines绘制矩形

60、双向拉伸切除

61、“”,”edge”选择直径30孔的上边线

62、倒角

63、Part.shownamedview2”下视”，6旋转并缩放模型到下视方向

64、选择长柱体的边线

65、

66、

67、

68、Part.ClearSelection2Ture

69、Part.ShowNamedView2~”等轴测”,7等轴测显示模型

70、Part.ViewZoomtofit2自动缩放整屏显示全图

71、longststus=Part.SaveAs3(“E:\可换钻套.SLDPRT”,0,2)保存零件到E盘

72、EndSub

73、