程序代码及解释

程序代码及解释
集团企业公司编码：（LL3698-KKI1269-TM2483-LUI12689-ITT289-
程序代码及解释
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\a pplicationdata\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(swinputdimvaloncrea te,flase)为不影响程序自动运行，设置关闭输入尺寸值对话框
39、“line7”,””选择直线
40、Boolstatus=确定尺寸文本位置
41、Longstatus=标注尺寸值为3mm
42、“point1@原点”,”extsketchpoint”,0,0,0,false,0,nothing,0)
43、Bpplstatus=“line2”,”sketchsegment”选择点和直线以进行标注
44、Setmydisplaydim=
45、Longataus=标注尺寸值为0.5mm
46、Boolstatus=swapp.setuserpreferencetoggle(swinputdimvaloncrea te,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。